// from: http://ll-plugins.nongnu.org/lv2pftci/#A_synth #include #include "dexed.h" #include "dexed_ttl.h" #include "EngineMkI.h" #include "EngineOpl.h" #include "msfa/fm_core.h" #include "msfa/exp2.h" #include "msfa/sin.h" #include "msfa/freqlut.h" #include "msfa/controllers.h" #include "PluginFx.h" #include #include Dexed::Dexed(double rate) : lvtk::Synth(p_n_ports, p_midi_in) { uint8_t i; TRACE("Hi"); Exp2::init(); Tanh::init(); Sin::init(); Freqlut::init(rate); Lfo::init(rate); PitchEnv::init(rate); Env::init_sr(rate); fx.init(rate); engineMkI=new EngineMkI; engineOpl=new EngineOpl; engineMsfa=new FmCore; for(i=0; i(data[i]); currentNote = 0; controllers.values_[kControllerPitch] = 0x2000; controllers.modwheel_cc = 0; controllers.foot_cc = 0; controllers.breath_cc = 0; controllers.aftertouch_cc = 0; bufsize_=256; outbuf_=new float[bufsize_]; lfo.reset(data+137); normalizeDxVelocity = false; setMonoMode(false); sustain = false; extra_buf_size_ = 0; memset(&voiceStatus, 0, sizeof(VoiceStatus)); engineType=0xff; setEngineType(DEXED_ENGINE_MARKI); //add_voices(new DexedVoice(rate)); add_audio_outputs(p_audio_out); TRACE("Bye"); } Dexed::~Dexed() { TRACE("Hi"); delete [] outbuf_; currentNote = -1; for (uint8_t note = 0; note < MAX_ACTIVE_NOTES; ++note) { if ( voices[note].dx7_note != NULL ) { delete voices[note].dx7_note; voices[note].dx7_note = NULL; } voices[note].keydown = false; voices[note].sustained = false; voices[note].live = false; } TRACE("Bye"); } void Dexed::activate(void) { TRACE("Hi"); set_params(); #ifdef DEBUG TRACE("Algorithm %d outputs: %d",data[134],controllers.core->op_out(data[134])); #endif Plugin::activate(); TRACE("Bye"); } void Dexed::deactivate(void) { TRACE("Hi"); Plugin::deactivate(); TRACE("Bye"); } void Dexed::set_params(void) { //TRACE("Hi"); bool unisono=bool(*p(p_unisono)); uint8_t engine=uint8_t(*p(p_engine)); float f_gain=*p(p_output); float f_cutoff=*p(p_cutoff); float f_reso=*p(p_resonance); // Dexed-Unisono if(isMonoMode()!=unisono) setMonoMode(unisono); // Dexed-Engine if(controllers.core==NULL || getEngineType()!=engine) { setEngineType(engine); refreshVoice=true; } // Dexed-Filter if(fx.uiCutoff!=f_cutoff) { fx.uiCutoff=f_cutoff; refreshVoice=true; } if(fx.uiReso!=f_reso) { fx.uiReso=f_reso; refreshVoice=true; } if(fx.uiGain!=f_gain) { fx.uiGain=f_gain; refreshVoice=true; } // OP6 onParam(0,*p(p_op6_eg_rate_1)); onParam(1,*p(p_op6_eg_rate_2)); onParam(2,*p(p_op6_eg_rate_3)); onParam(3,*p(p_op6_eg_rate_4)); onParam(4,*p(p_op6_eg_level_1)); onParam(5,*p(p_op6_eg_level_2)); onParam(6,*p(p_op6_eg_level_3)); onParam(7,*p(p_op6_eg_level_4)); onParam(8,*p(p_op6_kbd_lev_scl_brk_pt)); onParam(9,*p(p_op6_kbd_lev_scl_lft_depth)); onParam(10,*p(p_op6_kbd_lev_scl_rht_depth)); onParam(11,*p(p_op6_kbd_lev_scl_lft_curve)); onParam(12,*p(p_op6_kbd_lev_scl_rht_curve)); onParam(13,*p(p_op6_kbd_rate_scaling)); onParam(14,*p(p_op6_amp_mod_sensitivity)); onParam(15,*p(p_op6_key_vel_sensitivity)); onParam(16,*p(p_op6_operator_output_level)); onParam(17,*p(p_op6_osc_mode)); onParam(18,*p(p_op6_osc_freq_coarse)); onParam(19,*p(p_op6_osc_freq_fine)); onParam(20,*p(p_op6_osc_detune)+7); // OP5 onParam(21,*p(p_op5_eg_rate_1)); onParam(22,*p(p_op5_eg_rate_2)); onParam(23,*p(p_op5_eg_rate_3)); onParam(24,*p(p_op5_eg_rate_4)); onParam(25,*p(p_op5_eg_level_1)); onParam(26,*p(p_op5_eg_level_2)); onParam(27,*p(p_op5_eg_level_3)); onParam(28,*p(p_op5_eg_level_4)); onParam(29,*p(p_op5_kbd_lev_scl_brk_pt)); onParam(30,*p(p_op5_kbd_lev_scl_lft_depth)); onParam(31,*p(p_op5_kbd_lev_scl_rht_depth)); onParam(32,*p(p_op5_kbd_lev_scl_lft_curve)); onParam(33,*p(p_op5_kbd_lev_scl_rht_curve)); onParam(34,*p(p_op5_kbd_rate_scaling)); onParam(35,*p(p_op5_amp_mod_sensitivity)); onParam(36,*p(p_op5_key_vel_sensitivity)); onParam(37,*p(p_op5_operator_output_level)); onParam(38,*p(p_op5_osc_mode)); onParam(39,*p(p_op5_osc_freq_coarse)); onParam(40,*p(p_op5_osc_freq_fine)); onParam(41,*p(p_op5_osc_detune)+7); // OP4 onParam(42,*p(p_op4_eg_rate_1)); onParam(43,*p(p_op4_eg_rate_2)); onParam(44,*p(p_op4_eg_rate_3)); onParam(45,*p(p_op4_eg_rate_4)); onParam(46,*p(p_op4_eg_level_1)); onParam(47,*p(p_op4_eg_level_2)); onParam(48,*p(p_op4_eg_level_3)); onParam(49,*p(p_op4_eg_level_4)); onParam(50,*p(p_op4_kbd_lev_scl_brk_pt)); onParam(51,*p(p_op4_kbd_lev_scl_lft_depth)); onParam(52,*p(p_op4_kbd_lev_scl_rht_depth)); onParam(53,*p(p_op4_kbd_lev_scl_lft_curve)); onParam(54,*p(p_op4_kbd_lev_scl_rht_curve)); onParam(55,*p(p_op4_kbd_rate_scaling)); onParam(56,*p(p_op4_amp_mod_sensitivity)); onParam(57,*p(p_op4_key_vel_sensitivity)); onParam(58,*p(p_op4_operator_output_level)); onParam(59,*p(p_op4_osc_mode)); onParam(60,*p(p_op4_osc_freq_coarse)); onParam(61,*p(p_op4_osc_freq_fine)); onParam(62,*p(p_op4_osc_detune)+7); // OP3 onParam(63,*p(p_op3_eg_rate_1)); onParam(64,*p(p_op3_eg_rate_2)); onParam(65,*p(p_op3_eg_rate_3)); onParam(66,*p(p_op3_eg_rate_4)); onParam(67,*p(p_op3_eg_level_1)); onParam(68,*p(p_op3_eg_level_2)); onParam(69,*p(p_op3_eg_level_3)); onParam(70,*p(p_op3_eg_level_4)); onParam(71,*p(p_op3_kbd_lev_scl_brk_pt)); onParam(72,*p(p_op3_kbd_lev_scl_lft_depth)); onParam(73,*p(p_op3_kbd_lev_scl_rht_depth)); onParam(74,*p(p_op3_kbd_lev_scl_lft_curve)); onParam(75,*p(p_op3_kbd_lev_scl_rht_curve)); onParam(76,*p(p_op3_kbd_rate_scaling)); onParam(77,*p(p_op3_amp_mod_sensitivity)); onParam(78,*p(p_op3_key_vel_sensitivity)); onParam(79,*p(p_op3_operator_output_level)); onParam(80,*p(p_op3_osc_mode)); onParam(81,*p(p_op3_osc_freq_coarse)); onParam(82,*p(p_op3_osc_freq_fine)); onParam(83,*p(p_op3_osc_detune)+7); // OP2 onParam(84,*p(p_op2_eg_rate_1)); onParam(85,*p(p_op2_eg_rate_2)); onParam(86,*p(p_op2_eg_rate_3)); onParam(87,*p(p_op2_eg_rate_4)); onParam(88,*p(p_op2_eg_level_1)); onParam(89,*p(p_op2_eg_level_2)); onParam(90,*p(p_op2_eg_level_3)); onParam(91,*p(p_op2_eg_level_4)); onParam(92,*p(p_op2_kbd_lev_scl_brk_pt)); onParam(93,*p(p_op2_kbd_lev_scl_lft_depth)); onParam(94,*p(p_op2_kbd_lev_scl_rht_depth)); onParam(95,*p(p_op2_kbd_lev_scl_lft_curve)); onParam(96,*p(p_op2_kbd_lev_scl_rht_curve)); onParam(97,*p(p_op2_kbd_rate_scaling)); onParam(98,*p(p_op2_amp_mod_sensitivity)); onParam(99,*p(p_op2_key_vel_sensitivity)); onParam(100,*p(p_op2_operator_output_level)); onParam(101,*p(p_op2_osc_mode)); onParam(102,*p(p_op2_osc_freq_coarse)); onParam(103,*p(p_op2_osc_freq_fine)); onParam(104,*p(p_op2_osc_detune)+7); // OP1 onParam(105,*p(p_op1_eg_rate_1)); onParam(106,*p(p_op1_eg_rate_2)); onParam(107,*p(p_op1_eg_rate_3)); onParam(108,*p(p_op1_eg_rate_4)); onParam(109,*p(p_op1_eg_level_1)); onParam(110,*p(p_op1_eg_level_2)); onParam(111,*p(p_op1_eg_level_3)); onParam(112,*p(p_op1_eg_level_4)); onParam(113,*p(p_op1_kbd_lev_scl_brk_pt)); onParam(114,*p(p_op1_kbd_lev_scl_lft_depth)); onParam(115,*p(p_op1_kbd_lev_scl_rht_depth)); onParam(116,*p(p_op1_kbd_lev_scl_lft_curve)); onParam(117,*p(p_op1_kbd_lev_scl_rht_curve)); onParam(118,*p(p_op1_kbd_rate_scaling)); onParam(119,*p(p_op1_amp_mod_sensitivity)); onParam(120,*p(p_op1_key_vel_sensitivity)); onParam(121,*p(p_op1_operator_output_level)); onParam(122,*p(p_op1_osc_mode)); onParam(123,*p(p_op1_osc_freq_coarse)); onParam(124,*p(p_op1_osc_freq_fine)); onParam(125,*p(p_op1_osc_detune)+7); // Global for all OPs onParam(126,*p(p_pitch_eg_rate_1)); onParam(127,*p(p_pitch_eg_rate_2)); onParam(128,*p(p_pitch_eg_rate_3)); onParam(129,*p(p_pitch_eg_rate_4)); onParam(130,*p(p_pitch_eg_level_1)); onParam(131,*p(p_pitch_eg_level_2)); onParam(132,*p(p_pitch_eg_level_3)); onParam(133,*p(p_pitch_eg_level_4)); onParam(134,*p(p_algorithm_num)-1); onParam(135,*p(p_feedback)); onParam(136,*p(p_oscillator_sync)); onParam(137,*p(p_lfo_speed)); onParam(138,*p(p_lfo_delay)); onParam(139,*p(p_lfo_pitch_mod_depth)); onParam(140,*p(p_lfo_amp_mod_depth)); onParam(141,*p(p_lfo_sync)); onParam(142,*p(p_lfo_waveform)); onParam(143,*p(p_pitch_mod_sensitivity)); onParam(144,*p(p_transpose)); // 10 bytes (145-154) are the name of the patch onParam(155,0x3f); // operator on/off => All OPs on // Pitch bend controllers.values_[kControllerPitchRange]=static_cast(*p(p_pitch_bend_range)); controllers.values_[kControllerPitchStep]=static_cast(*p(p_pitch_bend_step)); //TRACE("Bye"); } // override the run() method void Dexed::run (uint32_t sample_count) { const LV2_Atom_Sequence* seq = p (p_midi_in); float* output = p(p_audio_out); uint32_t last_frame = 0, num_this_time = 0; Plugin::run(sample_count); if(++_param_counter>=16) { set_params(); // pre_process: copy actual voice params _param_counter=0; } for (LV2_Atom_Event* ev = lv2_atom_sequence_begin (&seq->body); !lv2_atom_sequence_is_end(&seq->body, seq->atom.size, ev); ev = lv2_atom_sequence_next (ev)) { num_this_time = ev->time.frames - last_frame; // If it's midi, send it to the engine if (ev->body.type == m_midi_type) { ProcessMidiMessage((uint8_t*) LV2_ATOM_BODY (&ev->body),ev->body.size); } // render audio from the last frame until the timestamp of this event GetSamples (num_this_time, outbuf_); // i is the index of the engine's buf, which always starts at 0 (i think) // j is the index of the plugin's float output buffer which will be the timestamp // of the last processed atom event. for (uint32_t i = 0, j = last_frame; i < num_this_time; ++i, ++j) output[j]=outbuf_[i]; last_frame = ev->time.frames; } // render remaining samples if any left if (last_frame < sample_count) { // do the same thing as above except from last frame until the end of // the processing cycles last sample. at this point, all events have // already been handled. num_this_time = sample_count - last_frame; GetSamples (num_this_time, outbuf_); for (uint32_t i = 0, j = last_frame; i < num_this_time; ++i, ++j) output[j] = outbuf_[i]; } fx.process(output, sample_count); } void Dexed::GetSamples(uint32_t n_samples, float* buffer) { uint32_t i; if(refreshVoice) { for(i=0;i < MAX_ACTIVE_NOTES;i++) { if ( voices[i].live ) voices[i].dx7_note->update(data, voices[i].midi_note, feedback_bitdepth); } lfo.reset(data+137); refreshVoice = false; } // flush first events for (i=0; i < n_samples && i < extra_buf_size_; i++) { buffer[i] = extra_buf_[i]; } // remaining buffer is still to be processed if (extra_buf_size_ > n_samples) { for (uint32_t j = 0; j < extra_buf_size_ - n_samples; j++) { extra_buf_[j] = extra_buf_[j + n_samples]; } extra_buf_size_ -= n_samples; } else { for (; i < n_samples; i += N) { AlignedBuf audiobuf; float sumbuf[N]; for (uint32_t j = 0; j < N; ++j) { audiobuf.get()[j] = 0; sumbuf[j] = 0.0; } int32_t lfovalue = lfo.getsample(); int32_t lfodelay = lfo.getdelay(); for (uint8_t note = 0; note < MAX_ACTIVE_NOTES; ++note) { if (voices[note].live) { voices[note].dx7_note->compute(audiobuf.get(), lfovalue, lfodelay, &controllers); for (uint32_t j=0; j < N; ++j) { /*int32_t val = audiobuf.get()[j]; val = val >> 4; int32_t clip_val = val < -(1 << 24) ? 0x8000 : val >= (1 << 24) ? 0x7fff : val >> 9; float f = static_cast(clip_val)/0x8000; */ float f=static_cast(audiobuf.get()[j]<<3)/INT_MAX; if(f>1.0) f=1.0; if(f<-1.0) f=-1.0; sumbuf[j]+=f; audiobuf.get()[j]=0; } } } uint32_t jmax = n_samples - i; for (uint32_t j = 0; j < N; ++j) { if (j < jmax) { buffer[i + j] = sumbuf[j]; } else { extra_buf_[j - jmax] = sumbuf[j]; } } } extra_buf_size_ = i - n_samples; } for(i=0;i < MAX_ACTIVE_NOTES;i++) { if(voices[i].live==true && voices[i].keydown==false) { uint8_t op_amp=0; uint8_t op_out=controllers.core->op_out(data[134]); uint8_t op_carrier_num=0; voices[i].dx7_note->peekVoiceStatus(voiceStatus); for(uint8_t op=0;op<6;op++) { if((op_out&op)==1) { // this voice is a carrier! op_carrier_num++; TRACE("Voice[%2d] OP [%d] amp=%ld,amp_step=%d,pitch_step=%d",i,op,voiceStatus.amp[op],voiceStatus.ampStep[op],voiceStatus.pitchStep); if(voiceStatus.amp[op]<=1069) op_amp++; } } if(op_amp==op_carrier_num) voices[i].live=false; } // TRACE("Voice[%2d] live=%d keydown=%d",i,voices[i].live,voices[i].keydown); } } void Dexed::ProcessMidiMessage(const uint8_t *buf, uint32_t buf_size) { TRACE("Hi"); uint8_t cmd = buf[0]; switch(cmd & 0xf0) { case 0x80 : TRACE("MIDI keyup event: %d",buf[1]); keyup(buf[1]); return; break; case 0x90 : TRACE("MIDI keydown event: %d %d",buf[1],buf[2]); keydown(buf[1], buf[2]); return; break; case 0xb0 : { uint8_t ctrl = buf[1]; uint8_t value = buf[2]; switch(ctrl) { case 1: TRACE("MIDI modwheel event: %d %d",ctrl,value); controllers.modwheel_cc = value; controllers.refresh(); break; case 2: TRACE("MIDI breath event: %d %d",ctrl,value); controllers.breath_cc = value; controllers.refresh(); break; case 4: TRACE("MIDI footsw event: %d %d",ctrl,value); controllers.foot_cc = value; controllers.refresh(); break; case 64: TRACE("MIDI sustain event: %d %d",ctrl,value); sustain = value > 63; if (!sustain) { for (uint8_t note = 0; note < MAX_ACTIVE_NOTES; note++) { if (voices[note].sustained && !voices[note].keydown) { voices[note].dx7_note->keyup(); voices[note].sustained = false; } } } break; } break; } /* case 0xc0 : //setCurrentProgram(buf[1]); break; // aftertouch case 0xd0 : TRACE("MIDI aftertouch 0xd0 event: %d %d",buf[1]); controllers.aftertouch_cc = buf[1]; controllers.refresh(); break; case 0xe0 : TRACE("MIDI pitchbend 0xe0 event: %d %d",buf[1],buf[2]); controllers.values_[kControllerPitch] = buf[1] | (buf[2] << 7); break; */ default: TRACE("MIDI event unknown: cmd=%d, val1=%d, val2=%d",buf[0],buf[1],buf[2]); break; } TRACE("Bye"); } void Dexed::keydown(uint8_t pitch, uint8_t velo) { TRACE("Hi"); TRACE("pitch=%d, velo=%d\n",pitch,velo); if ( velo == 0 ) { keyup(pitch); return; } pitch += data[144] - 24; if ( normalizeDxVelocity ) { velo = ((float)velo) * 0.7874015; // 100/127 } uint8_t note = currentNote; for (uint8_t i=0; iinit(data, pitch, velo, feedback_bitdepth); if ( data[136] ) voices[note].dx7_note->oscSync(); break; } note = (note + 1) % MAX_ACTIVE_NOTES; } if ( monoMode ) { for(uint8_t i=0; itransferSignal(*voices[i].dx7_note); break; } if ( voices[i].midi_note < pitch ) { voices[i].live = false; voices[note].dx7_note->transferState(*voices[i].dx7_note); break; } return; } } } voices[note].live = true; TRACE("Bye"); } void Dexed::keyup(uint8_t pitch) { TRACE("Hi"); TRACE("pitch=%d\n",pitch); pitch += data[144] - 24; uint8_t note; for (note=0; note= MAX_ACTIVE_NOTES ) { TRACE("note-off not found???"); return; } if ( monoMode ) { uint8_t highNote = -1; int target = 0; for (int i=0; i highNote ) { target = i; highNote = voices[i].midi_note; } } if ( highNote != -1 ) { voices[note].live = false; voices[target].live = true; voices[target].dx7_note->transferState(*voices[note].dx7_note); } } if ( sustain ) { voices[note].sustained = true; } else { voices[note].dx7_note->keyup(); } TRACE("Bye"); } void Dexed::onParam(uint8_t param_num,float param_val) { if(param_val!=data_float[param_num]) { #ifdef DEBUG uint8_t tmp=data[param_num]; #endif if(param_num==144) panic(); refreshVoice=true; data[param_num]=static_cast(param_val); data_float[param_num]=param_val; TRACE("Parameter %d change from %d to %d",param_num, tmp, data[param_num]); } } uint8_t Dexed::getEngineType() { return engineType; } void Dexed::setEngineType(uint8_t tp) { TRACE("settings engine %d", tp); if(engineType==tp) return; switch (tp) { case DEXED_ENGINE_MARKI: TRACE("DEXED_ENGINE_MARKI:%d",DEXED_ENGINE_MARKI); controllers.core = engineMkI; feedback_bitdepth = 11; break; case DEXED_ENGINE_OPL: TRACE("DEXED_ENGINE_OPL:%d",DEXED_ENGINE_OPL); controllers.core = engineOpl; feedback_bitdepth = 11; break; default: TRACE("DEXED_ENGINE_MODERN:%d",DEXED_ENGINE_MODERN); controllers.core = engineMsfa; feedback_bitdepth = 8; break; } engineType = tp; panic(); } bool Dexed::isMonoMode(void) { return monoMode; } void Dexed::setMonoMode(bool mode) { if(monoMode==mode) return; monoMode = mode; } void Dexed::panic(void) { for(uint8_t i=0;ioscSync(); } } } //============================================================================== DexedVoice::DexedVoice(double rate) : m_key(lvtk::INVALID_KEY), m_rate(rate) { TRACE("Hi"); TRACE("Bye"); } DexedVoice::~DexedVoice() { TRACE("Hi"); TRACE("Bye"); } void DexedVoice::on(unsigned char key, unsigned char velocity) { TRACE("Hi"); m_key = key; TRACE("Bye"); } void DexedVoice::off(unsigned char velocity) { TRACE("Hi"); m_key = lvtk::INVALID_KEY; TRACE("Bye"); } unsigned char DexedVoice::get_key(void) const { TRACE("Hi"); return m_key; TRACE("Bye"); } static int _ = Dexed::register_class(p_uri);