Add new radioFT8Modulator_F32

pull/16/head
boblark 2 years ago
parent ae0942283a
commit 2863d1f240
  1. 1
      OpenAudio_ArduinoLibrary.h
  2. 100
      docs/index.html
  3. 385
      examples/FT8Transmit/FT8Transmit.ino
  4. BIN
      examples/FT8Transmit/FT8Transmit1.gnumeric
  5. BIN
      gui/DesignTool_F32.zip
  6. 133
      radioFT8Modulator_F32.cpp
  7. 1032
      radioFT8Modulator_F32.h

@ -57,6 +57,7 @@
#include "AudioFilterFIRGeneral_F32.h"
#include "RadioFMDetector_F32.h"
#include "radioBFSKmodulator_F32.h"
#include "radioFT8Modulator_F32.h"
#include "RadioFMDiscriminator_F32.h"
#include "radioNoiseBlanker_F32.h"
#include "synth_sin_cos_f32.h"

@ -421,6 +421,8 @@ span.mainfunction {color: #993300; font-weight: bolder}
{"type":"UART_F32","data":{"defaults":{"name":{"value":"new"}},"shortName":"UART","inputs":"1","output":"0","category":"radio-function","color":"#E6E0F8","icon":"arrow-in.png","outputs":"0"}},
{"type":"radioFT8Modulator_F32","data":{"defaults":{"name":{"value":"new"}},"shortName":"FT8Mod","inputs":"0","output":"0","category":"radio-function","color":"#E6E0F8","icon":"arrow-in.png","outputs":"1"}},
{"type":"RadioIQMixer_F32","data":{"defaults":{"name":{"value":"new"}},"shortName":"I-QMixer","inputs":"2","output":"0","category":"radio-function","color":"#E6E0F8","icon":"arrow-in.png","outputs":"2"}},
@ -3363,7 +3365,7 @@ The actual packets are taken
<p class=desc>Empties the FIFO transmit buffer.</p>
<p class=func><span class=keyword>clearBuffer</span>();</p>
<p class=desc>Returns a bool value true if another data word can be sent. </p>
<p class=desc>Clears the send buffer. Does not stop a character being sent. No return value.</p>
<p class=func><span class=keyword>amplitude</span>(<strong>float32_t</strong> a);</p>
<p class=desc>Sets a, the zero-to-peak amplitude of the transmit signal.
@ -3405,6 +3407,102 @@ The actual packets are taken
<script type="text/x-red" data-help-name="radioFT8Modulator_F32">
<!-- ============ radioFT8Modulator_F32 ========= -->
<h3>Summary</h3>
<div class=tooltipinfo>
<p>Generates and transmits the eight-tone frequency shift keyed waveform
for the WSJT mode called FT8.
The data is provided by an ASCII string. A subset of possible FT8
messages is supported. All elements of the FT8 waveform are provided
including spectral confinement.
</p>
</div>
<h3>Audio Connections</h3>
<table class=doc align=center cellpadding=3>
<tr class=top><th>Port</th><th>Purpose</th></tr>
<tr class=odd><td align=center>Out 0</td><td>FT8 transmit audio or I-F</td></tr>
</table>
<h3>Functions</h3>
<p class=func><span class=keyword>setSampleRate_Hz</span>
(<strong>const float32_t</strong> &fs_Hz);</p>
<p class=desc>The two values are 48000.0 and 96000.0. </p>
<p class=func><span class=keyword>ft8Initialize</span>();</p>
<p class=desc>This computes several filters that are needed.
IMPORTANT: Before calling this initialize function, set the audio sampling rate.</p>
<p class=func><span class=keyword>FT8TransmitBusy</span>();</p>
<p class=desc>Returns <strong>bool</strong> true if transmission is still active (a 12.96 second period).
Returns false if new data can be loaded.</p>
<p class=func><span class=keyword>sendData</span>
(<strong>char*</strong> data, <strong>int16_t</strong> i3, <strong>int16_t</strong> n3,
<strong>int16_t</strong> specialCase);</p>
<p class=desc> This defines the data to be sent and also triggers the starting time.
The parameter data takes a string, such as
"K1ABC W9XYZ RR73". The descriptors, i3 and n3 are needed to define all possible FT8 messages.
Because of the current message capability (standard QSO and free text)
the i3 and n3 are not needed. The specialCase are:
specialCase==0 is not special at all. It converts the message to
tones and transmits the 81 tones in FT8 format.
specialCase==1 allows running of the message-to-tone conversion without
starting the transmission of tones. Results are in tones[].
specialCase==2 starts the transmission of tones[]
without doing a message-to-tone conversion as part of the function call. </p>
<p class=func><span class=keyword>amplitude</span>(<strong>float32_t</strong> a);</p>
<p class=desc>Sets a, the zero-to-peak amplitude of the transmit signal.
No return value.</p>
<p class=func><span class=keyword>frequency</span>(<strong>float32_t</strong> f);</p>
<p class=desc>Sets f, the base, lowest, frequency of the FT8 waveform.
The occupied bandwidth is a few Hz below f and about 50 Hz above f.
No return value.</p>
<p class=func><span class=keyword>cancelTransmit</span>();</p>
<p class=desc>Cancels the current transmission, following the current 128 sample period,
if active. This, of course, does not control PTT. No return value.</p>
<p class=func><span class=keyword>setSampleRate_Hz</span>(<strong>float32_t</strong> sampleRate_Hz)</p>
<p class=desc>Enter sample rate, as float32_t.
It applies to this class only.
</p>
<p class=func><span class=keyword>getPayload</span>()</p>
<p class=desc>Returns pointer to an array of 10 uint8_t holding the 77 bit payload.
</p>
<p class=func><span class=keyword>getTones</span>()</p>
<p class=desc>Returns pointer to an array of 81 uint8_t holding the
tones to be transmitted (0, 7).
</p>
<h3>Examples</h3>
<p class=exam>File &gt; Examples &gt; OpenAudio_ArduinoLibrary &gt; FT8Transmit
</p>
<h3>Notes</h3>
<p>See the library file radioFT8Modulator.h for much more information,
references, sample data, and most importantly, credits to the many contributors
upon which these FT8 library classes are based.</p>
<p> This class does not provide true (absolute) clock timing. The sendData() function
should be called when it is time for a new 15-sec period transmission.
Audio output will start at the next 128 audio sample period. This
class does not control push-to-talk (PTT).</p>
</script>
<script type="text/x-red" data-template-name="radioFT8Modulator_F32">
<div class="form-row">
<label for="node-input-name"><i class="fa fa-tag"></i> Name</label>
<input type="text" id="node-input-name" placeholder="Name">
</div>
</script>
<div>
<script type="text/x-red" data-help-name="radioModulatedGenerator_F32">

@ -0,0 +1,385 @@
/*
* New FT8Transmit.ino RSL 29 Aug 2022
*
* Generates a subset of possible FT8 messages.
* S/N is controlled accurately. Uses Teensy Floating Point
* OpenAudio_TeensyLibrary.
* See radioFT8Modulator_F32 for information on the implementation.
* This INO is in the public domain.
*/
#include "Arduino.h"
#include "OpenAudio_ArduinoLibrary.h"
#include "AudioStream_F32.h"
#include <Audio.h>
// Only 48 and 96 kHz audio sample rates are currently supported.
const float sample_rate_Hz = 48000.0f;
const int audio_block_samples = 128;
AudioSettings_F32 audio_settings(sample_rate_Hz, audio_block_samples);
AudioSynthGaussian_F32 GaussianWhiteNoise1(audio_settings); //xy=101,148
RadioFT8Modulator_F32 FT8Mod1; //xy=117,277
AudioMixer4_F32 mixer4_1; //xy=282,218
AudioFilterFIRGeneral_F32 filterFIRgeneral1(audio_settings); //xy=452,181
AudioOutputI2S_F32 audioOutI2S1(audio_settings); //xy=532,243
AudioAnalyzeRMS_F32 rms1; //xy=625,180
AudioConnection_F32 patchCord1(GaussianWhiteNoise1, 0, mixer4_1, 0);
AudioConnection_F32 patchCord2(FT8Mod1, 0, mixer4_1, 1);
AudioConnection_F32 patchCord5(mixer4_1, filterFIRgeneral1);
AudioConnection_F32 patchCord3(filterFIRgeneral1, 0, audioOutI2S1, 0);
AudioConnection_F32 patchCord4(filterFIRgeneral1, 0, audioOutI2S1, 1);
AudioConnection_F32 patchCord6(filterFIRgeneral1, rms1);
AudioControlSGTL5000 sgtl5000_1; //xy=357,318
/* FIR filter to measure noise power in a 2500 Hz BW
* Designed with http://t-filter.appspot.com
* Sampling frequency: 48000 Hz
* 0 Hz to 100 Hz and 3000 Hz to 24000 Hz Attenuation = 60.031 dB
* 330 Hz to 2770 Hz Ripple = 0.073 dB
*/
static float32_t filter2500BP[597] = {
-0.0005125820f,-0.0000202947f, 0.0000003593f, 0.0000329934f, 0.0000736751f, 0.0001169578f,
0.0001564562f, 0.0001855962f, 0.0001984728f, 0.0001906737f, 0.0001599822f, 0.0001068279f,
0.0000344273f,-0.0000514436f,-0.0001430419f,-0.0002315220f,-0.0003080131f,-0.0003647587f,
-0.0003961436f,-0.0003995218f,-0.0003756478f,-0.0003287024f,-0.0002658396f,-0.0001963221f,
-0.0001303695f,-0.0000777464f,-0.0000465332f,-0.0000418429f,-0.0000651581f,-0.0001139975f,
-0.0001821358f,-0.0002604090f,-0.0003379262f,-0.0004035583f,-0.0004475075f,-0.0004627523f,
-0.0004461496f,-0.0003990178f,-0.0003271062f,-0.0002399160f,-0.0001495029f,-0.0000688527f,
-0.0000100068f, 0.0000176282f, 0.0000087805f,-0.0000368277f,-0.0001142343f,-0.0002137524f,
-0.0003221742f,-0.0004245023f,-0.0005060412f,-0.0005544731f,-0.0005617283f,-0.0005252710f,
-0.0004486501f,-0.0003412138f,-0.0002169625f,-0.0000927250f, 0.0000141208f, 0.0000880971f,
0.0001179086f, 0.0000982361f, 0.0000307076f,-0.0000761311f,-0.0002078708f,-0.0003460213f,
-0.0004701224f,-0.0005615004f,-0.0006049803f,-0.0005918278f,-0.0005209351f,-0.0003992998f,
-0.0002412975f,-0.0000668730f, 0.0001011003f, 0.0002399869f, 0.0003306072f, 0.0003600909f,
0.0003239133f, 0.0002268029f, 0.0000823809f,-0.0000884979f,-0.0002604794f,-0.0004071616f,
-0.0005048299f,-0.0005359033f,-0.0004916409f,-0.0003736551f,-0.0001940102f, 0.0000261329f,
0.0002593430f, 0.0004753909f, 0.0006458134f, 0.0007476677f, 0.0007671322f, 0.0007017674f,
0.0005611468f, 0.0003658605f, 0.0001449418f,-0.0000679871f,-0.0002393698f,-0.0003405009f,
-0.0003517550f,-0.0002656412f,-0.0000882146f, 0.0001613566f, 0.0004531208f, 0.0007502948f,
0.0010142494f, 0.0012099822f, 0.0013111621f, 0.0013041379f, 0.0011902347f, 0.0009859932f,
0.0007212731f, 0.0004353657f, 0.0001717278f,-0.0000281207f,-0.0001305200f,-0.0001146943f,
0.0000239082f, 0.0002725259f, 0.0006024022f, 0.0009724061f, 0.0013345069f, 0.0016403901f,
0.0018483209f, 0.0019292574f, 0.0018713163f, 0.0016819017f, 0.0013872308f, 0.0010291844f,
0.0006595979f, 0.0003334254f, 0.0001008215f,-0.0000000058f, 0.0000514030f, 0.0002543686f,
0.0005865884f, 0.0010066897f, 0.0014595849f, 0.0018838923f, 0.0022204845f, 0.0024209305f,
0.0024546503f, 0.0023137474f, 0.0020147314f, 0.0015968377f, 0.0011170820f, 0.0006426406f,
0.0002415985f,-0.0000267023f,-0.0001203145f,-0.0000211214f, 0.0002619020f, 0.0006935370f,
0.0012155342f, 0.0017563231f, 0.0022384277f, 0.0025907218f, 0.0027584970f, 0.0027114957f,
0.0024488224f, 0.0019998882f, 0.0014211081f, 0.0007886354f, 0.0001880784f,-0.0002974170f,
-0.0005990413f,-0.0006724584f,-0.0005047619f,-0.0001171406f, 0.0004372104f, 0.0010797374f,
0.0017169949f, 0.0022534601f, 0.0026050371f, 0.0027112878f, 0.0025446519f, 0.0021152693f,
0.0014705327f, 0.0006894468f,-0.0001277897f,-0.0008733366f,-0.0014468246f,-0.0017698095f,
-0.0017974750f,-0.0015259241f,-0.0009938711f,-0.0002783418f, 0.0005151815f, 0.0012669280f,
0.0018594224f, 0.0021942034f, 0.0022063046f, 0.0018744400f, 0.0012252608f, 0.0003308740f,
-0.0006999772f,-0.0017363651f,-0.0026430272f,-0.0032994372f,-0.0036172996f,-0.0035539945f,
-0.0031199655f,-0.0023787848f,-0.0014397352f,-0.0004436511f, 0.0004561031f, 0.0011150128f,
0.0014181900f, 0.0012975421f, 0.0007428372f,-0.0001950981f,-0.0014097317f,-0.0027521917f,
-0.0040510049f,-0.0051355902f,-0.0058603728f,-0.0061261746f,-0.0058958745f,-0.0052041918f,
-0.0041474660f,-0.0028816782f,-0.0015956931f,-0.0004880525f, 0.0002612250f, 0.0005167695f,
0.0002085432f,-0.0006559859f,-0.0019902208f,-0.0036379161f,-0.0053928385f,-0.0070261631f,
-0.0083180284f,-0.0090889780f,-0.0092268159f,-0.0087049647f,-0.0075894402f,-0.0060330006f,
-0.0042568860f,-0.0025221767f,-0.0010944561f,-0.0002064388f,-0.0000237284f,-0.0006187163f,
-0.0019563607f,-0.0038947756f,-0.0062005014f,-0.0085775775f,-0.0107065383f,-0.0122883661f,
-0.0130875874f,-0.0129684039f,-0.0119185125f,-0.0100567406f,-0.0076227165f,-0.0049491711f,
-0.0024198814f,-0.0004183923f, 0.0007258785f, 0.0007867696f,-0.0003212561f,-0.0025231429f,
-0.0055845169f,-0.0091349479f,-0.0127114002f,-0.0158169578f,-0.0179877599f,-0.0188595572f,
-0.0182248418f,-0.0160724049f,-0.0126028433f,-0.0082166040f,-0.0034743283f, 0.0009670264f,
0.0044354922f, 0.0063335060f, 0.0062244751f, 0.0039053136f,-0.0005450570f,-0.0067487839f,
-0.0140477185f,-0.0215575093f,-0.0282527468f,-0.0330748862f,-0.0350513372f,-0.0334119094f,
-0.0276905793f,-0.0177980957f,-0.0040578279f, 0.0128017918f, 0.0316985253f, 0.0512872217f,
0.0700815899f, 0.0865943871f, 0.0994813474f, 0.1076734313f, 0.1104831570f, 0.1076734313f,
0.0994813474f, 0.0865943871f, 0.0700815899f, 0.0512872217f, 0.0316985253f, 0.0128017918f,
-0.0040578279f,-0.0177980957f,-0.0276905793f,-0.0334119094f,-0.0350513372f,-0.0330748862f,
-0.0282527468f,-0.0215575093f,-0.0140477185f,-0.0067487839f,-0.0005450570f, 0.0039053136f,
0.0062244751f, 0.0063335060f, 0.0044354922f, 0.0009670264f,-0.0034743283f,-0.0082166040f,
-0.0126028433f,-0.0160724049f,-0.0182248418f,-0.0188595572f,-0.0179877599f,-0.0158169578f,
-0.0127114002f,-0.0091349479f,-0.0055845169f,-0.0025231429f,-0.0003212561f, 0.0007867696f,
0.0007258785f,-0.0004183923f,-0.0024198814f,-0.0049491711f,-0.0076227165f,-0.0100567406f,
-0.0119185125f,-0.0129684039f,-0.0130875874f,-0.0122883661f,-0.0107065383f,-0.0085775775f,
-0.0062005014f,-0.0038947756f,-0.0019563607f,-0.0006187163f,-0.0000237284f,-0.0002064388f,
-0.0010944561f,-0.0025221767f,-0.0042568860f,-0.0060330006f,-0.0075894402f,-0.0087049647f,
-0.0092268159f,-0.0090889780f,-0.0083180284f,-0.0070261631f,-0.0053928385f,-0.0036379161f,
-0.0019902208f,-0.0006559859f, 0.0002085432f, 0.0005167695f, 0.0002612250f,-0.0004880525f,
-0.0015956931f,-0.0028816782f,-0.0041474660f,-0.0052041918f,-0.0058958745f,-0.0061261746f,
-0.0058603728f,-0.0051355902f,-0.0040510049f,-0.0027521917f,-0.0014097317f,-0.0001950981f,
0.0007428372f, 0.0012975421f, 0.0014181900f, 0.0011150128f, 0.0004561031f,-0.0004436511f,
-0.0014397352f,-0.0023787848f,-0.0031199655f,-0.0035539945f,-0.0036172996f,-0.0032994372f,
-0.0026430272f,-0.0017363651f,-0.0006999772f, 0.0003308740f, 0.0012252608f, 0.0018744400f,
0.0022063046f, 0.0021942034f, 0.0018594224f, 0.0012669280f, 0.0005151815f,-0.0002783418f,
-0.0009938711f,-0.0015259241f,-0.0017974750f,-0.0017698095f,-0.0014468246f,-0.0008733366f,
-0.0001277897f, 0.0006894468f, 0.0014705327f, 0.0021152693f, 0.0025446519f, 0.0027112878f,
0.0026050371f, 0.0022534601f, 0.0017169949f, 0.0010797374f, 0.0004372104f,-0.0001171406f,
-0.0005047619f,-0.0006724584f,-0.0005990413f,-0.0002974170f, 0.0001880784f, 0.0007886354f,
0.0014211081f, 0.0019998882f, 0.0024488224f, 0.0027114957f, 0.0027584970f, 0.0025907218f,
0.0022384277f, 0.0017563231f, 0.0012155342f, 0.0006935370f, 0.0002619020f,-0.0000211214f,
-0.0001203145f,-0.0000267023f, 0.0002415985f, 0.0006426406f, 0.0011170820f, 0.0015968377f,
0.0020147314f, 0.0023137474f, 0.0024546503f, 0.0024209305f, 0.0022204845f, 0.0018838923f,
0.0014595849f, 0.0010066897f, 0.0005865884f, 0.0002543686f, 0.0000514030f,-0.0000000058f,
0.0001008215f, 0.0003334254f, 0.0006595979f, 0.0010291844f, 0.0013872308f, 0.0016819017f,
0.0018713163f, 0.0019292574f, 0.0018483209f, 0.0016403901f, 0.0013345069f, 0.0009724061f,
0.0006024022f, 0.0002725259f, 0.0000239082f,-0.0001146943f,-0.0001305200f,-0.0000281207f,
0.0001717278f, 0.0004353657f, 0.0007212731f, 0.0009859932f, 0.0011902347f, 0.0013041379f,
0.0013111621f, 0.0012099822f, 0.0010142494f, 0.0007502948f, 0.0004531208f, 0.0001613566f,
-0.0000882146f,-0.0002656412f,-0.0003517550f,-0.0003405009f,-0.0002393698f,-0.0000679871f,
0.0001449418f, 0.0003658605f, 0.0005611468f, 0.0007017674f, 0.0007671322f, 0.0007476677f,
0.0006458134f, 0.0004753909f, 0.0002593430f, 0.0000261329f,-0.0001940102f,-0.0003736551f,
-0.0004916409f,-0.0005359033f,-0.0005048299f,-0.0004071616f,-0.0002604794f,-0.0000884979f,
0.0000823809f, 0.0002268029f, 0.0003239133f, 0.0003600909f, 0.0003306072f, 0.0002399869f,
0.0001011003f,-0.0000668730f,-0.0002412975f,-0.0003992998f,-0.0005209351f,-0.0005918278f,
-0.0006049803f,-0.0005615004f,-0.0004701224f,-0.0003460213f,-0.0002078708f,-0.0000761311f,
0.0000307076f, 0.0000982361f, 0.0001179086f, 0.0000880971f, 0.0000141208f,-0.0000927250f,
-0.0002169625f,-0.0003412138f,-0.0004486501f,-0.0005252710f,-0.0005617283f,-0.0005544731f,
-0.0005060412f,-0.0004245023f,-0.0003221742f,-0.0002137524f,-0.0001142343f,-0.0000368277f,
0.0000087805f, 0.0000176282f,-0.0000100068f,-0.0000688527f,-0.0001495029f,-0.0002399160f,
-0.0003271062f,-0.0003990178f,-0.0004461496f,-0.0004627523f,-0.0004475075f,-0.0004035583f,
-0.0003379262f,-0.0002604090f,-0.0001821358f,-0.0001139975f,-0.0000651581f,-0.0000418429f,
-0.0000465332f,-0.0000777464f,-0.0001303695f,-0.0001963221f,-0.0002658396f,-0.0003287024f,
-0.0003756478f,-0.0003995218f,-0.0003961436f,-0.0003647587f,-0.0003080131f,-0.0002315220f,
-0.0001430419f,-0.0000514436f, 0.0000344273f, 0.0001068279f, 0.0001599822f, 0.0001906737f,
0.0001984728f, 0.0001855962f, 0.0001564562f, 0.0001169578f, 0.0000736751f, 0.0000329934f,
0.0000003593f,-0.0000202947f,-0.0005125820f};
// Messages 0 to 7
const char* inputString[] = {
"CQ LL3JG",
"CQ LL3JG KO26",
"L0UAA LL3JG KO26",
"L0UAA LL3JG +02",
"L0UAA LL3JG RRR",
"K1ABC W9XYZ RR73",
"TNX BOB 73 GL",
"ABCDEFG123456"};
int32_t sendNext = -1;
float32_t pStateArray[1322]; // 2*597+128
float32_t t60, t60Last;
uint32_t t60Base;
bool displayClock = false;
bool displayPower = false;
bool sendEvery15Sec = true;
bool doing15SecSend = false;
float32_t snrDB = 0.0f;
void setup(void) {
Serial.begin(9600); delay(500);
Serial.println("FT8Transmit.ino Ver 0.1 29 Aug 2022 W7PUA");
Serial.println("Use '?' to list commands and '=' to zero FT8 clock.");
Serial.println("Use 0 to 7 to set message.");
AudioMemory_F32(20, audio_settings);
FT8Mod1.setSampleRate_Hz(48000.0f);
FT8Mod1.ft8Initialize();
FT8Mod1.frequency(700.0f);
// Calibration note: For the following = 0.1 and the GWN amplitude at 0.1,
// the power S/N at the output of the FIR filter is 6.617 dB or
// 4.589 as a power ratio. The filter is very close to a 2500 Hz BW
// so this is close to the WSJT defined S/N. Show on WSJT-X as -1.8 dB S/N.
// (Power as used here means the RMS object output squared.)
FT8Mod1.amplitude(0.04668); // for 0 dB S/N.
filterFIRgeneral1.LoadCoeffs(597, filter2500BP, pStateArray);
GaussianWhiteNoise1.amplitude(0.1f); // Do not change unless breaking the cal is wanted.
sgtl5000_1.enable();
delay(5);
t60 = 0.000f;
t60Last = t60;
t60Base = millis();
}
void loop() {
int16_t inCmd;
if( Serial.available() )
{
inCmd = Serial.read();
if(inCmd=='0')
{
sendNext = 0;
Serial.print("Next FT8:");
Serial.println((char*) inputString[0]);
}
else if(inCmd=='1')
{
sendNext = 1;
Serial.print("Next FT8:");
Serial.println((char*) inputString[1]);
}
else if(inCmd=='2')
{
sendNext = 2;
Serial.print("Next FT8:");
Serial.println((char*) inputString[2]);
}
else if(inCmd=='3')
{
sendNext = 3;
Serial.print("Next FT8:");
Serial.println((char*) inputString[3]);
}
else if(inCmd=='4')
{
sendNext = 4;
Serial.print("Next FT8:");
Serial.println((char*) inputString[4]);
}
else if(inCmd=='5')
{
sendNext = 5;
Serial.print("Next FT8:");
Serial.println((char*) inputString[5]);
}
else if(inCmd=='6')
{
sendNext = 6;
Serial.print("Next FT8:");
Serial.println((char*) inputString[6]);
}
else if(inCmd=='7')
{
sendNext = 7;
Serial.print("Next FT8:");
Serial.println((char*) inputString[7]);
}
else if(inCmd=='w' || inCmd=='W') // S/N Up 1 dB
{
snrDB += 1.0f;
FT8Mod1.amplitude(powf(10.0f, 0.05f*(snrDB-26.617))); //0.04668 is amplitude for 0dB S/N
Serial.print("SNR Up 1 dB to "); Serial.println(snrDB, 3);
if(snrDB>23.5f)
Serial.println("WARNING: S/N > 23 dB may cause DAC overload.");
}
else if(inCmd=='a' || inCmd=='A') // S/N Down 1 dB
{
snrDB -= 1.0f;
FT8Mod1.amplitude(powf(10.0f, 0.05f*(snrDB-26.617))); //0.04668 is amplitude for 0dB S/N
Serial.print("SNR Down 1 dB to "); Serial.println(snrDB, 3);
}
else if(inCmd=='t' || inCmd=='T') // Toggle Continuous and Trigger
{
sendEvery15Sec = !sendEvery15Sec;
if(sendEvery15Sec)
Serial.println("Send every 15 sec");
else
Serial.println("Send triggered on Number");
}
else if(inCmd=='d' || inCmd=='D') // Toggle dB Power
{
displayPower = !displayPower;
if(displayPower)
Serial.println("Display dB Power every sec");
else
Serial.println("No Display Power");
}
else if(inCmd=='=') //Set minute clock to zero
{
t60 = 0;
t60Base = millis();
t60Last = t60;
Serial.println("Clock Zero'd");
}
else if(inCmd=='p' || inCmd=='P') // Increase clock 0.1 sec
{
t60 += 0.100;
t60Base -= 100;
Serial.println("Increase clock 0.1 sec");
}
else if(inCmd=='l' || inCmd=='L') // Decrease clock 0.1 sec
{
t60 -= 0.100;
t60Base += 100;
Serial.println("Decrease clock 0.1 sec");
}
else if(inCmd=='-') // Increase clock 1 sec
{
t60 += 1.000;
t60Last = t60;
t60Base -= 1000;
Serial.println("Increase clock 1 sec");
}
else if(inCmd==',') // Decrease clock 1 sec
{
t60 -= 1.000;
t60Last = t60;
t60Base -= 1000;
Serial.println("Decrease clock 1 sec");
}
else if(inCmd=='c' || inCmd=='C') // Toggle clock display
{
displayClock = !displayClock;
}
else if(inCmd=='?')
{
Serial.println("0, 1,...7 Select message 0 to 7");
Serial.println("w, W Increase S/N by 1 dB");
Serial.println("a, A Decrease S/N by 1 dB");
Serial.println("t, T Toggle Repeat every 15 sec or Trigger on msg entry");
Serial.println("d, D Toggle dB total power display, On or Off");
Serial.println("= Set local FT-8 clock to 0 (60 sec range).");
Serial.println("p, P Increase local FT8 clock by 0.1 sec");
Serial.println("l, L Decrease local FT8 clock by 0.1 sec");
Serial.println("- Increase local FT8 clock by 1 sec");
Serial.println(", Decrease local FT8 clock by 1 sec");
Serial.println("c, C Toggle Clock Display On or Off.");
Serial.println("? Help Display (this message)");
}
else if(inCmd>35) // Ignore anything below '#'
Serial.println("Cmd ???");
} // End, if Serial Available
// Update clock
t60 = 0.001f*(float32_t)(millis() - t60Base);
if(t60 >= 60.000f)
{
t60 -= 60.000f; // Seconds
t60Base += 60000; // milliSeconds
t60Last = t60;
if(displayClock)
{
Serial.print("Seconds: "); Serial.println(t60, 3);
}
}
if(t60-t60Last >= 1.000f)
{
if(displayClock)
{
Serial.print("Seconds: "); Serial.println(t60, 3);
}
if( rms1.available() && displayPower )
{
Serial.print("Power, dB = ");
Serial.println(20.0*rms1.read(), 2);
}
t60Last += 1.000f;
}
// Look for immediate triggered send
if(sendNext>=0 && !sendEvery15Sec)
{
FT8Mod1.cancelTransmit();
FT8Mod1.sendData((char*) inputString[sendNext], 1, 0, 0);
sendNext = -1;
Serial.println("Immediate Triggered Send");
}
// Look for send every 15 sec
if(!FT8Mod1.FT8TransmitBusy() && timing15() && sendNext>=0 && sendEvery15Sec)
{
FT8Mod1.cancelTransmit();
FT8Mod1.sendData((char*) inputString[sendNext], 1, 0, 0);
Serial.println("Send every 15 sec");
doing15SecSend = true;
}
} // End. loop
// Return true if time for new transmission
bool timing15(void) {
if(t60>=0.0f && t60<1.0f) return true;
if(t60>=15.0f && t60<16.0f) return true;
if(t60>=30.0f && t60<31.0f) return true;
if(t60>=45.0f && t60<46.0f) return true;
return false;
}

Binary file not shown.

@ -0,0 +1,133 @@
/*
* radioFT8modulator_F32
*
* Created: Bob Larkin 17 July 2022
*
* License: MIT License. Use at your own risk. See radioFT8Modulator.h file.
*
*/
#include "radioFT8Modulator_F32.h"
// 513 values of the sine wave in a float array:
#include "sinTable512_f32.h"
void RadioFT8Modulator_F32::update(void) {
audio_block_f32_t *blockOut;
uint16_t index;
float32_t a, b;
float32_t mag = 1.0f;
// uint32_t tu = micros();
if(ft8Transmit==false)
return;
// Sending tones. Sort out actions
blockOut = AudioStream_F32::allocate_f32(); // Get the output block
if (!blockOut)
return;
/* NOTE - ALL FT8 values shown in comments below are for a 48 kHz sample rate
* tone81SendCount 0 to 80 (81 tones)
* audioSampleCount 0 to 7679 for 48kHz sample rate
* sampleSent 0 to 622079 for 48kHz, 12.96 seconds, 81 tones
*/
// Send 128 audio samples of FSK sine waves
for(int kk=0; kk<128; kk++)
{
audioSampleCount = sampleSent % toneLength; // audioSampleCount is always derived from sampleSent
mag = magnitude; // Use down below
dphi = phaseIncrement;
if(tone81SendCount>0 && tone81SendCount<80) // Exclude end tones as special cases
{
if(audioSampleCount<pulseSegActive) // First part of tone with pulse shaping
{
// Overlap from previous tone with pulse falling 0.499608070 to 0.0 audioSampleCount 0 to 2815
dphi += (pulse[pulseSegActive - audioSampleCount - 1])*tones[tone81SendCount-1]*dphi_peak;
// plus current tone with pulse rising 0.500391960 to 1.0, audioSampleCount 0 to 2815
dphi += (1.0f - pulse[pulseSegActive - audioSampleCount - 1])*tones[tone81SendCount]*dphi_peak;
}
else if(audioSampleCount>=pulseSegActive && audioSampleCount<(toneLength - pulseSegActive)) // Center region, no pulses involved
{
// Center of tone with pulse level at 1.0, main tone, 2816 to 4863
dphi += tones[tone81SendCount]*dphi_peak;
}
else //if((audioSampleCount - 1)>(toneLength - pulseSegActive)) // Last part of tone with pulse shaping
{
// Current tone with pulse falling 1.0 to 0.500391960, audioSampleCount 4864 to 7679
dphi += (1.0f - pulse[audioSampleCount - (toneLength - pulseSegActive)])*tones[tone81SendCount]*dphi_peak;
// plus overlap from next tone with pulse rising 0.0 to 0.499608070, audioSampleCount 4864 to 7679
dphi += (pulse[audioSampleCount - (toneLength - pulseSegActive)])*tones[tone81SendCount + 1]*dphi_peak;
}
} // End of middle 79 tones
else if(tone81SendCount==0) // Key click pulse with no tone ahead
{
if((audioSampleCount)<(toneLength - pulseSegActive)) // audioSampleCount 0 to 4863 incl or 4864 points
{
// Pulse level at 1.0, main tone
dphi += tones[0]*dphi_peak;
}
else // Last part of tone with pulse shaping
{
// Current tone with pulse falling 1.0 to 0.50039196, audioSampleCount 4864 to 7679 or 2816 pts
dphi += (1.0f - pulse[audioSampleCount -(toneLength - pulseSegActive)])*tones[0]*dphi_peak;
// plus overlap from next tone with pulse rising 0.00000003 to 0.49960807 on 4864 to 7679
dphi += (pulse[audioSampleCount - (toneLength - pulseSegActive)])*tones[1]*dphi_peak;
}
if(audioSampleCount<cosineRampActive)
mag = magnitude*ramp[audioSampleCount];
else
mag = magnitude;
} // End of first tone
else if(tone81SendCount==80) // Key click pulse with no tone after
{
if(audioSampleCount<pulseSegActive) // First part of tone with pulse shaping
{
// Overlap from previous tone with pulse falling 0.499608070 to 0,00000
// over audioSampleCount 0 to 2815
dphi += (pulse[pulseSegActive - audioSampleCount - 1])*tones[79]*dphi_peak;
// plus current tone with pulse rising 0.50039196 to 1.0000000 0 to 2815
dphi += (1.0f - pulse[pulseSegActive - audioSampleCount - 1])*tones[80]*dphi_peak;
}
else //(audioSampleCount>=pulseSegActive) // Rest of region, no pulses involved
{
// Rest of tone with pulse level at 1.0, main tone, audioSampleCount 2816 to 7679
dphi += tones[80]*dphi_peak;
}
if(audioSampleCount>(toneLength - cosineRampActive))
{
mag = magnitude*ramp[toneLength - audioSampleCount];
}
else
mag = magnitude;
} // End of last tone
currentPhase += dphi;
while(currentPhase > 512.0f)
currentPhase -= 512.0f;
while(currentPhase < 0.0f)
currentPhase += 512.0f;
index = (uint16_t) currentPhase;
float32_t deltaPhase = currentPhase - (float32_t)index;
// Read two nearest values of input value from the sin table
a = sinTable512_f32[index];
b = sinTable512_f32[index+1];
blockOut->data[kk] = mag*(a+(b-a)*deltaPhase); // Linear interpolation
sampleSent++;
audioSampleCount = sampleSent % toneLength;
if(audioSampleCount == 0) // End of a tone send
{
if(++tone81SendCount == 81) // End of the 12.96 second period
{
tone81SendCount = 0;
ft8Transmit = false;
// Serial.println("End Transmission");
}
}
} // End, over all 128 audio output points
AudioStream_F32::transmit(blockOut);
AudioStream_F32::release (blockOut);
// Serial.println(micros() - tu);
}

File diff suppressed because it is too large Load Diff
Loading…
Cancel
Save