summaryrefslogtreecommitdiff
path: root/muse_qt4_evolution/synti/zynaddsubfx/Synth/PADnote.C
diff options
context:
space:
mode:
authorRobert Jonsson <spamatica@gmail.com>2009-12-27 11:30:35 +0000
committerRobert Jonsson <spamatica@gmail.com>2009-12-27 11:30:35 +0000
commitb703eab295330e6f81564fbb39a10a1a2fdd2f54 (patch)
treee46b5c9a6bc22fd661c15d1d2123f5bf631cef80 /muse_qt4_evolution/synti/zynaddsubfx/Synth/PADnote.C
parent5d5fa0fdf913907edbc3d2d29a7548f0cb658c94 (diff)
moved old qt4 branch
Diffstat (limited to 'muse_qt4_evolution/synti/zynaddsubfx/Synth/PADnote.C')
-rw-r--r--muse_qt4_evolution/synti/zynaddsubfx/Synth/PADnote.C342
1 files changed, 342 insertions, 0 deletions
diff --git a/muse_qt4_evolution/synti/zynaddsubfx/Synth/PADnote.C b/muse_qt4_evolution/synti/zynaddsubfx/Synth/PADnote.C
new file mode 100644
index 00000000..9ecc8877
--- /dev/null
+++ b/muse_qt4_evolution/synti/zynaddsubfx/Synth/PADnote.C
@@ -0,0 +1,342 @@
+/*
+ ZynAddSubFX - a software synthesizer
+
+ PADnote.C - The "pad" synthesizer
+ Copyright (C) 2002-2005 Nasca Octavian Paul
+ Author: Nasca Octavian Paul
+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of version 2 of the GNU General Public License
+ as published by the Free Software Foundation.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License (version 2) for more details.
+
+ You should have received a copy of the GNU General Public License (version 2)
+ along with this program; if not, write to the Free Software Foundation,
+ Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+*/
+#include <math.h>
+#include "PADnote.h"
+#include "../Misc/Config.h"
+
+PADnote::PADnote(PADnoteParameters *parameters, Controller *ctl_,REALTYPE freq, REALTYPE velocity, int portamento_, int midinote){
+ ready=0;
+ pars=parameters;
+ portamento=portamento_;
+ ctl=ctl_;
+ this->velocity=velocity;
+ finished_=false;
+
+
+ if (pars->Pfixedfreq==0) basefreq=freq;
+ else {
+ basefreq=440.0;
+ int fixedfreqET=pars->PfixedfreqET;
+ if (fixedfreqET!=0) {//if the frequency varies according the keyboard note
+ REALTYPE tmp=(midinote-69.0)/12.0*(pow(2.0,(fixedfreqET-1)/63.0)-1.0);
+ if (fixedfreqET<=64) basefreq*=pow(2.0,tmp);
+ else basefreq*=pow(3.0,tmp);
+ };
+
+ };
+
+ firsttime=true;
+ released=false;
+ realfreq=basefreq;
+ NoteGlobalPar.Detune=getdetune(pars->PDetuneType
+ ,pars->PCoarseDetune,pars->PDetune);
+
+
+ //find out the closest note
+ REALTYPE logfreq=log(basefreq*pow(2.0,NoteGlobalPar.Detune/1200.0));
+ REALTYPE mindist=fabs(logfreq-log(pars->sample[0].basefreq+0.0001));
+ nsample=0;
+ for (int i=1;i<PAD_MAX_SAMPLES;i++){
+ if (pars->sample[i].smp==NULL) break;
+ REALTYPE dist=fabs(logfreq-log(pars->sample[i].basefreq+0.0001));
+// printf("(mindist=%g) %i %g %g\n",mindist,i,dist,pars->sample[i].basefreq);
+
+ if (dist<mindist){
+ nsample=i;
+ mindist=dist;
+ };
+ };
+
+ int size=pars->sample[nsample].size;
+ if (size==0) size=1;
+
+
+ poshi_l=(int)(RND*(size-1));
+ if (pars->PStereo!=0) poshi_r=(poshi_l+size/2)%size;
+ else poshi_r=poshi_l;
+ poslo=0.0;
+
+ tmpwave=new REALTYPE [SOUND_BUFFER_SIZE];
+
+
+
+ if (pars->PPanning==0) NoteGlobalPar.Panning=RND;
+ else NoteGlobalPar.Panning=pars->PPanning/128.0;
+
+ NoteGlobalPar.FilterCenterPitch=pars->GlobalFilter->getfreq()+//center freq
+ pars->PFilterVelocityScale/127.0*6.0* //velocity sensing
+ (VelF(velocity,pars->PFilterVelocityScaleFunction)-1);
+
+ if (pars->PPunchStrength!=0) {
+ NoteGlobalPar.Punch.Enabled=1;
+ NoteGlobalPar.Punch.t=1.0;//start from 1.0 and to 0.0
+ NoteGlobalPar.Punch.initialvalue=( (pow(10,1.5*pars->PPunchStrength/127.0)-1.0)
+ *VelF(velocity,pars->PPunchVelocitySensing) );
+ REALTYPE time=pow(10,3.0*pars->PPunchTime/127.0)/10000.0;//0.1 .. 100 ms
+ REALTYPE stretch=pow(440.0/freq,pars->PPunchStretch/64.0);
+ NoteGlobalPar.Punch.dt=1.0/(time*SAMPLE_RATE*stretch);
+ } else NoteGlobalPar.Punch.Enabled=0;
+
+
+
+ NoteGlobalPar.FreqEnvelope=new Envelope(pars->FreqEnvelope,basefreq);
+ NoteGlobalPar.FreqLfo=new LFO(pars->FreqLfo,basefreq);
+
+ NoteGlobalPar.AmpEnvelope=new Envelope(pars->AmpEnvelope,basefreq);
+ NoteGlobalPar.AmpLfo=new LFO(pars->AmpLfo,basefreq);
+
+ NoteGlobalPar.Volume=4.0*pow(0.1,3.0*(1.0-pars->PVolume/96.0))//-60 dB .. 0 dB
+ *VelF(velocity,pars->PAmpVelocityScaleFunction);//velocity sensing
+
+ NoteGlobalPar.AmpEnvelope->envout_dB();//discard the first envelope output
+ globaloldamplitude=globalnewamplitude=NoteGlobalPar.Volume*NoteGlobalPar.AmpEnvelope->envout_dB()*NoteGlobalPar.AmpLfo->amplfoout();
+
+ NoteGlobalPar.GlobalFilterL=new Filter(pars->GlobalFilter);
+ NoteGlobalPar.GlobalFilterR=new Filter(pars->GlobalFilter);
+
+ NoteGlobalPar.FilterEnvelope=new Envelope(pars->FilterEnvelope,basefreq);
+ NoteGlobalPar.FilterLfo=new LFO(pars->FilterLfo,basefreq);
+ NoteGlobalPar.FilterQ=pars->GlobalFilter->getq();
+ NoteGlobalPar.FilterFreqTracking=pars->GlobalFilter->getfreqtracking(basefreq);
+
+ ready=1;///sa il pun pe asta doar cand e chiar gata
+
+ if (parameters->sample[nsample].smp==NULL){
+ finished_=true;
+ return;
+ };
+};
+
+PADnote::~PADnote(){
+ delete (NoteGlobalPar.FreqEnvelope);
+ delete (NoteGlobalPar.FreqLfo);
+ delete (NoteGlobalPar.AmpEnvelope);
+ delete (NoteGlobalPar.AmpLfo);
+ delete (NoteGlobalPar.GlobalFilterL);
+ delete (NoteGlobalPar.GlobalFilterR);
+ delete (NoteGlobalPar.FilterEnvelope);
+ delete (NoteGlobalPar.FilterLfo);
+ delete (tmpwave);
+};
+
+
+inline void PADnote::fadein(REALTYPE *smps){
+ int zerocrossings=0;
+ for (int i=1;i<SOUND_BUFFER_SIZE;i++)
+ if ((smps[i-1]<0.0) && (smps[i]>0.0)) zerocrossings++;//this is only the possitive crossings
+
+ REALTYPE tmp=(SOUND_BUFFER_SIZE-1.0)/(zerocrossings+1)/3.0;
+ if (tmp<8.0) tmp=8.0;
+
+ int n;
+ F2I(tmp,n);//how many samples is the fade-in
+ if (n>SOUND_BUFFER_SIZE) n=SOUND_BUFFER_SIZE;
+ for (int i=0;i<n;i++) {//fade-in
+ REALTYPE tmp=0.5-cos((REALTYPE)i/(REALTYPE) n*PI)*0.5;
+ smps[i]*=tmp;
+ };
+};
+
+
+void PADnote::computecurrentparameters(){
+ REALTYPE globalpitch,globalfilterpitch;
+ globalpitch=0.01*(NoteGlobalPar.FreqEnvelope->envout()+
+ NoteGlobalPar.FreqLfo->lfoout()*ctl->modwheel.relmod+NoteGlobalPar.Detune);
+ globaloldamplitude=globalnewamplitude;
+ globalnewamplitude=NoteGlobalPar.Volume*NoteGlobalPar.AmpEnvelope->envout_dB()*NoteGlobalPar.AmpLfo->amplfoout();
+
+ globalfilterpitch=NoteGlobalPar.FilterEnvelope->envout()+NoteGlobalPar.FilterLfo->lfoout()
+ +NoteGlobalPar.FilterCenterPitch;
+
+ REALTYPE tmpfilterfreq=globalfilterpitch+ctl->filtercutoff.relfreq
+ +NoteGlobalPar.FilterFreqTracking;
+
+ tmpfilterfreq=NoteGlobalPar.GlobalFilterL->getrealfreq(tmpfilterfreq);
+
+ REALTYPE globalfilterq=NoteGlobalPar.FilterQ*ctl->filterq.relq;
+ NoteGlobalPar.GlobalFilterL->setfreq_and_q(tmpfilterfreq,globalfilterq);
+ NoteGlobalPar.GlobalFilterR->setfreq_and_q(tmpfilterfreq,globalfilterq);
+
+ //compute the portamento, if it is used by this note
+ REALTYPE portamentofreqrap=1.0;
+ if (portamento!=0){//this voice use portamento
+ portamentofreqrap=ctl->portamento.freqrap;
+ if (ctl->portamento.used==0){//the portamento has finished
+ portamento=0;//this note is no longer "portamented"
+ };
+ };
+
+ realfreq=basefreq*portamentofreqrap*pow(2.0,globalpitch/12.0)*ctl->pitchwheel.relfreq;
+};
+
+
+int PADnote::Compute_Linear(REALTYPE *outl,REALTYPE *outr,int freqhi,REALTYPE freqlo){
+ REALTYPE *smps=pars->sample[nsample].smp;
+ if (smps==NULL){
+ finished_=true;
+ return(1);
+ };
+ int size=pars->sample[nsample].size;
+ for (int i=0;i<SOUND_BUFFER_SIZE;i++){
+ poshi_l+=freqhi;
+ poshi_r+=freqhi;
+ poslo+=freqlo;
+ if (poslo>=1.0){
+ poshi_l+=1;
+ poshi_r+=1;
+ poslo-=1.0;
+ };
+ if (poshi_l>=size) poshi_l%=size;
+ if (poshi_r>=size) poshi_r%=size;
+
+ outl[i]=smps[poshi_l]*(1.0-poslo)+smps[poshi_l+1]*poslo;
+ outr[i]=smps[poshi_r]*(1.0-poslo)+smps[poshi_r+1]*poslo;
+ };
+ return(1);
+};
+int PADnote::Compute_Cubic(REALTYPE *outl,REALTYPE *outr,int freqhi,REALTYPE freqlo){
+ REALTYPE *smps=pars->sample[nsample].smp;
+ if (smps==NULL){
+ finished_=true;
+ return(1);
+ };
+ int size=pars->sample[nsample].size;
+ REALTYPE xm1,x0,x1,x2,a,b,c;
+ for (int i=0;i<SOUND_BUFFER_SIZE;i++){
+ poshi_l+=freqhi;
+ poshi_r+=freqhi;
+ poslo+=freqlo;
+ if (poslo>=1.0){
+ poshi_l+=1;
+ poshi_r+=1;
+ poslo-=1.0;
+ };
+ if (poshi_l>=size) poshi_l%=size;
+ if (poshi_r>=size) poshi_r%=size;
+
+
+ //left
+ xm1=smps[poshi_l];
+ x0=smps[poshi_l + 1];
+ x1=smps[poshi_l + 2];
+ x2=smps[poshi_l + 3];
+ a = (3.0 * (x0-x1) - xm1 + x2)*0.5;
+ b = 2.0*x1 + xm1 - (5.0*x0 + x2)*0.5;
+ c = (x1 - xm1)*0.5;
+ outl[i] = (((a * poslo) + b) * poslo + c) * poslo + x0;
+ //right
+ xm1=smps[poshi_r];
+ x0=smps[poshi_r + 1];
+ x1=smps[poshi_r + 2];
+ x2=smps[poshi_r + 3];
+ a = (3.0 * (x0-x1) - xm1 + x2)*0.5;
+ b = 2.0*x1 + xm1 - (5.0*x0 + x2)*0.5;
+ c = (x1 - xm1)*0.5;
+ outr[i] = (((a * poslo) + b) * poslo + c) * poslo + x0;
+ };
+ return(1);
+};
+
+
+int PADnote::noteout(REALTYPE *outl,REALTYPE *outr){
+ computecurrentparameters();
+ REALTYPE *smps=pars->sample[nsample].smp;
+ if (smps==NULL){
+ for (int i=0;i<SOUND_BUFFER_SIZE;i++){
+ outl[i]=0.0;
+ outr[i]=0.0;
+ };
+ return(1);
+ };
+ REALTYPE smpfreq=pars->sample[nsample].basefreq;
+
+
+ REALTYPE freqrap=realfreq/smpfreq;
+ int freqhi=(int) (floor(freqrap));
+ REALTYPE freqlo=freqrap-floor(freqrap);
+
+
+ if (config.cfg.Interpolation) Compute_Cubic(outl,outr,freqhi,freqlo);
+ else Compute_Linear(outl,outr,freqhi,freqlo);
+
+
+ if (firsttime){
+ fadein(outl);
+ fadein(outr);
+ firsttime=false;
+ };
+
+ NoteGlobalPar.GlobalFilterL->filterout(outl);
+ NoteGlobalPar.GlobalFilterR->filterout(outr);
+
+ //Apply the punch
+ if (NoteGlobalPar.Punch.Enabled!=0){
+ for (int i=0;i<SOUND_BUFFER_SIZE;i++){
+ REALTYPE punchamp=NoteGlobalPar.Punch.initialvalue*NoteGlobalPar.Punch.t+1.0;
+ outl[i]*=punchamp;
+ outr[i]*=punchamp;
+ NoteGlobalPar.Punch.t-=NoteGlobalPar.Punch.dt;
+ if (NoteGlobalPar.Punch.t<0.0) {
+ NoteGlobalPar.Punch.Enabled=0;
+ break;
+ };
+ };
+ };
+
+ if (ABOVE_AMPLITUDE_THRESHOLD(globaloldamplitude,globalnewamplitude)){
+ // Amplitude Interpolation
+ for (int i=0;i<SOUND_BUFFER_SIZE;i++){
+ REALTYPE tmpvol=INTERPOLATE_AMPLITUDE(globaloldamplitude,globalnewamplitude,i,SOUND_BUFFER_SIZE);
+ outl[i]*=tmpvol*NoteGlobalPar.Panning;
+ outr[i]*=tmpvol*(1.0-NoteGlobalPar.Panning);
+ };
+ } else {
+ for (int i=0;i<SOUND_BUFFER_SIZE;i++) {
+ outl[i]*=globalnewamplitude*NoteGlobalPar.Panning;
+ outr[i]*=globalnewamplitude*(1.0-NoteGlobalPar.Panning);
+ };
+ };
+
+
+ // Check if the global amplitude is finished.
+ // If it does, disable the note
+ if (NoteGlobalPar.AmpEnvelope->finished()!=0) {
+ for (int i=0;i<SOUND_BUFFER_SIZE;i++) {//fade-out
+ REALTYPE tmp=1.0-(REALTYPE)i/(REALTYPE)SOUND_BUFFER_SIZE;
+ outl[i]*=tmp;
+ outr[i]*=tmp;
+ };
+ finished_=1;
+ };
+
+ return(1);
+};
+
+int PADnote::finished(){
+ return(finished_);
+};
+
+void PADnote::relasekey(){
+ NoteGlobalPar.FreqEnvelope->relasekey();
+ NoteGlobalPar.FilterEnvelope->relasekey();
+ NoteGlobalPar.AmpEnvelope->relasekey();
+};
+