boblark
2 years ago
parent
8be3167537
commit
d5427c8a68
@ -0,0 +1,218 @@ |
||||
/* CESSB1.ino
|
||||
* |
||||
* This INO tests the Dave Hershberger Controlled Envelope Single Sideband |
||||
* transmit generator radioCESSBtransmit_F32. This was developed By W9GR |
||||
* with the aim to "allow your rig to output more average power while |
||||
* keeping peak envelope power PEP the same". The increase in perceived |
||||
* loudness can be up to 4dB without any audible increase in distortion |
||||
* and without making you sound "processed." See radioCESSBTransmit_F32.h |
||||
* for more information and references. |
||||
* |
||||
* Your microSD card must have the WAV file W9GR48.WAV loaded to it. Source: |
||||
* https://github.com/chipaudette/OpenAudio_ArduinoLibrary/blob/master/utility/
|
||||
* |
||||
* The SD card may connect to different pins, depending on the |
||||
* hardware you are using. Configure the SD card |
||||
* pins to match your hardware. It is set for T4.x Rev D PJRC |
||||
* Teensy Audio Adaptor card here. |
||||
* |
||||
* This example code is in the public domain. |
||||
*/ |
||||
|
||||
#include <Audio.h> |
||||
#include <Wire.h> |
||||
#include <SPI.h> |
||||
#include <SD.h> |
||||
#include "OpenAudio_ArduinoLibrary.h" |
||||
|
||||
// Normal input is from the WAV file with W9GR voice.
|
||||
// An alternative is two tones. Compile that with the following define.
|
||||
// #define USE_TWO_TONE
|
||||
|
||||
// T3.x supported sample rates: 2000, 8000, 11025, 16000, 22050, 24000, 32000, 44100, 44117, 48000,
|
||||
// 88200, 88235 (44117*2), 95680, 96000, 176400, 176470, 192000
|
||||
// T4.x supports any sample rate the codec will handle.
|
||||
const float sample_rate_Hz = 48000.0f; |
||||
const int audio_block_samples = 128; // Always 128, which is AUDIO_BLOCK_SAMPLES from AudioStream.h
|
||||
AudioSettings_F32 audio_settings(sample_rate_Hz, audio_block_samples); |
||||
|
||||
#ifdef USE_TWO_TONE |
||||
AudioSynthWaveformSine_F32 sine3(audio_settings); //xy=231,444
|
||||
AudioSynthWaveformSine_F32 sine4(audio_settings); //xy=259,345
|
||||
AudioMixer4_F32 mixer4_4; //xy=405,427
|
||||
#endif |
||||
AudioSDPlayer_F32 playWav1(audio_settings); //xy=111,51
|
||||
radioCESSBtransmit_F32 cessb1(audio_settings); |
||||
RadioIQMixer_F32 iqMixer2(audio_settings); //xy=100,300
|
||||
AudioFilter90Deg_F32 filter90deg1(audio_settings); //xy=250,300
|
||||
RadioIQMixer_F32 iqMixer1(audio_settings); //xy=250,150
|
||||
AudioAnalyzeRMS_F32 rms1; //xy=300,50
|
||||
AudioMixer4_F32 mixer4_1; //xy=400,310
|
||||
AudioMixer4_F32 mixer4_2; //xy=400,150
|
||||
AudioOutputI2S_F32 audioOutput(audio_settings); //xy=520,250
|
||||
AudioAnalyzeFFT1024_F32 fft1; //xy=550,125
|
||||
|
||||
#ifdef USE_TWO_TONE |
||||
AudioConnection_F32 patchCorda(sine3, 0, mixer4_4, 1); |
||||
AudioConnection_F32 patchCordb(sine4, 0, mixer4_4, 0); |
||||
AudioConnection_F32 patchCordc(mixer4_4, 0, cessb1, 0); |
||||
#else |
||||
AudioConnection_F32 patchCord5(playWav1, 0, cessb1, 0); |
||||
#endif |
||||
AudioConnection_F32 patchCord1(cessb1, 0, iqMixer1, 0); |
||||
AudioConnection_F32 patchCord2(cessb1, 1, iqMixer1, 1); |
||||
AudioConnection_F32 patchCord9(iqMixer1, 0, mixer4_2, 0); |
||||
AudioConnection_F32 patchCord10(iqMixer1, 1, mixer4_2, 1); |
||||
AudioConnection_F32 patchCord13(mixer4_2, fft1); // Transmitter output
|
||||
// mixer4_2 is transmitter SSB output, iqMixer2 is receiver input
|
||||
AudioConnection_F32 patchCord14(mixer4_2, 0, iqMixer2, 0); |
||||
AudioConnection_F32 patchCord3(iqMixer2, 0, filter90deg1, 0); |
||||
AudioConnection_F32 patchCord4(iqMixer2, 1, filter90deg1, 1); |
||||
AudioConnection_F32 patchCord7(filter90deg1, 0, mixer4_1, 0); |
||||
AudioConnection_F32 patchCord8(filter90deg1, 1, mixer4_1, 1); |
||||
AudioConnection_F32 patchCord11(mixer4_1, 0, audioOutput, 0); |
||||
AudioConnection_F32 patchCord12(mixer4_1, 0, audioOutput, 1); |
||||
AudioControlSGTL5000 sgtl5000_1; //xy=582,327
|
||||
|
||||
// Use these with the Teensy 4.x Rev D Audio Shield (NOT for T3.x)
|
||||
#define SDCARD_CS_PIN 10 |
||||
#define SDCARD_MOSI_PIN 11 |
||||
#define SDCARD_SCK_PIN 13 |
||||
|
||||
// Filter for AudioFilter90Deg_F32 hilbert1, for the test receiver.
|
||||
#include "hilbert251A.h" |
||||
|
||||
// This provides information about the current WAV file to this .INO
|
||||
struct wavData* pCurrentWavData; |
||||
struct levels* pLevelData; |
||||
uint32_t writeOne = 0; |
||||
|
||||
uint32_t cntFFT = 0; |
||||
|
||||
void setup() { // ********** SETUP **********
|
||||
Serial.begin(9600); delay(1000); |
||||
Serial.println("*** F32 WAV from SD Card ***"); |
||||
AudioMemory_F32(70, audio_settings); |
||||
|
||||
pCurrentWavData = playWav1.getCurrentWavData(); |
||||
|
||||
sgtl5000_1.enable(); |
||||
|
||||
SPI.setMOSI(SDCARD_MOSI_PIN); |
||||
SPI.setSCK(SDCARD_SCK_PIN); |
||||
Serial.print("SD.begin() returns "); |
||||
Serial.println(SD.begin(SDCARD_CS_PIN)); |
||||
|
||||
#ifdef USE_TWO_TONE |
||||
// Two-tone test, multiples of 48000/1024 Hz
|
||||
sine3.frequency(468.75f); |
||||
sine3.amplitude(0.5f); |
||||
|
||||
sine4.frequency(703.125f); |
||||
sine4.amplitude(0.5f); |
||||
#endif |
||||
|
||||
// Build the CESSB SSB transmitter
|
||||
cessb1.setSampleRate_Hz(48000.0f); // Required
|
||||
// Set input, correction, and output gains
|
||||
float32_t Pre_CESSB_Gain = 1.5f; // Sets the amount of clipping, 1.0 to 2.0f, 3 is excessive
|
||||
cessb1.setGains(Pre_CESSB_Gain, 2.0f, 1.0f); |
||||
cessb1.setSideband(false); // true reverses the sideband
|
||||
pLevelData = cessb1.getLevels(0); // Gets pointer to struct
|
||||
|
||||
// Generate SSB at 15 kHz
|
||||
iqMixer1.useTwoChannel(true); |
||||
iqMixer1.useSimple(false); // enables setGainOut()
|
||||
// Following if cessb1.setSideband(false), otherwise reverse
|
||||
|
||||
// Compensate for window loss in FFT as well as x2 for mixers
|
||||
iqMixer1.setGainOut(2.76f); |
||||
iqMixer1.frequency(13650); // 13650 for LSB, 16350 for USB
|
||||
mixer4_2.gain(1, 1.0f); // 1.0f for LSB, -1.0f for USB
|
||||
|
||||
// A receiver for the SSB transmitter
|
||||
iqMixer2.frequency(15000.0f); |
||||
iqMixer2.useTwoChannel(false); |
||||
|
||||
filter90deg1.begin(hilbert251A, 251); // Set the Hilbert transform FIR filter
|
||||
mixer4_1.gain(0, -1.0f); // LSB + for USB
|
||||
audioOutput.setGain(0.05); // <<< Output volume control
|
||||
fft1.setOutputType(FFT_DBFS); |
||||
fft1.windowFunction(AudioWindowBlackmanHarris1024); |
||||
fft1.setNAverage(16); |
||||
} |
||||
|
||||
void playFile(const char *filename) |
||||
{ |
||||
|
||||
if(playWav1.isPlaying()) |
||||
return; |
||||
Serial.println(""); |
||||
Serial.print("Playing file: "); |
||||
Serial.println(filename); |
||||
// Allow for running the WAV file at a sub-rate from the Audio rate
|
||||
// Two of these are defined above for 1 and 4 sub rates.
|
||||
// playWav1.setSubMult(&wavQuarter);
|
||||
// Start playing the file. This sketch continues to
|
||||
// run while the file plays.
|
||||
playWav1.play(filename); |
||||
// A brief delay for the library read WAV info
|
||||
delay(25); |
||||
|
||||
Serial.print("WAV file format = "); Serial.println(pCurrentWavData->audio_format); |
||||
Serial.print("WAV number channels = "); Serial.println(pCurrentWavData->num_channels); |
||||
Serial.print("WAV File Sample Rate = "); Serial.println(pCurrentWavData->sample_rate); |
||||
Serial.print("Number of bits per Sample = "); Serial.println(pCurrentWavData->bits); |
||||
Serial.print("File length, seconds = "); |
||||
Serial.println(0.001f*(float32_t)playWav1.lengthMillis(), 3); |
||||
} |
||||
|
||||
void loop() { |
||||
// Thanks to W9GR for the test files. These are intended for testing
|
||||
// the CESSB radio transmission system (see CESSB1.ino in the examples)
|
||||
// but work well to provide a voice bandwidth test of WAV file reading.
|
||||
#ifndef USE_TWO_TONE |
||||
playFile("W9GR48.WAV"); // filenames are always uppercase 8.3 format
|
||||
#endif |
||||
|
||||
if(fft1.available() && ++cntFFT>100 && cntFFT<102) |
||||
{ |
||||
for(int kk=0; kk<512; kk++) |
||||
{ |
||||
Serial.print(46.875f*(float32_t)kk); Serial.print(","); |
||||
Serial.println(fft1.read(kk)); |
||||
} |
||||
} |
||||
|
||||
if(cessb1.levelDataCount() > 300) // Typically 300 to 3000
|
||||
{ |
||||
cessb1.getLevels(1); // Cause write of data to struct & reset
|
||||
|
||||
/* // Detailed Report Uncomment to print
|
||||
Serial.print(10.0f*log10f(pLevelData->pwr0)); |
||||
Serial.print(" In Ave Pwr Out "); |
||||
Serial.println(10.0f*log10f(pLevelData->pwr1)); |
||||
Serial.print(20.0f*log10f(pLevelData->peak0)); |
||||
Serial.print(" In Peak Out "); |
||||
Serial.println(20.0f*log10f(pLevelData->peak1)); |
||||
Serial.print(pLevelData->peak0, 6); |
||||
Serial.print(" In Peak Volts Out "); |
||||
Serial.println(pLevelData->peak1, 6); |
||||
Serial.print("Enhancement = "); |
||||
Serial.print((10.0f*log10f(pLevelData->pwr1) - 20.0f*log10f(pLevelData->peak1)) - |
||||
(10.0f*log10f(pLevelData->pwr0) - 20.0f*log10f(pLevelData->peak0)) ); |
||||
Serial.println(" dB"); |
||||
*/ |
||||
|
||||
/*
|
||||
// CSV Report suitable for entering to spread sheet, Uncomment to print
|
||||
// InAve, InPk, OutAve, OutPk, EnhancementdB
|
||||
Serial.print(pLevelData->pwr0, 5); Serial.print(","); |
||||
Serial.print(pLevelData->peak0, 5); Serial.print(","); |
||||
Serial.print(pLevelData->pwr1, 5); Serial.print(","); |
||||
Serial.print(pLevelData->peak1, 5); Serial.print(","); |
||||
Serial.println((10.0f*log10f(pLevelData->pwr1) - 20.0f*log10f(pLevelData->peak1)) - |
||||
(10.0f*log10f(pLevelData->pwr0) - 20.0f*log10f(pLevelData->peak0)) ); |
||||
*/ |
||||
} |
||||
} // End loop()
|
||||
|
After Width: | Height: | Size: 40 KiB |
@ -0,0 +1,253 @@ |
||||
// Following is 251 term Hilbert FIR filter
|
||||
float32_t hilbert251A[]={ |
||||
0.0000003255, |
||||
0.0000000000, |
||||
0.0000030702, |
||||
0.0000000000, |
||||
0.0000089286, |
||||
0.0000000000, |
||||
0.0000183061, |
||||
0.0000000000, |
||||
0.0000316287, |
||||
0.0000000000, |
||||
0.0000493436, |
||||
0.0000000000, |
||||
0.0000719193, |
||||
0.0000000000, |
||||
0.0000998451, |
||||
0.0000000000, |
||||
0.0001336320, |
||||
0.0000000000, |
||||
0.0001738120, |
||||
0.0000000000, |
||||
0.0002209393, |
||||
0.0000000000, |
||||
0.0002755899, |
||||
0.0000000000, |
||||
0.0003383625, |
||||
0.0000000000, |
||||
0.0004098790, |
||||
0.0000000000, |
||||
0.0004907853, |
||||
0.0000000000, |
||||
0.0005817525, |
||||
0.0000000000, |
||||
0.0006834782, |
||||
0.0000000000, |
||||
0.0007966881, |
||||
0.0000000000, |
||||
0.0009221383, |
||||
0.0000000000, |
||||
0.0010606178, |
||||
0.0000000000, |
||||
0.0012129515, |
||||
0.0000000000, |
||||
0.0013800041, |
||||
0.0000000000, |
||||
0.0015626848, |
||||
0.0000000000, |
||||
0.0017619529, |
||||
0.0000000000, |
||||
0.0019788241, |
||||
0.0000000000, |
||||
0.0022143787, |
||||
0.0000000000, |
||||
0.0024697715, |
||||
0.0000000000, |
||||
0.0027462425, |
||||
0.0000000000, |
||||
0.0030451312, |
||||
0.0000000000, |
||||
0.0033678928, |
||||
0.0000000000, |
||||
0.0037161183, |
||||
0.0000000000, |
||||
0.0040915578, |
||||
0.0000000000, |
||||
0.0044961498, |
||||
0.0000000000, |
||||
0.0049320558, |
||||
0.0000000000, |
||||
0.0054017033, |
||||
0.0000000000, |
||||
0.0059078375, |
||||
0.0000000000, |
||||
0.0064535860, |
||||
0.0000000000, |
||||
0.0070425380, |
||||
0.0000000000, |
||||
0.0076788436, |
||||
0.0000000000, |
||||
0.0083673390, |
||||
0.0000000000, |
||||
0.0091137048, |
||||
0.0000000000, |
||||
0.0099246683, |
||||
0.0000000000, |
||||
0.0108082660, |
||||
0.0000000000, |
||||
0.0117741868, |
||||
0.0000000000, |
||||
0.0128342256, |
||||
0.0000000000, |
||||
0.0140028938, |
||||
0.0000000000, |
||||
0.0152982506, |
||||
0.0000000000, |
||||
0.0167430570, |
||||
0.0000000000, |
||||
0.0183664064, |
||||
0.0000000000, |
||||
0.0202060801, |
||||
0.0000000000, |
||||
0.0223120327, |
||||
0.0000000000, |
||||
0.0247516963, |
||||
0.0000000000, |
||||
0.0276183140, |
||||
0.0000000000, |
||||
0.0310445375, |
||||
0.0000000000, |
||||
0.0352256211, |
||||
0.0000000000, |
||||
0.0404611696, |
||||
0.0000000000, |
||||
0.0472354231, |
||||
0.0000000000, |
||||
0.0563851215, |
||||
0.0000000000, |
||||
0.0694911881, |
||||
0.0000000000, |
||||
0.0899418673, |
||||
0.0000000000, |
||||
0.1265473875, |
||||
0.0000000000, |
||||
0.2116132716, |
||||
0.0000000000, |
||||
0.6358933477, |
||||
0.0000000000, |
||||
-0.6358933478, |
||||
0.0000000000, |
||||
-0.2116132717, |
||||
0.0000000000, |
||||
-0.1265473876, |
||||
0.0000000000, |
||||
-0.0899418674, |
||||
0.0000000000, |
||||
-0.0694911882, |
||||
0.0000000000, |
||||
-0.0563851216, |
||||
0.0000000000, |
||||
-0.0472354232, |
||||
0.0000000000, |
||||
-0.0404611697, |
||||
0.0000000000, |
||||
-0.0352256212, |
||||
0.0000000000, |
||||
-0.0310445376, |
||||
0.0000000000, |
||||
-0.0276183141, |
||||
0.0000000000, |
||||
-0.0247516964, |
||||
0.0000000000, |
||||
-0.0223120328, |
||||
0.0000000000, |
||||
-0.0202060802, |
||||
0.0000000000, |
||||
-0.0183664065, |
||||
0.0000000000, |
||||
-0.0167430571, |
||||
0.0000000000, |
||||
-0.0152982507, |
||||
0.0000000000, |
||||
-0.0140028939, |
||||
0.0000000000, |
||||
-0.0128342257, |
||||
0.0000000000, |
||||
-0.0117741869, |
||||
0.0000000000, |
||||
-0.0108082661, |
||||
0.0000000000, |
||||
-0.0099246684, |
||||
0.0000000000, |
||||
-0.0091137049, |
||||
0.0000000000, |
||||
-0.0083673391, |
||||
0.0000000000, |
||||
-0.0076788437, |
||||
0.0000000000, |
||||
-0.0070425381, |
||||
0.0000000000, |
||||
-0.0064535861, |
||||
0.0000000000, |
||||
-0.0059078376, |
||||
0.0000000000, |
||||
-0.0054017034, |
||||
0.0000000000, |
||||
-0.0049320559, |
||||
0.0000000000, |
||||
-0.0044961499, |
||||
0.0000000000, |
||||
-0.0040915579, |
||||
0.0000000000, |
||||
-0.0037161184, |
||||
0.0000000000, |
||||
-0.0033678929, |
||||
0.0000000000, |
||||
-0.0030451313, |
||||
0.0000000000, |
||||
-0.0027462426, |
||||
0.0000000000, |
||||
-0.0024697716, |
||||
0.0000000000, |
||||
-0.0022143788, |
||||
0.0000000000, |
||||
-0.0019788242, |
||||
0.0000000000, |
||||
-0.0017619530, |
||||
0.0000000000, |
||||
-0.0015626849, |
||||
0.0000000000, |
||||
-0.0013800042, |
||||
0.0000000000, |
||||
-0.0012129516, |
||||
0.0000000000, |
||||
-0.0010606179, |
||||
0.0000000000, |
||||
-0.0009221384, |
||||
0.0000000000, |
||||
-0.0007966882, |
||||
0.0000000000, |
||||
-0.0006834783, |
||||
0.0000000000, |
||||
-0.0005817526, |
||||
0.0000000000, |
||||
-0.0004907854, |
||||
0.0000000000, |
||||
-0.0004098791, |
||||
0.0000000000, |
||||
-0.0003383626, |
||||
0.0000000000, |
||||
-0.0002755900, |
||||
0.0000000000, |
||||
-0.0002209394, |
||||
0.0000000000, |
||||
-0.0001738121, |
||||
0.0000000000, |
||||
-0.0001336321, |
||||
0.0000000000, |
||||
-0.0000998452, |
||||
0.0000000000, |
||||
-0.0000719194, |
||||
0.0000000000, |
||||
-0.0000493437, |
||||
0.0000000000, |
||||
-0.0000316288, |
||||
0.0000000000, |
||||
-0.0000183062, |
||||
0.0000000000, |
||||
-0.0000089287, |
||||
0.0000000000, |
||||
-0.0000030703, |
||||
0.0000000000, |
||||
-0.0000003256}; |
||||
Loading…
Reference in new issue