patch.cpp

//
// patch.cpp - Using Properties library
//

#include "patch.h"
#include "voicehandler.h"

#include <circle/logger.h>
static const char FromPatch[] = "patch";

#define VOL_ATTACK  1
#define VOL_DECAY	2
#define VOL_SUSTAIN 3
#define VOL_RELEASE 4
#define FIL_ATTACK  5
#define FIL_DECAY	6
#define FIL_SUSTAIN 7
#define FIL_RELEASE 8

// MIDI CC value to float conversion helpers
static inline float CCtoFloat(unsigned cc, float min, float max) {
    return min + (max - min) * (float)cc / 127.0f;
}

static inline float CCtoFloatExp(unsigned cc, float min, float max) {
    return pow( (min + (max - min) * (float)cc / 127.0f), 3);
}

static inline unsigned FloatToCC(float value, float min, float max) {
    float normalized = (value - min) / (max - min);
    if (normalized < 0) normalized = 0;
    if (normalized > 1) normalized = 1;
    return (unsigned)(normalized * 127.0f);
}

static inline unsigned FloatToCCExp(float value, float min, float max) {
    float logValue = powf(value, 0.3333f);
    float normalized = (logValue - min) / (max - min);
    if (normalized < 0) normalized = 0;
    if (normalized > 1) normalized = 1;
    return (unsigned)(normalized * 127.0f);
}



CPatch::CPatch(CVoiceHandler *pVoices)
:   m_pVoices(pVoices)
{
}

bool CPatch::LoadFromProperties(CPropertiesFatFsFile *pProps)
{
    if (!m_pVoices)
    {
		CLogger::Get()->Write(FromPatch, LogError, "m_pVoices NULL");
		return false;
	}
    
    //========================================
    // INFO
    //========================================
	//pProps->SelectSection ("info");
	//unsigned version = pProps->GetNumber("version");
	//CLogger::Get()->Write("Patch", LogNotice, "Patch Version = %u", version);
    
    //========================================
    // OSCILLATOR 1
    //========================================
    pProps->SelectSection("osc1");
    
    signed coarse = pProps->GetSignedNumber("coarse", 0);
    m_pVoices->SetCoarse(0, coarse);  // -12 to +12
    
    unsigned fineCC = pProps->GetNumber("fine", 64);
    float fine = CCtoFloat(fineCC, 0.0f, 1.0f);
    m_pVoices->SetFine(0, fine);
    
    unsigned pulseWidthCC = pProps->GetNumber("pulsewidth", 64);
    float pulseWidth = CCtoFloat(pulseWidthCC, 0.0f, 1.0f);    
    m_pVoices->SetPulseWidth(0, pulseWidth);
    
    unsigned oscVolCC = pProps->GetNumber("volume");
    float oscVol = CCtoFloat(oscVolCC, 0.0f, 1.0f); 
    m_pVoices->SetOscVol(0, oscVol);
    
    m_pVoices->SetWaveformSaw(0, pProps->GetNumber("saw", 1) != 0);
    m_pVoices->SetWaveformSquare(0, pProps->GetNumber("square", 0) != 0);
    m_pVoices->SetOsc1Sync(pProps->GetNumber("sync", 0) != 0);
    
    //========================================
    // OSCILLATOR 2
    //========================================
    pProps->SelectSection("osc2");
    
    coarse = pProps->GetNumber("coarse", 0);
    m_pVoices->SetCoarse(1, coarse);  // -12 to +12
    
    fineCC = pProps->GetNumber("fine", 64);
    fine = CCtoFloat(fineCC, 0.0f, 1.0f);
    m_pVoices->SetFine(1, fine);
    
    pulseWidthCC = pProps->GetNumber("pulsewidth", 64);
    pulseWidth = CCtoFloat(pulseWidthCC, 0.0f, 1.0f);   
    m_pVoices->SetPulseWidth(1, pulseWidth);
    
    oscVolCC = pProps->GetNumber("volume", 0);
    oscVol = CCtoFloat(oscVolCC, 0.0f, 1.0f); 
    m_pVoices->SetOscVol(1, oscVol);
    
    m_pVoices->SetWaveformSaw(1, pProps->GetNumber("saw", 1) != 0);
    m_pVoices->SetWaveformSquare(1, pProps->GetNumber("square", 0) != 0);
    m_pVoices->SetWaveformTri(pProps->GetNumber("tri", 0) != 0);
    m_pVoices->SetOsc2KbdTrk(pProps->GetNumber("kbdtrack", 1) != 0);
    m_pVoices->SetOsc2LowFreq(pProps->GetNumber("lowfreq", 0) != 0);
    
    //========================================
    // FILTER
    //========================================
    pProps->SelectSection("filter");
    
    unsigned cutoffHz = pProps->GetNumber("cutoff", 5000);
    m_pVoices->SetCutoff(cutoffHz);
    
    unsigned resonanceCC = pProps->GetNumber("resonance", 0);
    float resonance = CCtoFloat(resonanceCC, 0.0f, 1.0f);
    m_pVoices->SetResonance(resonance);
   
    unsigned envAmtCC = pProps->GetNumber("envamount", 0);
    float envAmt = CCtoFloatExp(envAmtCC, 0.0f, 1.0f);
    m_pVoices->SetEnvAmt(envAmt);
    
    unsigned kbdTrkCC = pProps->GetNumber("kbdtrack", 0);
    float kbdTrk = CCtoFloatExp(kbdTrkCC, 0.0f, 1.0f);
    m_pVoices->SetKbdTrk(kbdTrk);
    
    //========================================
    // VOLUME ENVELOPE (ENV 0)
    //========================================
    pProps->SelectSection("volenvelope");
    
    unsigned attackMs = pProps->GetNumber("attack", 50); // in ms
    m_pVoices->SetEnv(1, attackMs);  // param 0 = attack
    
    unsigned decayMs = pProps->GetNumber("decay", 50);
    m_pVoices->SetEnv(2, decayMs);   // param 1 = decay
    
    unsigned sustainCC = pProps->GetNumber("sustain", 127);
    float sustain = CCtoFloat(sustainCC, 0.0f, 1.0f);
    m_pVoices->SetEnv(3, sustain); // param 2 = sustain
    
    unsigned releaseMs = pProps->GetNumber("release", 50);
    m_pVoices->SetEnv(4, releaseMs); // param 3 = release
    
    //========================================
    // FILTER ENVELOPE (ENV 1)
    //========================================
    pProps->SelectSection("filterenvelope");
    
    attackMs = pProps->GetNumber("attack", 50); // in ms
    m_pVoices->SetEnv(5, attackMs);
    
    decayMs = pProps->GetNumber("decay", 50);
    m_pVoices->SetEnv(6, decayMs);
    
    sustainCC = pProps->GetNumber("sustain", 127);
    sustain = CCtoFloat(sustainCC, 0.0f, 1.0f);
    m_pVoices->SetEnv(7, sustain);
    
    releaseMs = pProps->GetNumber("release", 50);
    m_pVoices->SetEnv(8, releaseMs);
    
    //========================================
    // LFO
    //========================================
    pProps->SelectSection("lfo");
    
    unsigned freqHz = pProps->GetNumber("frequency", 100); //   10 < val  < 2000
    m_pVoices->SetLfoFreq((float)freqHz*0.01f);			  // 0.1Hz < freq < 20.00Hz
    
    unsigned mixCC = pProps->GetNumber("mix", 127);
    float mix = CCtoFloat(mixCC, 0.0f, 1.0f);
    m_pVoices->SetLfoMix(mix);
    
    m_pVoices->SetLfoWaveSaw(pProps->GetNumber("wavesaw", 0) != 0);
    m_pVoices->SetLfoWaveSquare(pProps->GetNumber("wavesquare", 0) != 0);
    m_pVoices->SetLfoWaveTri(pProps->GetNumber("wavetri", 1) != 0);
    
    m_pVoices->SetLfoFm(0, pProps->GetNumber("fm1", 1) != 0);
    m_pVoices->SetLfoFm(1, pProps->GetNumber("fm2", 1) != 0);
    
    m_pVoices->SetPulseWidthModulation(0, pProps->GetNumber("pwm1", 0) != 0);
    m_pVoices->SetPulseWidthModulation(1, pProps->GetNumber("pwm2", 0) != 0);

    m_pVoices->SetLfoFilter(pProps->GetNumber("filter", 0) != 0);
    m_pVoices->SetLfoAmp(pProps->GetNumber("amp", 0) != 0);
    
    //========================================
    // POLYMOD
    //========================================
    pProps->SelectSection("polymod");
 
    unsigned polyFilEnvCC = pProps->GetNumber("filenvamount", 0);
    float polyFilEnv = CCtoFloat(polyFilEnvCC, 0.0f, 1.0f);
    m_pVoices->SetPolyModFilEnv(polyFilEnv);
    
    unsigned polyOsc2CC = pProps->GetNumber("osc2amount", 0);
    float polyOsc2 = CCtoFloat(polyOsc2CC, 0.0f, 1.0f);
    m_pVoices->SetPolyModOsc2(polyOsc2);
    
    m_pVoices->SetPolyModFreq(pProps->GetNumber("freq", 0) != 0);    
    m_pVoices->SetPolyModPw(pProps->GetNumber("pulsewidth", 0) != 0);
    m_pVoices->SetPolyModFil(pProps->GetNumber("filter", 0) != 0);
    
    //========================================
    // NOISE
    //========================================
    pProps->SelectSection("noise");
    
    unsigned noiseVolCC = pProps->GetNumber("volume", 0);
    float noise = CCtoFloat(noiseVolCC, 0.0f, 1.0f);
    m_pVoices->SetNoiseVol(noise);
    
    //========================================
    // GLOBAL
    //========================================
    pProps->SelectSection("global");
    
    unsigned glideCC = pProps->GetNumber("glide", 0);
    float glide = CCtoFloatExp(glideCC, 0.0f, 1.0f);
    m_pVoices->SetGlideTime(glide);
    
    unsigned gainCC = pProps->GetNumber("gain", 64);
    float gain = CCtoFloat(gainCC, 0.0f, 1.0f);
    m_pVoices->SetGain(gain);
    
    m_pVoices->SetUnison(pProps->GetNumber("unison", 0) != 0);
    m_pVoices->SetLegato(pProps->GetNumber("legato", 0) != 0);

    unsigned spreadCC = pProps->GetNumber("spread", 0);
    float spread = CCtoFloatExp(spreadCC, 0.0f, 1.0f);
	m_pVoices->SetUnisonSpread(spread);

    unsigned velToVolCC = pProps->GetNumber("ampscale", 0);
    float velToVol = CCtoFloat(velToVolCC, 0.0f, 1.0f);
    m_pVoices->SetVelocityToVolume(velToVol);
    
    unsigned velToFilCC = pProps->GetNumber("filscale", 0);
    float velToFil = CCtoFloat(velToFilCC, -0.5f, 0.5f);
    m_pVoices->SetVelocityToFilter(velToFil);
    
	unsigned unisonVoicesCC = pProps->GetNumber("unisonvoices", 1);
	m_pVoices->SetUnisonVoices(unisonVoicesCC); // 1 ... 5 voices
	
    //========================================
    // FX
    //========================================	
    pProps->SelectSection("fx");
    
    m_pVoices->SetChorusI(pProps->GetNumber("chorusI", 0) != 0); 
    m_pVoices->SetChorusII(pProps->GetNumber("chorusII", 0) != 0); 

    unsigned delayMsCC = pProps->GetNumber("delaytimeL", 5); // in ms
    float delayMs = delayMsCC;						  // delay < 1000ms
    m_pVoices->SetDelayTimeL(delayMs);

    delayMsCC = pProps->GetNumber("delaytimeR", 5); // in ms
    delayMs = delayMsCC;
    m_pVoices->SetDelayTimeR(delayMs);
    
    unsigned delayFeedbackCC = pProps->GetNumber("delayfeedL", 0);
    float delayFeedback = CCtoFloat(delayFeedbackCC, 0.0f, 1.0f);
	m_pVoices->SetDelayFeedbackL(delayFeedback);   

    delayFeedbackCC = pProps->GetNumber("delayfeedR", 0);
    delayFeedback = CCtoFloat(delayFeedbackCC, 0.0f, 1.0f);
	m_pVoices->SetDelayFeedbackR(delayFeedback);  
	
    unsigned delayMixCC = pProps->GetNumber("delaymixL", 0);
    float delayMix = CCtoFloat(delayMixCC, 0.0f, 1.0f);
	m_pVoices->SetDelayMixL(delayMix);   
	
    delayMixCC = pProps->GetNumber("delaymixR", 0);
    delayMix = CCtoFloat(delayMixCC, 0.0f, 1.0f);
	m_pVoices->SetDelayMixR(delayMix);   

    return true;
}

bool CPatch::SaveToProperties(CPropertiesFatFsFile *pProps)
{
    if (!m_pVoices)
    {
		CLogger::Get()->Write(FromPatch, LogError, "m_pVoices NULL");
		return false;
	}
	
    pProps->SelectSection("osc1");
    pProps->SetSignedNumber("coarse", m_pVoices->GetCoarse(0) );
	pProps->SetNumber("fine", FloatToCC(m_pVoices->GetFine(0), 0.0f, 1.0f) );
	pProps->SetNumber("pulsewidth", FloatToCC(m_pVoices->GetPulseWidth(0), 0.0f, 1.0f) );
	pProps->SetNumber("volume", FloatToCC(m_pVoices->GetOscVol(0), 0.0f, 1.0f) );
    pProps->SetNumber("saw", m_pVoices->GetWaveformSaw(0) );
    pProps->SetNumber("square", m_pVoices->GetWaveformSquare(0) );
    pProps->SetNumber("sync", m_pVoices->GetOsc1Sync() );
	
    pProps->SelectSection("osc2");
    pProps->SetSignedNumber("coarse", m_pVoices->GetCoarse(1) );
	pProps->SetNumber("fine", FloatToCC(m_pVoices->GetFine(1), 0.0f, 1.0f) );
	pProps->SetNumber("pulsewidth", FloatToCC(m_pVoices->GetPulseWidth(1), 0.0f, 1.0f) );
	pProps->SetNumber("volume", FloatToCC(m_pVoices->GetOscVol(1), 0.0f, 1.0f) );
    pProps->SetNumber("saw", m_pVoices->GetWaveformSaw(1) );
    pProps->SetNumber("square", m_pVoices->GetWaveformSquare(1) );
    pProps->SetNumber("tri", m_pVoices->GetWaveformTri() );
    pProps->SetNumber("kbdtrack", m_pVoices->GetOsc2KbdTrk() );
    pProps->SetNumber("lowfreq", m_pVoices->GetOsc2LowFreq() );
	
    pProps->SelectSection("filter");
	pProps->SetNumber("cutoff", (unsigned)m_pVoices->GetCutoff() );
	pProps->SetNumber("resonance", FloatToCC(m_pVoices->GetResonance(), 0.0f, 1.0f) );
	pProps->SetNumber("envamount", FloatToCCExp(m_pVoices->GetEnvAmt(), 0.0f, 1.0f) );
	pProps->SetNumber("kbdtrack", FloatToCCExp(m_pVoices->GetKbdTrk(), 0.0f, 1.0f) );
	
    pProps->SelectSection("volenvelope");
	pProps->SetNumber("attack", (unsigned)m_pVoices->GetEnvelope(1) );
	pProps->SetNumber("decay", (unsigned)m_pVoices->GetEnvelope(2) );
	pProps->SetNumber("sustain", FloatToCC(m_pVoices->GetEnvelope(3), 0.0f, 1.0f) );
	pProps->SetNumber("release", (unsigned)m_pVoices->GetEnvelope(4) );

    pProps->SelectSection("filterenvelope");
	pProps->SetNumber("attack", (unsigned)m_pVoices->GetEnvelope(5) );
	pProps->SetNumber("decay", (unsigned)m_pVoices->GetEnvelope(6) );
	pProps->SetNumber("sustain", FloatToCC(m_pVoices->GetEnvelope(7), 0.0f, 1.0f) );
	pProps->SetNumber("release", (unsigned)m_pVoices->GetEnvelope(8) );

    pProps->SelectSection("lfo");
	pProps->SetNumber("frequency", (unsigned)(m_pVoices->GetLfoFreq() * 100.0f) );
	pProps->SetNumber("mix", FloatToCC(m_pVoices->GetLfoMix(), 0.0f, 1.0f) );
    pProps->SetNumber("wavesaw", m_pVoices->GetLfoWaveSaw() );
    pProps->SetNumber("wavesquare", m_pVoices->GetLfoWaveSquare() );
    pProps->SetNumber("wavetri", m_pVoices->GetLfoWaveTri() );
    pProps->SetNumber("fm1", m_pVoices->GetLfoFm(0) );
    pProps->SetNumber("fm2", m_pVoices->GetLfoFm(1) );
    pProps->SetNumber("pwm1", m_pVoices->GetPulseWidthModulation(0) );
    pProps->SetNumber("pwm2", m_pVoices->GetPulseWidthModulation(1) );
	pProps->SetNumber("filter", m_pVoices->GetLfoFilter() );
	pProps->SetNumber("amp", m_pVoices->GetLfoAmp() );	
	
    pProps->SelectSection("polymod");
	pProps->SetNumber("filenvamount", FloatToCC(m_pVoices->GetPolyModFilEnv(), 0.0f, 1.0f) );
	pProps->SetNumber("osc2amount", FloatToCC(m_pVoices->GetPolyModOsc2(), 0.0f, 1.0f) );
    pProps->SetNumber("freq", m_pVoices->GetPolyModFreq() );
    pProps->SetNumber("pulsewidth", m_pVoices->GetPolyModPw() );
    pProps->SetNumber("filter", m_pVoices->GetPolyModFil() );
		
	pProps->SelectSection("noise");
	pProps->SetNumber("volume", FloatToCC(m_pVoices->GetNoiseVol(), 0.0f, 1.0f) );
    
    pProps->SelectSection("global");
    pProps->SetNumber("glide", FloatToCCExp(m_pVoices->GetGlideTime(), 0.0f, 1.0f) );
    pProps->SetNumber("gain", FloatToCC(m_pVoices->GetGain(), 0.0f, 1.0f) );
    pProps->SetNumber("unison", m_pVoices->GetUnison() );
    pProps->SetNumber("legato", m_pVoices->GetLegato() );
    pProps->SetNumber("spread", FloatToCCExp(m_pVoices->GetUnisonSpread(), 0.0f, 1.0f) );
    pProps->SetNumber("ampscale", FloatToCC(m_pVoices->GetVelocityToVolume(), 0.0f, 1.0f) );
    pProps->SetNumber("filscale", FloatToCC(m_pVoices->GetVelocityToFilter(), -0.5f, 0.5f) );
    pProps->SetNumber("unisonvoices", m_pVoices->GetUnisonVoices() );

    pProps->SelectSection("fx");
    pProps->SetNumber("chorusI", m_pVoices->GetChorusI() );
    pProps->SetNumber("chorusII", m_pVoices->GetChorusII() );
    pProps->SetNumber("delaytimeL", (unsigned)(m_pVoices->GetDelayTimeL()));
    pProps->SetNumber("delaytimeR", (unsigned)(m_pVoices->GetDelayTimeR()));
    pProps->SetNumber("delayfeedbackL", FloatToCC(m_pVoices->GetDelayFeedbackL(), 0.0f, 1.0f) );
    pProps->SetNumber("delayfeedbackR", FloatToCC(m_pVoices->GetDelayFeedbackR(), 0.0f, 1.0f) );
    pProps->SetNumber("delaymixL", FloatToCC(m_pVoices->GetDelayMixL(), 0.0f, 1.0f) );
    pProps->SetNumber("delaymixR", FloatToCC(m_pVoices->GetDelayMixR(), 0.0f, 1.0f) );

	if (!pProps->Save())
	{
		CLogger::Get()->Write(FromPatch, LogError, "Patch Save Failed");
		return false;
	}
	
	CLogger::Get()->Write(FromPatch, LogNotice, "Patch Saved ok");
	return true;
}