

      #include "config.h"

      #ifdef FFTW3

      #include 

      typedef fftwf_plan fft_plan;
      typedef float fftw_real;
      #define local_malloc(s) fftwf_malloc(s)
      #define local_free(s) fftwf_free(s)

      #else

      #ifdef EXPLICIT_S
      #include 
      #else
      #include 
      #endif //EXPLICIT_S

      typedef rfftw_plan fft_plan;
      #define local_malloc(s) malloc(s)
      #define local_free(s) free(s)

      #endif //FFTW3

      #include "ladspa-util.h"

      #define MAX_FFT_LENGTH 16384
      #define SEG_LENGTH     128

      #define IMP_LENGTH(a) (sizeof(a) / sizeof(float))

      #define MK_IMP(i) impulse2freq(c, i, IMP_LENGTH(i), impulse_freq[c]); c++

      inline void impulse2freq(int id, float *imp, unsigned int length, fftw_real *out);

      #include "impulses/all.h"

      fft_plan plan_rc[IMPULSES],
               plan_cr[IMPULSES];

      static fftw_real *real_in, *real_out, *comp_in, *comp_out;

      unsigned int fft_length[IMPULSES];

      inline void impulse2freq(int id, float *imp, unsigned int length, fftw_real *out)
      {
        fftw_real impulse_time[MAX_FFT_LENGTH];
#ifdef FFTW3
	fft_plan tmp_plan;
#endif
        unsigned int i, fftl = 128;

	while (fftl < length+SEG_LENGTH) {
		fftl *= 2;
	}

	fft_length[id] = fftl;
#ifdef FFTW3
	plan_rc[id] = fftwf_plan_r2r_1d(fftl, real_in, comp_out, FFTW_R2HC, FFTW_MEASURE);
	plan_cr[id] = fftwf_plan_r2r_1d(fftl, comp_in, real_out, FFTW_HC2R, FFTW_MEASURE);
	tmp_plan = fftwf_plan_r2r_1d(fftl, impulse_time, out, FFTW_R2HC, FFTW_MEASURE);
#else
        plan_rc[id] = rfftw_create_plan(fftl, FFTW_REAL_TO_COMPLEX, FFTW_ESTIMATE);
        plan_cr[id] = rfftw_create_plan(fftl, FFTW_COMPLEX_TO_REAL, FFTW_ESTIMATE);
#endif

        for (i=0; i

Impulse convolver

block_time); local_free(plugin_data->block_freq); local_free(plugin_data->op); local_free(plugin_data->overlap); local_free(plugin_data->opc); ]]> = IMPULSES) { im = 0; } coef = pow(10.0f, gain * 0.05f) / (float)fft_length[im]; imp_freq = impulse_freq[im]; for (pos = 0; pos < sample_count; pos += SEG_LENGTH) { limit = pos + SEG_LENGTH; for (ipos = pos; ipos < sample_count && iposcount = 1; out_ptr = 0; } } } for (ipos = pos; ipos < sample_count && iposin_ptr = in_ptr; plugin_data->out_ptr = out_ptr; *(plugin_data->latency) = SEG_LENGTH; ]]> Impulse ID

Selects the impulse to convolve with. New impulses have to be compiled in.

High latency mode

If you are running with blocks that are not whole powers of two long, or you are hearing distortion, try changing this to 1.

Gain (dB)

Controls the gain of the output signal in dB's.

Input Output latency