audio.hcc

Go to the documentation of this file.

/******** System Includes *************/
#include <stdlib.hch>

#include "pal_master.hch"

/******** Application Includes ********/
#include "configuration.hch"
#include "audio.hch"



macro proc audio_init(gain_level, input_source, sample_rate, AUDIOIN, AUDIOOUT) {
        /*
         * We simply call the appropiate handlers and pass values along. We
         * Don't set the mute on input gain. We have volume control to do this.
         * Input and Output sampling rates are equal. We dont' need different
         * rates.
         */
        RC200AudioInSetGain(FALSE, gain_level, gain_level);
        RC200AudioInSetInput(input_source);
        PalAudioInSetSampleRate(AUDIOIN, sample_rate);
        PalAudioOutSetSampleRate(AUDIOOUT, sample_rate);
} /* --- audio_init() --- */


#if !USE_RUNFFT
//TODO: put runfft here!
macro proc audio_main(audiodata, AUDIOIN, AUDIOOUT) {
        /*
         * Determin the data width for the current platform.
         */
        macro expr IW = PalAudioInGetMaxDataWidthCT();
        macro expr OW = PalAudioOutGetMaxDataWidthCT();

        signed IW sample_left_in, sample_right_in;
        signed OW sample_left_out, sample_right_out;

        while (TRUE) {
                PalAudioInRead(AUDIOIN, &sample_left_in, &sample_right_in);

/*              par {
                        sample_add(sample_left_in);
                        sample_get(&sample_left_out);
                        sample_right_out = sample_right_in;
                }
                if (rotate_samples()) {
                        / *
                         * 64 Samples have been processed, calculate.
                         * /
                }
*/              PalAudioOutWrite(AUDIOOUT, (signed OW)(sample_left_in @ 0), (signed OW)(sample_right_in @ 0));
        }
} /* --- audio_main() --- */
#endif

---