summaryrefslogtreecommitdiff
path: root/muse2/synti/deicsonze-OLD/deicsonze.cpp
diff options
context:
space:
mode:
Diffstat (limited to 'muse2/synti/deicsonze-OLD/deicsonze.cpp')
-rw-r--r--muse2/synti/deicsonze-OLD/deicsonze.cpp1671
1 files changed, 1671 insertions, 0 deletions
diff --git a/muse2/synti/deicsonze-OLD/deicsonze.cpp b/muse2/synti/deicsonze-OLD/deicsonze.cpp
new file mode 100644
index 00000000..4eea4102
--- /dev/null
+++ b/muse2/synti/deicsonze-OLD/deicsonze.cpp
@@ -0,0 +1,1671 @@
+//===========================================================================
+//
+// DeicsOnze an emulator of the YAMAHA DX11 synthesizer
+//
+// Version 0.2.2
+//
+//
+//
+//
+// Copyright (c) 2004 Nil Geisweiller
+//
+//
+//
+// 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 or point your web browser to http://www.gnu.org.
+//===========================================================================
+
+#include <cmath>
+#include <list>
+
+#include <stdio.h>
+
+#include "config.h"
+
+#include "libsynti/mess.h"
+#include "muse/midictrl.h"
+#include "deicsonze.h"
+
+#include "deicsonzegui.h"
+
+#include "muse/midi.h"
+#define ABS(x) (x>=0?x:-x)
+
+
+float DeicsOnze::waveTable[NBRWAVES][RESOLUTION];
+int DeicsOnze::useCount = 0;
+
+//---------------------------------------------------------
+// DeicsOnze
+//---------------------------------------------------------
+
+DeicsOnze::DeicsOnze() : Mess(1)
+{
+ if (useCount++ == 0) {
+ // create sinus wave table, W1
+ for(int i = 0; i < RESOLUTION; i++)
+ waveTable[W1][i] =
+ (float)(sin((i * 2.0 * M_PI) / (double)RESOLUTION));
+ // create sinus*abs(sinus) wave table, W2
+ for(int i = 0; i < RESOLUTION; i++){
+ double t = (i * 2.0 * M_PI) / (double)RESOLUTION;
+ waveTable[W2][i] = (float)(ABS(sin(t))*sin(t));}
+ // create halfsinus_ wave table, W3
+ for(int i = 0; i < RESOLUTION; i++)
+ waveTable[W3][i] = (float)
+ (i<RESOLUTION/2?sin((i*2.0*M_PI)/(double)RESOLUTION):0.0);
+ // create halfsinus*abs(sinus)_ wave table, W4
+ for(int i = 0; i < RESOLUTION; i++){
+ double t = (i * 2.0 * M_PI) / (double)RESOLUTION;
+ waveTable[W4][i] = (float)(i<RESOLUTION/2?ABS(sin(t))*sin(t):0.0);}
+ // create sinus_ wave table, W5
+ for(int i = 0; i < RESOLUTION; i++)
+ waveTable[W5][i] = (float)
+ (i<RESOLUTION/2?sin((i*4.0*M_PI) / (double)RESOLUTION):0.0);
+ // create sinus*abs(sinus)_ wave table, W6
+ for(int i = 0; i < RESOLUTION; i++){
+ double t = (i*4.0*M_PI) / (double)RESOLUTION;
+ waveTable[W6][i] = (float)(i<RESOLUTION/2?ABS(sin(t))*sin(t):0.0);}
+ // create 2halfsinus_ wave table, W7
+ for(int i = 0; i < RESOLUTION; i++)
+ waveTable[W7][i] = (float)
+ (i<RESOLUTION/2?ABS(sin((i*4.0*M_PI)/(double)RESOLUTION)):0.0);
+ // create 2halfsinus*abs(sinus)_ wave table, W8
+ for(int i = 0; i < RESOLUTION; i++){
+ double t = (i * 4.0 * M_PI) / (double)RESOLUTION;
+ waveTable[W8][i] = (float)(i<RESOLUTION/2?sin(t)*sin(t):0.0);}
+ }
+
+
+
+ srand(time(0)); // initialize random number generator
+
+ loadSutulaPresets();
+
+ initGlobal();
+ initVoices();
+ _preset = new Preset();
+ _preset->initPreset();
+
+ setPreset();
+
+ _gui = new DeicsOnzeGui(this);
+ _gui->setCaption(QString("DeicsOnze"));
+ _gui->show();
+}
+
+//---------------------------------------------------------
+// ~DeicsOnze
+//---------------------------------------------------------
+
+DeicsOnze::~DeicsOnze()
+{
+ //if (--useCount == 0)
+ //delete[] sine_table;
+}
+
+//---------------------------------------------------------
+// guiVisible
+//---------------------------------------------------------
+bool DeicsOnze::guiVisible() const
+{
+ return _gui->isVisible();
+}
+
+//---------------------------------------------------------
+// showGui
+//---------------------------------------------------------
+void DeicsOnze::showGui(bool val)
+{
+ _gui->setShown(val);
+}
+
+//---------------------------------------------------------
+// getGeometry
+//---------------------------------------------------------
+
+void DeicsOnze::getGeometry(int* x, int* y, int* w, int* h) const {
+ QPoint pos(_gui->pos());
+ QSize size(_gui->size());
+ *x = pos.x();
+ *y = pos.y();
+ *w = size.width();
+ *h = size.height();
+}
+
+//---------------------------------------------------------
+// setGeometry
+//---------------------------------------------------------
+
+void DeicsOnze::setGeometry(int x, int y, int w, int h) {
+ _gui->resize(QSize(w, h));
+ _gui->move(QPoint(x, y));
+}
+
+//---------------------------------------------------------
+// initGlobal
+//---------------------------------------------------------
+void DeicsOnze::initGlobal() {
+ _global.amp=1.0/(double)NBRVOICES;
+ _global.sustain=false;
+ _global.pitchBendCoef=1.0;
+ _global.lfoIndex=0;
+ _numPatch=0;
+}
+
+//---------------------------------------------------------
+// initVoices
+//---------------------------------------------------------
+void DeicsOnze::initVoices() {
+ for(int i=0; i<NBRVOICES; i++) {
+ _voices[i].isOn=false;
+ _voices[i].isSustained=false;
+ }
+}
+
+//---------------------------------------------------------
+// initPreset
+// put the preset in the initial state as defined by YAMAHA
+//---------------------------------------------------------
+void Preset::initPreset() {
+ //algorithm
+ algorithm=FIRST;
+ //feedeback
+ feedback=0;
+ //lfo
+ lfo.wave=TRIANGL;
+ lfo.speed=35;
+ lfo.delay=0;
+ lfo.pModDepth=0;
+ lfo.aModDepth=0;
+ lfo.sync=false;
+ //sensitivity
+ sensitivity.pitch=6;
+ sensitivity.amplitude=0;
+ sensitivity.ampOn[0]=false;
+ sensitivity.ampOn[1]=false;
+ sensitivity.ampOn[2]=false;
+ sensitivity.ampOn[3]=false;
+ sensitivity.egBias[0]=0;
+ sensitivity.egBias[1]=0;
+ sensitivity.egBias[2]=0;
+ sensitivity.egBias[3]=0;
+ sensitivity.keyVelocity[0]=0;
+ sensitivity.keyVelocity[1]=0;
+ sensitivity.keyVelocity[2]=0;
+ sensitivity.keyVelocity[3]=0;
+ //frequency
+ frequency[0].ratio=1.0;
+ frequency[1].ratio=1.0;
+ frequency[2].ratio=1.0;
+ frequency[3].ratio=1.0;
+ frequency[0].isFix=false;
+ frequency[1].isFix=false;
+ frequency[2].isFix=false;
+ frequency[3].isFix=false;
+ frequency[0].freq=255.0;
+ frequency[1].freq=255.0;
+ frequency[2].freq=255.0;
+ frequency[3].freq=255.0;
+ //oscWave
+ oscWave[0]=W1;
+ oscWave[1]=W1;
+ oscWave[2]=W1;
+ oscWave[3]=W1;
+ //detune
+ detune[0]=0;
+ detune[1]=0;
+ detune[2]=0;
+ detune[3]=0;
+ //eg
+ eg[0].ar=31;
+ eg[1].ar=31;
+ eg[2].ar=31;
+ eg[3].ar=31;
+ eg[0].d1r=31;
+ eg[1].d1r=31;
+ eg[2].d1r=31;
+ eg[3].d1r=31;
+ eg[0].d1l=15;
+ eg[1].d1l=15;
+ eg[2].d1l=15;
+ eg[3].d1l=15;
+ eg[0].d2r=0;
+ eg[1].d2r=0;
+ eg[2].d2r=0;
+ eg[3].d2r=0;
+ eg[0].rr=15;
+ eg[1].rr=15;
+ eg[2].rr=15;
+ eg[3].rr=15;
+ eg[0].egShift=VOF;
+ eg[1].egShift=VOF;
+ eg[2].egShift=VOF;
+ eg[3].egShift=VOF;
+ //pitchEg
+ pitchEg.pr1=99;
+ pitchEg.pr2=99;
+ pitchEg.pr3=99;
+ pitchEg.pl1=50;
+ pitchEg.pl2=50;
+ pitchEg.pl3=50;
+ //outLevel
+ outLevel[0]=90;
+ outLevel[1]=0;
+ outLevel[2]=0;
+ outLevel[3]=0;
+ //scaling
+ scaling.rate[0]=0;
+ scaling.rate[1]=0;
+ scaling.rate[2]=0;
+ scaling.rate[3]=0;
+ scaling.level[0]=0;
+ scaling.level[1]=0;
+ scaling.level[2]=0;
+ scaling.level[3]=0;
+ //function
+ function.transpose=0;
+ function.mode=POLY;
+ function.pBendRange=4;
+ function.portamento=FULL;
+ function.portamentoTime=0;
+ function.fcVolume=40;
+ function.fcPitch=0;
+ function.fcAmplitude=0;
+ function.mwPitch=50;
+ function.mwAmplitude=0;
+ function.bcPitch=0;
+ function.bcAmplitude=0;
+ function.bcPitchBias=0;
+ function.bcEgBias=0;
+ function.atPitch=0;
+ function.atAmplitude=0;
+ function.atPitchBias=0;
+ function.atEgBias=0;
+ function.reverbRate=0;
+ globalDetune=0;
+ //Name
+ name="INIT VOICE";
+ //Subcategory
+ subcategory="NONE";
+ //Category
+ category="NONE";
+}
+
+
+//---------------------------------------------------------
+// findPreset
+// return the first preset corresponding of lbank and prog
+//---------------------------------------------------------
+Preset* presetSet::findPreset(int lbank, int prog) {
+ std::vector<Preset*>::iterator pvi;
+ for(pvi=_presetVector.begin(); pvi!=_presetVector.end(); pvi++)
+ if((*pvi)->bank==lbank && (*pvi)->prog==prog) {
+ return(*pvi);
+ }
+ return NULL;
+}
+Preset* subcategorySet::findPreset(int lbank, int prog) {
+ Preset* p_preset;
+ std::vector<presetSet*>::iterator psvi;
+ for(psvi=_subcategoryVector.begin();psvi!=_subcategoryVector.end(); psvi++)
+ {
+ p_preset=(*psvi)->findPreset(lbank, prog);
+ if(p_preset) return p_preset;
+ }
+ return NULL;
+}
+Preset* categorySet::findPreset(int lbank, int prog) {
+ Preset* p_preset;
+ std::vector<subcategorySet*>::iterator ssvi;
+ for(ssvi=_categoryVector.begin(); ssvi!=_categoryVector.end(); ssvi++)
+ {
+ p_preset=(*ssvi)->findPreset(lbank, prog);
+ if(p_preset) return p_preset;
+ }
+ return NULL;
+}
+Preset* DeicsOnze::findPreset(int lbank, int prog) {
+ return _categorySet->findPreset(lbank, prog);
+}
+
+//---------------------------------------------------------
+// findSubcategorySet
+// take string of a category and return the subcategorySet
+//---------------------------------------------------------
+subcategorySet* categorySet::findSubcategorySet(std::string s) {
+ std::vector<subcategorySet*>::iterator ssvi=_categoryVector.begin();
+ while(ssvi!=_categoryVector.end() && s!=(*ssvi)->_categoryName) ssvi++;
+ return(*ssvi);
+}
+//---------------------------------------------------------
+// findPresetSet
+// take string of a subcategory and return the presetSet
+//---------------------------------------------------------
+presetSet* subcategorySet::findPresetSet(std::string s) {
+ std::vector<presetSet*>::iterator pvi=_subcategoryVector.begin();
+ while(pvi!=_subcategoryVector.end() && s!=(*pvi)->_subcategoryName) pvi++;
+ //if (pvi==NULL) printf("presetSet %s doesn't exist!", s);
+ return(*pvi);
+}
+
+//---------------------------------------------------------
+// note2Amp
+// return the Amp of a note depending on the level scaling
+//---------------------------------------------------------
+inline double note2Amp(double note, int ls)
+{
+ if(ls==0) return(1.0);
+ else return((note<LEVELSCALENOTE?1.0:exp((double)ls*COEFLEVELSCALE*
+ ((double)LEVELSCALENOTE-note))));
+}
+
+//---------------------------------------------------------
+// delay2Time
+// return the time in second corresponding to the LFO delay parameter
+//---------------------------------------------------------
+inline double delay2Time(int d)
+{
+ double t;
+ //fitting
+ t=0.07617*(double)d-0.002695*(double)(d*d)+4.214e-05*(double)(d*d*d);
+ //printf("delay2Time : %f\n", t);
+ return(t);
+}
+
+
+//----------------------------------------------------------------
+// setMasterVol
+//----------------------------------------------------------------
+void DeicsOnze::setMasterVol(int mv)
+{
+ _global.amp=(double)mv/(double)MAXMASTERVOL;
+}
+
+//----------------------------------------------------------------
+// getMasterVol
+//----------------------------------------------------------------
+int DeicsOnze::getMasterVol()
+{
+ return((int)(_global.amp*(double)MAXMASTERVOL));
+}
+
+//----------------------------------------------------------------
+// setLfo
+//----------------------------------------------------------------
+
+void DeicsOnze::setLfo()
+{
+ double x;
+ x=(double)_preset->lfo.speed;
+ // lfoSpeed to Hz, obtained by fitting the actual curve by a polynomial
+ _global.lfoFreq=-1.9389e-08*x*x*x*x*x+2.8826e-06*x*x*x*x-9.0316e-05*x*x*x
+ +4.7453e-03*x*x-1.2295e-02*x+7.0347e-02;//a revoir
+ //Pitch LFO
+ _global.lfoMaxIndex=(_global.lfoFreq==0?0:(int)((1.0/_global.lfoFreq)
+ *(double)sampleRate()));
+ _global.lfoPitch=(((double)_preset->lfo.pModDepth/(double)MAXPMODDEPTH)
+ *(COEFPLFO(_preset->sensitivity.pitch)));
+ //Amplitude LFO
+ _global.lfoMaxAmp=(((double)_preset->lfo.aModDepth/(double)MAXAMODDEPTH)
+ *(COEFALFO(_preset->sensitivity.amplitude)));
+ //index is concidered on the frequency of the delay
+ _global.lfoDelayMaxIndex=delay2Time(_preset->lfo.delay)*_global.lfoFreq;
+ _global.lfoDelayInct=(double)(RESOLUTION/4)/_global.lfoDelayMaxIndex;
+}
+
+//-----------------------------------------------------------------
+// setFeedback
+//-----------------------------------------------------------------
+void DeicsOnze::setFeedback() {
+ _global.feedbackAmp=COEFFEEDBACK*exp(log(2)*(double)(_preset->feedback
+ -MAXFEEDBACK));
+}
+
+//-----------------------------------------------------------------
+// setPreset
+//-----------------------------------------------------------------
+
+void DeicsOnze::setPreset() {
+ setFeedback();
+ setLfo();
+}
+
+//---------------------------------------------------------
+// printPreset
+//---------------------------------------------------------
+
+inline void printPreset(Preset* p)
+{
+ printf("\n");
+ printf("Algorithm : %d, Feedback : %d\n", p->algorithm, p->feedback);
+ printf("LFO : ");
+ switch(p->lfo.wave)
+ {
+ case(SAWUP) : printf("SAWUP ,"); break;
+ case(SQUARE) : printf("SQUARE ,"); break;
+ case(TRIANGL) : printf("TRIANGL ,"); break;
+ case(SHOLD) : printf("SHOLD ,"); break;
+ default : printf("No defined, "); break;
+ }
+ printf("Speed : %d, Delay : %d, PModD : %d, AModD : %d, ",
+ p->lfo.speed, p->lfo.delay, p->lfo.pModDepth, p->lfo.aModDepth);
+ if(p->lfo.sync) printf("Sync\n"); else printf("Not Sync\n");
+ printf("LFO Pitch Sensitivity : %d, LFO Amplitude Sensitivity : %d\n",
+ p->sensitivity.pitch, p->sensitivity.amplitude);
+ for(int i=0; i<NBROP; i++)
+ {
+ printf("amp%d ",i+1);
+ if(p->sensitivity.ampOn) printf("ON "); else printf("OFF ");
+ }
+ printf("\n");
+ for(int i=0; i<NBROP; i++)
+ printf("EgBias%d : %d ",i+1, p->sensitivity.egBias[i]);
+ printf("\n");
+ for(int i=0; i<NBROP; i++)
+ printf("KVS%d : %d ",i+1, p->sensitivity.keyVelocity[i]);
+ printf("\n");
+ for(int i=0; i<NBROP; i++)
+ {
+ if(p->frequency[i].isFix)
+ printf("Freq%d : %f ",i+1, p->frequency[i].ratio);
+ else printf("Ratio%d : %f ",i+1, p->frequency[i].ratio);
+ }
+ printf("\n");
+ for(int i=0; i<NBROP; i++)
+ {
+ printf("OscWave%d ", i+1);
+ switch(p->oscWave[i])
+ {
+ case(W1) : printf("W1 "); break;
+ case(W2) : printf("W2 "); break;
+ case(W3) : printf("W3 "); break;
+ case(W4) : printf("W4 "); break;
+ case(W5) : printf("W5 "); break;
+ case(W6) : printf("W6 "); break;
+ case(W7) : printf("W7 "); break;
+ case(W8) : printf("W8 "); break;
+ default : printf("No defined "); break;
+ }
+ }
+ printf("\n");
+ for(int i=0; i<NBROP; i++)
+ printf("Detune%d : %d ",i+1, p->detune[i]);
+ printf("\n");
+ for(int i=0; i<NBROP; i++)
+ {
+ printf("AR%d : %d, D1R%d : %d, D1L%d : %d, D2R%d : %d, RR%d : %d, EgShift%d : ",
+ i+1, p->eg[i].ar, i+1, p->eg[i].d1r,
+ i+1, p->eg[i].d1l, i+1, p->eg[i].d2r, i+1, p->eg[i].rr, i+1);
+ switch(p->eg[i].egShift)
+ {
+ case(VOF) : printf("VOF");
+ case(V48) : printf("48");
+ case(V24) : printf("24");
+ case(V12) : printf("12");
+ }
+ printf("\n");
+ }
+ printf("PitchEg pr1 : %d, pr2 : %d, pr3 : %d, pl1 : %d, pl2 : %d, pl3 : %d"
+ , p->pitchEg.pr1, p->pitchEg.pr2, p->pitchEg.pr3,
+ p->pitchEg.pl1, p->pitchEg.pl2, p->pitchEg.pl3);
+ printf("\n");
+ for(int i=0; i<NBROP; i++)
+ printf("OutLevel%d : %d ",i+1, p->outLevel[i]);
+ printf("\n");
+ printf("Name : %s\n", p->name.c_str());
+}
+
+void presetSet::printSubcategory() {
+ std::cout << " " << _subcategoryName << "\n";
+ for(unsigned int i=0; i<_presetVector.size(); i++)
+ printPreset(_presetVector[i]);
+}
+
+void subcategorySet::printCategory() {
+ std::cout << " " << _categoryName << "\n";
+ for(unsigned int i=0; i<_subcategoryVector.size(); i++)
+ _subcategoryVector[i]->printSubcategory();
+}
+
+void categorySet::printBank() {
+ std::cout << _bankName << "\n";
+ for(unsigned int i=0; i<_categoryVector.size(); i++)
+ _categoryVector[i]->printCategory();
+}
+
+inline double coarseFine2Ratio(int c,int f)
+{
+ double tab[64][16]=
+ {
+ {0.50,0.56,0.62,0.68,0.75,0.81,0.87,0.93,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0},
+ {0.71,0.79,0.88,0.96,1.05,1.14,1.23,1.32,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0},
+ {0.78,0.88,0.98,1.07,1.17,1.27,1.37,1.47,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0},
+ {0.87,0.97,1.08,1.18,1.29,1.40,1.51,1.62,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0},
+ {1.00,1.06,1.12,1.18,1.25,1.31,1.37,1.43,1.50,1.56,1.62,1.68,1.75,1.81,1.87,1.93},
+ {1.41,1.49,1.58,1.67,1.76,1.85,1.93,2.02,2.11,2.20,2.29,2.37,2.46,2.55,2.64,2.73},
+ {1.57,1.66,1.76,1.86,1.96,2.06,2.15,2.25,2.35,2.45,2.55,2.64,2.74,2.84,2.94,3.04},
+ {1.73,1.83,1.94,2.05,2.16,2.27,2.37,2.48,2.59,2.70,2.81,2.91,3.02,3.13,3.24,3.35},
+ {2.00,2.06,2.12,2.18,2.25,2.31,2.37,2.43,2.50,2.56,2.62,2.68,2.75,2.81,2.87,2.93},
+ {2.82,2.90,2.99,3.08,3.17,3.26,3.34,3.43,3.52,3.61,3.70,3.78,3.87,3.96,4.05,3.14},
+ {3.00,3.06,3.12,3.18,3.25,3.31,3.37,3.43,3.50,3.56,3.62,3.68,3.75,3.81,3.87,3.93} ,
+ {3.14,3.23,3.33,3.43,3.53,3.63,3.72,3.82,3.92,4.02,4.12,4.21,4.31,4.41,4.51,4.61},
+ {3.46,3.56,3.67,3.78,3.89,4.00,4.10,4.21,4.32,4.43,4.54,4.64,4.75,4.86,4.97,5.08},
+ {4.00,4.06,4.12,4.18,4.25,4.31,4.37,4.43,4.50,4.56,4.62,4.68,4.75,4.81,4.87,4.93},
+ {4.24,4.31,4.40,4.49,4.58,4.67,4.75,4.84,4.93,5.02,5.11,5.19,5.28,5.37,5.46,5.55},
+ {4.71,4.80,4.90,5.00,5.10,5.20,5.29,5.39,5.49,5.59,5.69,5.78,5.88,5.98,6.08,6.18},
+ {5.00,5.06,5.12,5.18,5.25,5.31,5.37,5.43,5.50,5.56,5.62,5.68,5.75,5.81,5.87,5.93},
+ {5.19,5.29,5.40,5.51,5.62,5.73,5.83,5.94,6.05,6.16,6.27,6.37,6.48,6.59,6.70,6.81},
+ {5.65,5.72,5.81,5.90,5.99,6.08,6.16,6.25,6.34,6.43,6.52,6.60,6.69,6.78,6.87,6.96},
+ {6.00,6.06,6.12,6.18,6.25,6.31,6.37,6.43,6.50,6.56,6.62,6.68,6.75,6.81,6.87,6.93},
+ {6.28,6.37,6.47,6.57,6.67,6.77,6.86,6.96,7.06,7.16,7.26,7.35,7.45,7.55,7.65,7.75},
+ {6.92,7.02,7.13,7.24,7.35,7.46,7.56,7.67,7.78,7.89,8.00,8.10,8.21,8.32,8.43,8.54},
+ {7.00,7.06,7.12,7.18,7.25,7.31,7.37,7.43,7.50,7.56,7.62,7.68,7.75,7.81,7.87,7.93},
+ {7.07,7.13,7.22,7.31,7.40,7.49,7.57,7.66,7.75,7.84,7.93,8.01,8.10,8.19,8.28,8.37},
+ {7.85,7.94,8.04,8.14,8.24,8.34,8.43,8.53,8.63,8.73,8.83,8.92,9.02,9.12,9.22,9.32},
+ {8.00,8.06,8.12,8.18,8.25,8.31,8.37,8.43,8.50,8.56,8.62,8.68,8.75,8.81,8.87,8.93},
+ {8.48,8.54,8.63,8.72,8.81,8.90,8.98,9.07,9.16,9.25,9.34,9.42,9.51,9.60,9.69,9.78},
+ {8.65,8.75,8.86,8.97,9.08,9.19,9.29,9.40,9.51,9.62,9.73,9.83,9.94,10.05,10.16,10.27},
+ {9.00,9.06,9.12,9.18,9.25,9.31,9.37,9.43,9.50,9.56,9.62,9.68,9.75,9.81,9.87,9.93},
+ {9.42,9.51,9.61,9.71,9.81,9.91,10.00,10.10,10.20,10.30,10.40,10.49,10.59,10.69,10.79,10.89},
+ {9.89,9.95,10.04,10.13,10.22,10.31,10.39,10.48,10.57,10.66,10.75,10.83,10.92,11.01,11.10,11.19},
+ {10.00,10.06,10.12,10.18,10.25,10.31,10.37,10.43,10.50,10.56,10.62,10.68,10.75,10.81,10.87,10.93},
+ {10.38,10.48,10.59,10.70,10.81,10.92,11.02,11.13,11.24,11.35,11.46,11.56,11.67,11.78,11.89,12.00},
+ {10.99,11.08,11.18,11.28,11.38,11.48,11.57,11.67,11.77,11.87,11.97,12.06,12.16,12.26,12.36,12.46},
+ {11.00,11.06,11.12,11.18,11.25,11.31,11.37,11.43,11.50,11.56,11.62,11.68,11.75,11.81,11.87,11.93},
+ {11.30,11.36,11.45,11.54,11.63,11.72,11.80,11.89,11.98,12.07,12.16,12.24,12.33,12.42,12.51,12.60},
+ {12.00,12.06,12.12,12.18,12.25,12.31,12.37,12.43,12.50,12.56,12.62,12.68,12.75,12.81,12.87,12.93},
+ {12.11,12.21,12.32,12.43,12.54,12.65,12.75,12.86,12.97,13.08,13.19,13.29,13.40,13.51,13.62,13.73},
+ {12.56,12.65,12.75,12.85,12.95,13.05,13.14,13.24,13.34,13.44,13.54,13.63,13.73,13.83,13.93,14.03},
+ {12.72,12.77,12.86,12.95,13.04,13.13,13.21,13.30,13.39,13.48,13.57,13.65,13.74,13.83,13.92,14.01},
+ {13.00,13.06,13.12,13.18,13.25,13.31,13.37,13.43,13.50,13.56,13.62,13.68,13.75,13.81,13.87,13.93},
+ {13.84,13.94,14.05,14.16,14.27,14.38,14.48,14.59,14.70,14.81,14.92,15.02,15.13,15.24,15.35,15.46},
+ {14.00,14.06,14.12,14.18,14.25,14.31,14.37,14.43,14.50,14.56,14.62,14.68,14.75,14.81,14.87,14.93},
+ {14.10,14.18,14.27,14.36,14.45,14.54,14.62,14.71,14.80,14.89,14.98,15.06,15.15,15.24,15.33,15.42},
+ {14.13,14.22,14.32,14.42,14.52,14.62,14.71,14.81,14.91,15.01,15.11,15.20,15.30,15.40,15.50,15.60},
+ {15.00,15.06,15.12,15.18,15.25,15.31,15.37,15.43,15.50,15.56,15.62,15.68,15.75,15.81,15.87,15.93},
+ {15.55,15.59,15.68,15.77,15.86,15.95,16.03,16.12,16.21,16.30,16.39,16.47,16.56,16.65,16.74,16.83},
+ {15.57,15.67,15.78,15.89,16.00,16.11,16.21,16.32,16.43,16.54,16.65,16.75,16.86,16.97,17.08,17.19},
+ {15.70,15.79,15.89,15.99,16.09,16.19,16.28,16.38,16.48,16.58,16.68,16.77,16.87,16.97,17.07,17.17},
+ {16.96,17.00,17.09,17.18,17.27,17.36,17.44,17.53,17.62,17.71,17.80,17.88,17.97,18.06,18.15,18.24},
+ {17.27,17.36,17.46,17.56,17.66,17.76,17.85,17.95,18.05,18.15,18.25,18.34,18.44,18.54,18.64,18.74},
+ {17.30,17.40,17.51,17.62,17.73,17.84,17.94,18.05,18.16,18.27,18.38,18.48,18.59,18.70,18.81,18.92},
+ {18.37,18.41,18.50,18.59,18.68,18.77,18.85,18.94,19.03,19.12,19.21,19.29,19.38,19.47,19.56,19.65},
+ {18.84,18.93,19.03,19.13,19.23,19.33,19.42,19.52,19.62,19.72,19.82,19.91,20.01,20.11,20.21,20.31},
+ {19.03,19.13,19.24,19.35,19.46,19.57,19.67,19.78,19.89,20.00,20.11,20.21,20.32,20.43,20.54,20.65},
+ {19.78,19.82,19.91,20.00,20.09,20.18,20.26,20.35,20.44,20.53,20.62,20.70,20.79,20.88,20.97,21.06},
+ {20.41,20.50,20.60,20.70,20.80,20.90,20.99,21.09,21.19,21.29,21.39,21.48,21.58,21.68,21.78,21.88},
+ {20.76,20.86,20.97,21.08,21.19,21.30,21.40,21.51,21.62,21.73,21.84,21.94,22.05,22.16,22.27,22.38},
+ {21.20,21.23,21.32,21.41,21.50,21.59,21.67,21.76,21.85,21.94,22.03,22.11,22.20,22.29,22.38,22.47},
+ {21.98,22.07,22.17,22.17,22.37,22.47,22.56,22.66,22.76,22.86,22.96,23.05,23.15,23.25,23.35,23.45},
+ {22.49,22.59,22.70,22.81,22.92,23.03,23.13,13.24,13.35,13.46,13.57,13.67,13.78,13.89,24.00,24.11},
+ {23.55,23.64,23.74,23.84,23.94,24.04,24.13,24.23,24.33,24.43,24.53,24.62,24.72,24.82,24.92,25.02},
+ {24.22,24.32,24.43,24.54,24.65,24.76,24.86,24.97,25.08,25.19,25.30,25.40,25.51,25.62,25.73,25.84},
+ {25.95,26.05,26.16,26.27,26.38,26.49,26.59,26.70,26.81,26.92,27.03,27.13,27.24,27.35,27.46,27.57}
+ };
+ return(tab[c][f]);
+}
+
+//---------------------------------------------------------------
+// loadSutulaPreset
+//---------------------------------------------------------------
+
+void DeicsOnze::loadSutulaPresets()
+{
+ FILE* file;
+ int v;
+ int crs[NBROP], fin[NBROP]; //coarse ratio, fine ratio
+ char s[500];
+ char sname[LENGTHNAME+1];
+ char scategory[LENGTHCATEGORY+1];
+ char ssubcategory[LENGTHSUBCATEGORY+1];
+ int k;
+ int nBank, nPreset;
+
+ _categorySet=new categorySet("Sutula Bank");
+ Preset* presetTemp;
+
+ nBank=0;
+ nPreset=0;
+
+ //QString presetPath(INSTPREFIX);
+ //presetPath += "/share/muse/presets/deicsonze/ARCH_ALIN";
+ //museGlobalShare
+ QString presetPath(QString(INSTPREFIX) + QString("/") +
+ QString(SHAREINSTPREFIX) + QString("/") + // This has no prefix. Default is "share", set in top cmake script.
+ QString(INSTALL_NAME));
+ presetPath += "/presets/deicsonze/ARCH_ALIN";
+
+ file = fopen (presetPath.latin1(), "rt");
+ if (file == NULL) {
+ printf("can't open ");
+ printf("%s",presetPath.latin1());
+ printf("\n");
+ return;
+ }
+ else
+ {
+ while(fgets(s, 500, file) && !strstr(s, "** Source:"))
+ {
+ if (strstr(s,"* CATEGORY"))
+ {
+ sscanf(s, "* CATEGORY %s", scategory);
+ _categorySet->_categoryVector
+ .push_back(new subcategorySet(scategory));
+ }
+ if (strstr(s,"* SUBCATEGORY"))
+ {
+ sscanf(s, "* SUBCATEGORY %s", ssubcategory);
+ _categorySet->_categoryVector.back()->_subcategoryVector
+ .push_back(new presetSet(ssubcategory));
+ }
+ }
+ while(!feof(file))
+ {
+ _categorySet->_categoryVector.back()->_subcategoryVector.back()
+ ->_presetVector.push_back(new Preset);
+ presetTemp=_categorySet->_categoryVector.back()
+ ->_subcategoryVector.back()->_presetVector.back();
+ /************* Fill the preset *****************/
+ //OP.4 to OP.1
+ for(int kaka=(NBROP-1); kaka>=0; kaka--)
+ {
+ k=(kaka==2?1:(kaka==1?2:kaka));
+
+ fscanf(file, "%x", &v);//0
+ presetTemp->eg[k].ar=v;
+ fscanf(file, "%x", &v);//1
+ presetTemp->eg[k].d1r=v;
+ fscanf(file, "%x", &v);//2
+ presetTemp->eg[k].d2r=v;
+ fscanf(file, "%x", &v);//3
+ presetTemp->eg[k].rr=v;
+ fscanf(file, "%x", &v);//4
+ presetTemp->eg[k].d1l=v;
+ fscanf(file, "%x", &v);//5
+ presetTemp->scaling.level[k]=v;
+ fscanf(file, "%x", &v);//6
+ presetTemp->sensitivity.keyVelocity[k]=
+ v & 0x7;
+ presetTemp->sensitivity.egBias[k]=
+ (v & 0x38)>>3;
+ presetTemp->sensitivity.ampOn[k]=
+ (v & 0x40)>>6;
+ fscanf(file, "%x", &v);//7
+ presetTemp->outLevel[k]=v;
+ fscanf(file, "%x", &v);//8
+ crs[k]=v;
+ fscanf(file, "%x", &v);//9
+ presetTemp->detune[k]=(v & 0x7)-3;
+ presetTemp->scaling.rate[k]=(v & 0x18)>>3;
+ }
+ fscanf(file, "%x", &v);//40
+ presetTemp->algorithm=
+ ((v & 0x7)==0?FIRST:
+ ((v & 0x7)==1?SECOND:
+ ((v & 0x7)==2?THIRD:
+ ((v & 0x7)==3?FOURTH:
+ ((v & 0x7)==4?FIFTH:
+ ((v & 0x7)==5?SIXTH:
+ ((v & 0x7)==6?SEVENTH:EIGHTH)))))));
+ presetTemp->feedback=(v & 0x38)>>3;
+ presetTemp->lfo.sync=(v & 0x40)>>6;
+ fscanf(file, "%x", &v);//41
+ presetTemp->lfo.speed=v;
+ fscanf(file, "%x", &v);//42
+ presetTemp->lfo.delay=v;
+ fscanf(file, "%x", &v);//43
+ presetTemp->lfo.pModDepth=v;
+ fscanf(file, "%x", &v);//44
+ presetTemp->lfo.aModDepth=v;
+ fscanf(file, "%x", &v);//45
+ presetTemp->lfo.wave=
+ ((v & 0x3)==0?SAWUP:
+ ((v & 0x3)==1?SQUARE:
+ ((v & 0x3)==2?TRIANGL:SHOLD)));
+ presetTemp->sensitivity.amplitude=(v & 0xc)>>2;
+ presetTemp->sensitivity.pitch=(v & 0x70)>>4;
+ fscanf(file, "%x", &v);//46
+ presetTemp->function.transpose=v-24;
+ fscanf(file, "%x", &v);//47
+ presetTemp->function.pBendRange=v;
+ fscanf(file, "%x", &v);//48
+ presetTemp->function.portamento=
+ ((v & 0x1)==0?FULL:FINGER);
+ presetTemp->function.footSw=
+ ((v & 0x4)==0?SUS:POR);
+ presetTemp->function.mode=
+ ((v & 0x8)==0?POLY:MONO);
+ fscanf(file, "%x", &v);//49
+ presetTemp->function.portamentoTime=v;
+ fscanf(file, "%x", &v);//50
+ presetTemp->function.fcVolume=v;
+ fscanf(file, "%x", &v);//51
+ presetTemp->function.mwPitch=v;
+ fscanf(file, "%x", &v);//52
+ presetTemp->function.mwAmplitude=v;
+ fscanf(file, "%x", &v);//53
+ presetTemp->function.bcPitch=v;
+ fscanf(file, "%x", &v);//54
+ presetTemp->function.bcAmplitude=v;
+ fscanf(file, "%x", &v);//55
+ presetTemp->function.bcPitchBias=v;
+ fscanf(file, "%x", &v);//56
+ presetTemp->function.bcEgBias=v;
+ for(int l=0; l<10; l++)
+ {
+ fscanf(file, "%x", &v);//57 to 66
+ sname[l]=(char)v;
+ }
+ sname[10]='\0';
+ presetTemp->name=sname;
+ fscanf(file, "%x", &v);//67
+ presetTemp->pitchEg.pr1=v;
+ fscanf(file, "%x", &v);//68
+ presetTemp->pitchEg.pr2=v;
+ fscanf(file, "%x", &v);//69
+ presetTemp->pitchEg.pr3=v;
+ fscanf(file, "%x", &v);//70
+ presetTemp->pitchEg.pl1=v;
+ fscanf(file, "%x", &v);//71
+ presetTemp->pitchEg.pl1=v;
+ fscanf(file, "%x", &v);//72
+ presetTemp->pitchEg.pl1=v;
+ for(int kaka=(NBROP-1); kaka>=0; kaka--)
+ {
+ k=(kaka==2?1:(kaka==1?2:kaka));
+
+ fscanf(file, "%x", &v);//73, 75, 77, 79
+ presetTemp->frequency[k].isFix=(v & 0x8)>>3;
+ presetTemp->frequency[k].freq=(v & 0x7);
+ presetTemp->eg[k].egShift=
+ (((v & 0x30)>>4)==0?VOF:
+ (((v & 0x30)>>4)==1?V48:
+ (((v & 0x30)>>4)==2?V24:V12)));
+ fscanf(file, "%x", &v);//74, 76, 78, 80
+ fin[k]=v & 0xF;
+ presetTemp->frequency[k].ratio=
+ coarseFine2Ratio(crs[k],fin[k]);
+ presetTemp->oscWave[k]=
+ (((v & 0x70)>>4)==0?W1:
+ (((v & 0x70)>>4)==1?W2:
+ (((v & 0x70)>>4)==2?W3:
+ (((v & 0x70)>>4)==3?W4:
+ (((v & 0x70)>>4)==4?W5:
+ (((v & 0x70)>>4)==5?W6:
+ (((v & 0x70)>>4)==6?W7:W8)))))));
+ }
+ fscanf(file, "%x", &v);//81
+ presetTemp->function.reverbRate=v;
+ fscanf(file, "%x", &v);//82
+ presetTemp->function.fcPitch=v;
+ fscanf(file, "%x", &v);//83
+ presetTemp->function.fcAmplitude=v;
+ presetTemp->globalDetune=0;
+
+ presetTemp->subcategory=ssubcategory;
+ presetTemp->category=scategory;
+ presetTemp->bank=nBank;
+ presetTemp->prog=nPreset;
+ /******************** End of filling the preset ********/
+
+ nPreset++;
+ while(fgets(s, 500, file) && !strstr(s, "** Source:"))
+ {
+ if (strstr(s,"* CATEGORY"))
+ {
+ sscanf(s, "* CATEGORY %s", scategory);
+ _categorySet->_categoryVector
+ .push_back(new subcategorySet(scategory));
+ }
+ if (strstr(s,"* SUBCATEGORY"))
+ {
+ sscanf(s, "* SUBCATEGORY %s", ssubcategory);
+ _categorySet->_categoryVector.back()
+ ->_subcategoryVector
+ .push_back(new presetSet(ssubcategory));
+ }
+ if(strstr(s, "--Bank"))
+ {
+ nBank++;
+ nPreset=0;
+ }
+ }
+ }
+ }
+ //_categorySet->printBank();
+ fclose(file);
+}
+
+//---------------------------------------------------------
+// minVolu2Voice
+// return the number of the voice which is the least aloud
+// and is not is the ATTACK state
+//---------------------------------------------------------
+int DeicsOnze::minVolu2Voice()
+{
+ int minVoice=0;
+ double min=MAXVOLUME;
+ for(int i=0; i<NBRVOICES; i++)
+ {
+ min=((min>_voices[i].volume
+ && _voices[i].op[0].envState!=ATTACK
+ && _voices[i].op[1].envState!=ATTACK
+ && _voices[i].op[2].envState!=ATTACK
+ && _voices[i].op[3].envState!=ATTACK)?_voices[i].volume:min);
+ minVoice=(min==_voices[i].volume?i:minVoice);
+ }
+ return minVoice;
+}
+
+//---------------------------------------------------------
+// noteOff2Voice
+// return the number of the voice off, NBRVOICES otherwise
+//---------------------------------------------------------
+int DeicsOnze::noteOff2Voice()
+{
+ int offVoice=NBRVOICES;
+ for(int i=0; i<NBRVOICES; i++) offVoice=(_voices[i].isOn?offVoice:i);
+ return offVoice;
+}
+
+//---------------------------------------------------------
+// pitchOn2Voice
+// return the number of the voice which has the input
+// pitch and is On and not release, NBRVOICES otherwise
+//---------------------------------------------------------
+int DeicsOnze::pitchOn2Voice(int pitch)
+{
+ int pitchVoice=NBRVOICES;
+ for(int i=0; i<NBRVOICES; i++)
+ pitchVoice=((_voices[i].pitch==pitch
+ && _voices[i].isOn
+ && (_voices[i].op[0].envState==ATTACK
+ || _voices[i].op[0].envState==DECAY
+ || _voices[i].op[0].envState==SUSTAIN)
+ && !_voices[i].isSustained)?
+ i:pitchVoice);
+ return pitchVoice;
+}
+
+
+//---------------------------------------------------------
+// pitch2freq
+//---------------------------------------------------------
+inline double pitch2freq(double p)
+{
+ return(LOWERNOTEFREQ*exp(p*log(2.0)/12.0));
+}
+
+//---------------------------------------------------------
+// lfoUpdate
+// update the coefficent which multiplies the current inct in order to
+// get the right current frequency with respect to the lfo
+// update the coefficent which multiplies the amplitude.
+//---------------------------------------------------------
+inline void lfoUpdate(Preset* p, Global* p_g, float* wt)
+{
+ double delayCoef;
+
+ if(p_g->lfoIndex==0)
+ {
+ if(p_g->lfoDelayIndex<(double)(RESOLUTION/4))
+ {
+ delayCoef=(double)wt[(int)p_g->lfoDelayIndex];
+ p_g->lfoMaxCoefInct=exp((log(2.0)/12.0)*p_g->lfoPitch*delayCoef);
+ p_g->lfoCoefInctInct=
+ exp((log(2.0)/12.0)*((2*p_g->lfoPitch*delayCoef)
+ /p_g->lfoMaxIndex));
+ p_g->lfoDelayIndex+=p_g->lfoDelayInct;
+ p_g->lfoMaxDAmp=delayCoef*p_g->lfoMaxAmp;
+ }
+ else
+ if(!p_g->delayPassed)
+ {
+ p_g->lfoMaxCoefInct=exp((log(2.0)/12.0)*p_g->lfoPitch);
+ p_g->lfoCoefInctInct=
+ exp((log(2.0)/12.0)*((2*p_g->lfoPitch)/p_g->lfoMaxIndex));
+ p_g->delayPassed=true;
+ p_g->lfoMaxDAmp=p_g->lfoMaxDAmp;
+ }
+ }
+
+ switch(p->lfo.wave)
+ {
+ case SAWUP :
+ if(p_g->lfoIndex==0)
+ {
+ p_g->lfoCoefInct=1.0/(p_g->lfoMaxCoefInct);
+ p_g->lfoCoefAmp=p_g->lfoMaxDAmp/(double)p_g->lfoMaxIndex;
+ p_g->lfoAmp=1.0;
+ }
+ else
+ {
+ p_g->lfoCoefInct*=p_g->lfoCoefInctInct;
+ p_g->lfoAmp-=p_g->lfoCoefAmp;
+ }
+ break;
+ case SQUARE :
+ if(p_g->lfoIndex==0)
+ {
+ p_g->lfoCoefInct=p_g->lfoMaxCoefInct;
+ p_g->lfoAmp=1.0;
+ }
+ if(p_g->lfoIndex==(p_g->lfoMaxIndex/2))
+ {
+ p_g->lfoCoefInct=1.0/p_g->lfoMaxCoefInct;
+ p_g->lfoAmp=1.0-p_g->lfoMaxDAmp;
+ }
+ break;
+ case TRIANGL :
+ if(p_g->lfoIndex==0)
+ {
+ p_g->lfoCoefInct=1.0;
+ p_g->lfoCoefAmp=p_g->lfoMaxDAmp
+ /(double)(p_g->lfoMaxIndex/2);
+ p_g->lfoAmp=1.0-p_g->lfoMaxDAmp/2.0;
+ }
+ else if(p_g->lfoIndex<(p_g->lfoMaxIndex/4))
+ {
+ p_g->lfoCoefInct*=p_g->lfoCoefInctInct;
+ p_g->lfoAmp-=p_g->lfoCoefAmp;
+ }
+ else if(p_g->lfoIndex<((3*p_g->lfoMaxIndex)/4))
+ {
+ p_g->lfoCoefInct/=p_g->lfoCoefInctInct;
+ p_g->lfoAmp+=p_g->lfoCoefAmp;
+ }
+ else if(p_g->lfoIndex<p_g->lfoMaxIndex)
+ {
+ p_g->lfoCoefInct*=p_g->lfoCoefInctInct;
+ p_g->lfoAmp-=p_g->lfoCoefAmp;
+ }
+ break;
+ case SHOLD :
+ if(p_g->lfoIndex==0||p_g->lfoIndex==(p_g->lfoMaxIndex/2))
+ {
+ double r;//uniform random between -1.0 and 1.0
+ r = (double)(2*rand()-RAND_MAX)/(double)RAND_MAX;
+ p_g->lfoCoefInct=(r>=0.0?1.0+r*(p_g->lfoMaxCoefInct-1.0)
+ :1.0/(1.0-r*(p_g->lfoMaxCoefInct-1.0)));
+ p_g->lfoAmp=1.0-(r/2.0+0.5)*p_g->lfoMaxDAmp;
+ }
+ break;
+ default : printf("Error : flo wave does not exist");
+ break;
+ }
+ p_g->lfoIndex=(p_g->lfoIndex<p_g->lfoMaxIndex?p_g->lfoIndex+1:0);
+ //printf("indexLfo : %d\n",p_g->indexLfo);
+}
+
+//---------------------------------------------------------
+// outLevel2Amp, Amp for amplitude //between 0.0 and 2.0 or more
+// 100->2.0, 90->1.0, 80->0.5 ...
+//---------------------------------------------------------
+inline double outLevel2Amp(int ol)
+{
+ double a;
+ double b;
+ a = log(2)/10.0;
+ b = -a*DB0LEVEL;
+ return exp(a*(double)ol+b);
+}
+
+//---------------------------------------------------------
+// velo2RAmp, AmpR between 0.0 and 1.0
+// return an amplitude ratio with respect to _preset->sensitivity.keyVelocity
+//---------------------------------------------------------
+inline double velo2AmpR(int velo, int kvs)
+{
+ double lev;
+ lev = exp(-log(2)*kvs);
+ return (lev+(1.0-lev)*((double)velo/(double)MAXVELO));
+}
+
+//---------------------------------------------------------
+// envAR2s
+// return the time in second of the ATTACK duration
+//---------------------------------------------------------
+inline double envAR2s(int ar)
+{
+ //determined using the fitting feature of gnuplot
+ return 10.4423*exp(-0.353767*ar);
+}
+
+//---------------------------------------------------------
+// envD1R2coef
+// return the coefficient for the exponential decrease
+// with respect to d1r and sampleRate, sr
+//---------------------------------------------------------
+inline double envD1R2coef(int d1r, int sr)
+{
+ double dt;//such that amp(t+dt)=amp(t)/2
+ double alpha;//such that amp(t)=exp(alpha*t)
+
+ if(d1r==0) return 1.0;
+ else
+ {
+ //dt has been determined with the fitting function of gnuplot
+ dt=9.80715*exp(-0.356053*(double)d1r);
+
+ //amp(0)=1
+ //amp(t+dt)=amp(t)/2
+ //amp(t)=exp(alpha*t)
+ //amp(t+mt)
+ //following the above equational system we found :
+ alpha=-log(2)/dt;
+ return exp(alpha/(double)sr);
+ }
+}
+
+//---------------------------------------------------------
+// envRR2coef
+// return the coefficient for the exponential decrease
+// with respect to rr and sampleRate, sr
+//---------------------------------------------------------
+inline double envRR2coef(int rr, int sr)
+{
+ double dt;//such that amp(t+dt)=amp(t)/2
+ double alpha;//such that amp(t)=exp(alpha*t)
+
+//dt has been determined with the fitting function of gnuplot
+ dt=7.06636*exp(-0.697606*(double)rr);
+
+ //amp(0)=1
+ //amp(t+dt)=amp(t)/2
+ //amp(t)=exp(alpha*t)
+ //amp(t+mt)
+ //following the above equational system we found :
+ alpha=-log(2)/dt;
+ return exp(alpha/(double)sr);
+}
+
+
+//---------------------------------------------------------
+// env2RAmp
+// return the amplitude ratio with respect to an envelope and an
+// envelope state, making evoluate the envelope
+// sr is the sample rate and st the sine_table
+//---------------------------------------------------------
+inline double env2AmpR(int sr, float* wt, Eg eg, OpVoice* p_opVoice)
+{
+ switch(p_opVoice->envState)
+ {
+ case ATTACK:
+ p_opVoice->envIndex+=p_opVoice->envInct;
+ if (p_opVoice->envIndex<(RESOLUTION/4))
+ {
+ p_opVoice->envLevel=wt[(int)p_opVoice->envIndex];
+ }
+ else
+ {
+ //printf("DECAY\n");
+ p_opVoice->envState=DECAY;
+ p_opVoice->envLevel=1.0;
+ p_opVoice->coefVLevel=envD1R2coef(eg.d1r, sr);
+ }
+ break;
+ case DECAY:
+ if (p_opVoice->envLevel>((double)eg.d1l/(double)MAXD1L)+COEFERRDECSUS)
+ {
+ p_opVoice->envLevel*=p_opVoice->coefVLevel;
+ }
+ else
+ {
+ //printf("SUSTAIN\n");
+ p_opVoice->envState=SUSTAIN;
+ p_opVoice->envLevel=((double)eg.d1l/(double)MAXD1L);
+ p_opVoice->coefVLevel=envD1R2coef(eg.d2r, sr);//probably the same
+ }
+ break;
+ case SUSTAIN:
+ if (p_opVoice->envLevel>COEFERRSUSREL)
+ {
+ p_opVoice->envLevel*=p_opVoice->coefVLevel;
+ }
+ else
+ {
+ //printf("OFF\n");
+ p_opVoice->envState=OFF;
+ p_opVoice->envLevel=0.0;
+ }
+ break;
+ case RELEASE:
+ if (p_opVoice->envLevel > COEFERRSUSREL)
+ {
+ p_opVoice->envLevel*=p_opVoice->coefVLevel;
+ }
+ else
+ {
+ p_opVoice->envState=OFF;
+ p_opVoice->envLevel=0.0;
+ }
+ break;
+ default:
+ printf("Error case envelopeState");
+ /* fall thru */
+ case OFF:
+ p_opVoice->envLevel = 0.0;
+ break;
+ }
+ return p_opVoice->envLevel;
+
+
+}
+
+//---------------------------------------------------------
+// programSelect
+//---------------------------------------------------------
+
+void DeicsOnze::programSelect(int /*ch*/, int lbank, int prog) {
+ Preset* p_preset;
+ p_preset=findPreset(lbank, prog);
+ if (p_preset) _preset=p_preset;
+ else _preset->initPreset();
+ setPreset();
+}
+
+//---------------------------------------------------------
+// setPitchBendCoef
+//---------------------------------------------------------
+
+void DeicsOnze::setPitchBendCoef(int /*ch*/, int val) {
+ _global.pitchBendCoef=exp(log(2)
+ *((double)_preset->function.pBendRange
+ /(double)MAXPBENDRANGE)
+ *((double)val/(double)MAXPITCHBENDVALUE));
+}
+
+//---------------------------------------------------------
+// setSustain
+//---------------------------------------------------------
+void DeicsOnze::setSustain(int /*ch*/, int val) {
+ _global.sustain=(val>64);
+ if(!_global.sustain)
+ for(int i=0; i<NBRVOICES; i++)
+ if(_voices[i].isSustained) {
+ for(int j=0; j<NBROP; j++) {
+ _voices[i].op[j].envState=RELEASE;
+ _voices[i].op[j].coefVLevel=envRR2coef(_preset->eg[j].rr
+ ,sampleRate());
+ }
+ _voices[i].isSustained=false;
+ }
+}
+
+//---------------------------------------------------------
+// setController
+//---------------------------------------------------------
+
+bool DeicsOnze::setController(int ch, int ctrl, int val)
+{
+ switch(ctrl) {
+ case CTRL_PROGRAM:
+ {
+ int hbank = (val & 0xff0000) >> 16;
+ int lbank = (val & 0xff00) >> 8;
+ if (hbank > 127) // map "dont care" to 0
+ hbank = 0;
+ if (lbank > 127)
+ lbank = 0;
+ if (lbank == 127 || ch == 9) // drum HACK
+ lbank = 128;
+ int prog = val & 0x7f;
+ programSelect(ch, lbank, prog);
+ _gui->updatePreset();
+ }
+ break;
+ case CTRL_PITCH:
+ setPitchBendCoef(ch, val);
+ break;
+ case CTRL_SUSTAIN:
+ setSustain(ch, val);
+ break;
+ default:
+ break;
+ }
+ return false;
+}
+
+//---------------------------------------------------------
+// getPatchName
+//---------------------------------------------------------
+
+const char* DeicsOnze::getPatchName(int /*ch*/, int val, int, bool /*drum*/) const
+{
+ int prog = val & 0xff;
+ if(val == CTRL_VAL_UNKNOWN || prog == 0xff)
+ return "<unknown>";
+ prog &= 0x7f;
+
+ Preset* p_preset;
+ int hbank = (val & 0xff0000) >> 16;
+ int lbank = (val & 0xff00) >> 8;
+ if (hbank > 127)
+ hbank = 0;
+ if (lbank > 127)
+ lbank = 0;
+ if (lbank == 127) // drum HACK
+ lbank = 128;
+ const char* name="<unknown>";
+ p_preset=_categorySet->findPreset(lbank, prog);
+ if (p_preset) name=const_cast<char *>(p_preset->name.c_str());
+ return name;
+}
+
+
+//---------------------------------------------------------
+// getPatchInfo
+//---------------------------------------------------------
+
+const MidiPatch* DeicsOnze::getPatchInfo(int /*ch*/, const MidiPatch* /*p*/) const
+{
+ /*if(_numPatch<NBRBANKPRESETS)
+ {
+ _patch.typ = 0;
+ _patch.name = bankA[_numPatch].name;
+ _patch.lbank = 1;
+ _patch.prog = _numPatch;
+ return &_patch;
+ }*/
+ return 0;
+}
+
+
+//---------------------------------------------------------
+// playNote
+// process note on
+//---------------------------------------------------------
+
+bool DeicsOnze::playNote(int /*channel*/, int pitch, int velo)
+{
+ int newVoice;
+ int nO2V;
+ int p2V;
+
+ p2V=pitchOn2Voice(pitch);
+
+ if(velo==0) {//Note off
+ if(p2V<NBRVOICES)
+ {
+ if(_global.sustain) _voices[p2V].isSustained=true;
+ else
+ for(int i=0; i<NBROP; i++)
+ {
+ _voices[p2V].op[i].envState=RELEASE;
+ _voices[p2V].op[i].coefVLevel=envRR2coef(_preset->eg[i].rr
+ ,sampleRate());
+ }
+ return false;}
+ //else printf("error over NBRVOICES\n");
+ }
+ else //Note on
+ {
+ nO2V=noteOff2Voice();
+ newVoice=((nO2V==NBRVOICES)?minVolu2Voice():nO2V);
+
+ _voices[newVoice].isOn=true;
+ _voices[newVoice].sampleFeedback=0.0;
+ _voices[newVoice].pitch=pitch;
+
+ /*if(_preset->lfo.sync)*/ _global.lfoIndex=0;//a revoir
+ _global.lfoDelayIndex=0.0;
+ _global.delayPassed=false;
+
+ for(int i=0; i<NBROP; i++)
+ {
+ _voices[newVoice].op[i].amp=outLevel2Amp(_preset->outLevel[i])
+ *velo2AmpR(velo, _preset->sensitivity.keyVelocity[i])
+ *note2Amp((double)(pitch+_preset->function.transpose),
+ _preset->scaling.level[i]);
+ _voices[newVoice].op[i].index=0.0;
+ _voices[newVoice].op[i].freq=
+ (pitch2freq((double)_preset->globalDetune
+ /(double)MAXGLOBALDETUNE)
+ /LOWERNOTEFREQ)*
+ (_preset->frequency[i].isFix?
+ _preset->frequency[i].freq:
+ (_preset->frequency[i].ratio
+ *pitch2freq((double)(pitch+_preset->function.transpose)
+ +(double)_preset->detune[i]*COEFDETUNE)));
+ _voices[newVoice].op[i].inct=(double)RESOLUTION
+ /((double)sampleRate()/_voices[newVoice].op[i].freq);
+ _voices[newVoice].op[i].envState=ATTACK;
+ _voices[newVoice].op[i].envIndex=0.0;
+ _voices[newVoice].op[i].envInct=(_preset->eg[i].ar==0?0:
+ (double)(RESOLUTION/4)
+ /(envAR2s(_preset->eg[i].ar)
+ *(double)sampleRate()));
+ }
+ return false;
+ }
+ return false;
+}
+
+//---------------------------------------------------------
+// plusMod
+// add two doubles modulo SINRESOLUTION
+//---------------------------------------------------------
+inline double plusMod(double x, double y)
+{
+ double res;
+ res=x+y;
+ if (res>=0) while (res >= (double)RESOLUTION) res-=(double)RESOLUTION;
+ else while (res < 0) res+=(double)RESOLUTION;
+ return res;
+}
+
+
+//---------------------------------------------------------
+// write
+// synthesize n samples into buffer+offset
+//---------------------------------------------------------
+
+void DeicsOnze::process(float** buffer, int offset, int n)
+{
+ float* p = buffer[0] + offset;
+ float sample[NBRVOICES];
+ float resSample;
+ float sampleOp[NBROP];
+ float ampOp[NBROP];
+ for(int i = 0; i < n; i++)
+ {
+ resSample = 0;
+ //stepProcess return the result to resSample
+
+ //Global
+ lfoUpdate(_preset, &_global, waveTable[W2]);
+
+ //per voice
+ for(int j=0; j<NBRVOICES; j++)
+ {
+ if (_voices[j].isOn)
+ {
+ for(int k=0; k<NBROP; k++)
+ {
+ _voices[j].op[k].index=
+ plusMod(_voices[j].op[k].index,
+ _global.lfoCoefInct*_voices[j].op[k].inct
+ *_global.pitchBendCoef);
+
+ ampOp[k]=_voices[j].op[k].amp*COEFLEVEL
+ *(_preset->sensitivity.ampOn[k]?_global.lfoAmp:1.0)
+ *env2AmpR(sampleRate(), waveTable[W2],
+ _preset->eg[k], &_voices[j].op[k]);
+ }
+
+ switch(_preset->algorithm)
+ {
+ case FIRST :
+ sampleOp[3]=ampOp[3]
+ *waveTable[_preset->oscWave[3]]
+ [(int)plusMod(_voices[j].op[3].index,
+ (float)RESOLUTION
+ *_voices[j].sampleFeedback)];
+ sampleOp[2]=ampOp[2]
+ *waveTable[_preset->oscWave[2]]
+ [(int)plusMod(_voices[j].op[2].index,
+ (float)RESOLUTION*sampleOp[3])];
+ sampleOp[1]=ampOp[1]
+ *waveTable[_preset->oscWave[1]]
+ [(int)plusMod(_voices[j].op[1].index,
+ (float)RESOLUTION*sampleOp[2])];
+ sampleOp[0]=ampOp[0]
+ *waveTable[_preset->oscWave[0]]
+ [(int)plusMod(_voices[j].op[0].index,
+ (float)RESOLUTION*sampleOp[1])];
+
+ sample[j]=sampleOp[0];///COEFLEVEL;
+
+ _voices[j].isOn=(_voices[j].op[0].envState!=OFF);
+ break;
+ case SECOND :
+ sampleOp[3]=ampOp[3]
+ *waveTable[_preset->oscWave[3]]
+ [(int)plusMod(_voices[j].op[3].index,
+ (float)RESOLUTION
+ *_voices[j].sampleFeedback)];
+ sampleOp[2]=ampOp[2]
+ *waveTable[_preset->oscWave[2]]
+ [(int)_voices[j].op[2].index];
+ sampleOp[1]=ampOp[1]
+ *waveTable[_preset->oscWave[1]]
+ [(int)plusMod(_voices[j].op[1].index,
+ (float)RESOLUTION
+ *(sampleOp[2]+sampleOp[3])/2.0)];
+ sampleOp[0]=ampOp[0]
+ *waveTable[_preset->oscWave[0]]
+ [(int)plusMod(_voices[j].op[0].index,
+ (float)RESOLUTION
+ *sampleOp[1])];
+
+ sample[j]=sampleOp[0];///COEFLEVEL;
+
+ _voices[j].isOn=(_voices[j].op[0].envState!=OFF);
+ break;
+ case THIRD :
+ sampleOp[3]=ampOp[3]
+ *waveTable[_preset->oscWave[3]]
+ [(int)plusMod(_voices[j].op[3].index,
+ (float)RESOLUTION
+ *_voices[j].sampleFeedback)];
+ sampleOp[2]=ampOp[2]
+ *waveTable[_preset->oscWave[2]]
+ [(int)_voices[j].op[2].index];
+ sampleOp[1]=ampOp[1]
+ *waveTable[_preset->oscWave[1]]
+ [(int)plusMod(_voices[j].op[1].index,
+ (float)RESOLUTION*sampleOp[2])];
+ sampleOp[0]=ampOp[0]
+ *waveTable[_preset->oscWave[0]]
+ [(int)plusMod(_voices[j].op[0].index,
+ (float)RESOLUTION
+ *(sampleOp[3]+sampleOp[1])/2.0)];
+
+ sample[j]=sampleOp[0];///COEFLEVEL;
+
+ _voices[j].isOn=(_voices[j].op[0].envState!=OFF);
+ break;
+ case FOURTH :
+ sampleOp[3]=ampOp[3]
+ *waveTable[_preset->oscWave[3]]
+ [(int)plusMod(_voices[j].op[3].index,
+ (float)RESOLUTION
+ *_voices[j].sampleFeedback)];
+ sampleOp[2]=ampOp[2]
+ *waveTable[_preset->oscWave[2]]
+ [(int)plusMod(_voices[j].op[2].index,
+ (float)RESOLUTION
+ *sampleOp[3])];
+ sampleOp[1]=ampOp[1]
+ *waveTable[_preset->oscWave[1]]
+ [(int)_voices[j].op[1].index];
+ sampleOp[0]=ampOp[0]
+ *waveTable[_preset->oscWave[0]]
+ [(int)plusMod(_voices[j].op[0].index,
+ (float)RESOLUTION
+ *(sampleOp[1]+sampleOp[2])/2.0)];
+
+ sample[j]=sampleOp[0];///COEFLEVEL;
+
+ _voices[j].isOn=(_voices[j].op[0].envState!=OFF);
+ break;
+ case FIFTH :
+ sampleOp[3]=ampOp[3]
+ *waveTable[_preset->oscWave[3]]
+ [(int)plusMod(_voices[j].op[3].index,
+ (float)RESOLUTION
+ *_voices[j].sampleFeedback)];
+ sampleOp[2]=ampOp[2]
+ *waveTable[_preset->oscWave[2]]
+ [(int)plusMod(_voices[j].op[2].index,
+ (float)RESOLUTION*sampleOp[3])];
+ sampleOp[1]=ampOp[1]
+ *waveTable[_preset->oscWave[1]]
+ [(int)_voices[j].op[1].index];
+ sampleOp[0]=ampOp[0]
+ *waveTable[_preset->oscWave[0]]
+ [(int)plusMod(_voices[j].op[0].index,
+ (float)RESOLUTION*sampleOp[1])];
+
+ sample[j]=(sampleOp[0]+sampleOp[2])/2.0;///COEFLEVEL;
+
+ _voices[j].isOn=(_voices[j].op[0].envState!=OFF
+ ||_voices[j].op[2].envState!=OFF);
+ break;
+ case SIXTH :
+ sampleOp[3]=ampOp[3]
+ *waveTable[_preset->oscWave[3]]
+ [(int)plusMod(_voices[j].op[3].index,
+ (float)RESOLUTION
+ *_voices[j].sampleFeedback)];
+ sampleOp[2]=ampOp[2]
+ *waveTable[_preset->oscWave[2]]
+ [(int)plusMod(_voices[j].op[2].index,
+ (float)RESOLUTION*sampleOp[3])];
+ sampleOp[1]=ampOp[1]
+ *waveTable[_preset->oscWave[1]]
+ [(int)plusMod(_voices[j].op[1].index,
+ (float)RESOLUTION*sampleOp[3])];
+ sampleOp[0]=ampOp[0]
+ *waveTable[_preset->oscWave[0]]
+ [(int)plusMod(_voices[j].op[0].index,
+ (float)RESOLUTION*sampleOp[3])];
+
+ sample[j]=(sampleOp[0]+sampleOp[1]+sampleOp[2])/3.0;
+
+ _voices[j].isOn=(_voices[j].op[0].envState!=OFF);
+ break;
+ case SEVENTH :
+ sampleOp[3]=ampOp[3]
+ *waveTable[_preset->oscWave[3]]
+ [(int)plusMod(_voices[j].op[3].index,
+ (float)RESOLUTION
+ *_voices[j].sampleFeedback)];
+ sampleOp[2]=ampOp[2]
+ *waveTable[_preset->oscWave[2]]
+ [(int)plusMod(_voices[j].op[2].index,
+ (float)RESOLUTION*sampleOp[3])];
+ sampleOp[1]=ampOp[1]
+ *waveTable[_preset->oscWave[1]]
+ [(int)_voices[j].op[1].index];
+ sampleOp[0]=ampOp[0]*waveTable[_preset->oscWave[3]]
+ [(int)_voices[j].op[0].index];
+
+ sample[j]=(sampleOp[0]+sampleOp[1]+sampleOp[2])/3.0;
+
+ _voices[j].isOn=(_voices[j].op[0].envState!=OFF);
+ break;
+ case EIGHTH :
+ sampleOp[3]=ampOp[3]
+ *waveTable[_preset->oscWave[3]]
+ [(int)plusMod(_voices[j].op[3].index,
+ (float)RESOLUTION
+ *_voices[j].sampleFeedback)];
+ sampleOp[2]=ampOp[2]
+ *waveTable[_preset->oscWave[3]]
+ [(int)_voices[j].op[2].index];
+ sampleOp[1]=ampOp[1]
+ *waveTable[_preset->oscWave[3]]
+ [(int)_voices[j].op[1].index];
+ sampleOp[0]=ampOp[0]
+ *waveTable[_preset->oscWave[3]]
+ [(int)_voices[j].op[0].index];
+
+ sample[j]=
+ (sampleOp[0]+sampleOp[1]+sampleOp[2]+sampleOp[3])
+ /4.0;
+
+ _voices[j].isOn=(_voices[j].op[0].envState!=OFF
+ || _voices[j].op[1].envState!=OFF
+ || _voices[j].op[2].envState!=OFF
+ || _voices[j].op[3].envState!=OFF);
+ break;
+ default : printf("Error : No algorithm");
+
+ sampleOp[3]= sampleOp[2]= sampleOp[1]= sampleOp[0]=0; //prevent unitialiazed use of variable
+ break;
+ }
+
+ _voices[j].volume=
+ ampOp[0]+ampOp[1]+ampOp[2]+ampOp[3];
+
+ _voices[j].sampleFeedback=sampleOp[3]*_global.feedbackAmp;
+
+ resSample += sample[j];
+ }
+ }
+ p[i] += resSample*_global.amp;
+ }
+}
+
+//---------------------------------------------------------
+// processEvent
+// All events from the sequencer go here
+//---------------------------------------------------------
+bool DeicsOnze::processEvent(const MidiPlayEvent& ev)
+{
+ switch(ev.type()) {
+ case ME_CONTROLLER:
+ setController(ev.channel(), ev.dataA(), ev.dataB());
+ return true;
+ case ME_NOTEON:
+ return playNote(ev.channel(), ev.dataA(), ev.dataB());
+ case ME_NOTEOFF:
+ return playNote(ev.channel(), ev.dataA(), 0);
+ case ME_SYSEX:
+ return sysex(ev.len(), ev.data());
+ case ME_PITCHBEND:
+ setController(ev.channel(), CTRL_PITCH, ev.dataA());
+ break;
+ case ME_PROGRAM:
+ setController(ev.channel(), CTRL_PROGRAM, ev.dataA());
+ break;
+ default:
+ break;
+ }
+ return false;
+}
+
+//---------------------------------------------------------
+// inst
+//---------------------------------------------------------
+
+class QWidget;
+
+static Mess* instantiate(int sr, QWidget*, QString* projectPathPtr, const char*)
+{
+ DeicsOnze* deicsonze = new DeicsOnze();
+ deicsonze->setSampleRate(sr);
+ return deicsonze;
+}
+
+extern "C" {
+ static MESS descriptor = {
+ "DeicsOnze",
+ "DeicsOnze FM DX11 emulator",
+ "0.2.2", // version string
+ MESS_MAJOR_VERSION, MESS_MINOR_VERSION,
+ instantiate
+ };
+ // We must compile with -fvisibility=hidden to avoid namespace
+ // conflicts with global variables.
+ // Only visible symbol is "mess_descriptor".
+ // (TODO: all plugins should be compiled this way)
+
+ __attribute__ ((visibility("default")))
+ const MESS* mess_descriptor() { return &descriptor; }
+}
+