From ae61764af386e7a0935d50bac1d8f1cd1bc4a79e Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Fri, 1 Mar 2024 10:48:41 -0500
Subject: [PATCH] Starting to implement SuperFox capability in WSJT-X.
---
CMakeLists.txt | 1 +
Configuration.cpp | 6 +
Configuration.hpp | 1 +
Configuration.ui | 349 ++++++++++++++++++++-------------------
lib/ft8/foxgen.f90 | 8 +-
lib/superfox/foxgen2.f90 | 11 ++
widgets/mainwindow.cpp | 12 +-
7 files changed, 211 insertions(+), 177 deletions(-)
create mode 100644 lib/superfox/foxgen2.f90
diff --git a/CMakeLists.txt b/CMakeLists.txt
index 80866a67e..ddf108af9 100644
--- a/CMakeLists.txt
+++ b/CMakeLists.txt
@@ -427,6 +427,7 @@ set (wsjt_FSRCS
lib/fspread_lorentz.f90
lib/ft8/foxfilt.f90
lib/ft8/foxgen.f90
+ lib/superfox/foxgen2.f90
lib/ft8/foxgen_wrap.f90
lib/freqcal.f90
lib/ft8/ft8apset.f90
diff --git a/Configuration.cpp b/Configuration.cpp
index 6c387bcbd..870639172 100644
--- a/Configuration.cpp
+++ b/Configuration.cpp
@@ -725,6 +725,7 @@ private:
bool decode_at_52s_;
bool single_decode_;
bool twoPass_;
+ bool bSuperFox_;
bool Individual_Contest_Name_;
bool bSpecialOp_;
int SelectedActivity_;
@@ -833,6 +834,7 @@ bool Configuration::enable_VHF_features () const {return m_->enable_VHF_features
bool Configuration::decode_at_52s () const {return m_->decode_at_52s_;}
bool Configuration::single_decode () const {return m_->single_decode_;}
bool Configuration::twoPass() const {return m_->twoPass_;}
+bool Configuration::superFox() const {return m_->bSuperFox_;}
bool Configuration::Individual_Contest_Name() const {return m_->Individual_Contest_Name_;}
bool Configuration::x2ToneSpacing() const {return m_->x2ToneSpacing_;}
bool Configuration::x4ToneSpacing() const {return m_->x4ToneSpacing_;}
@@ -1463,6 +1465,7 @@ void Configuration::impl::initialize_models ()
ui_->decode_at_52s_check_box->setChecked(decode_at_52s_);
ui_->single_decode_check_box->setChecked(single_decode_);
ui_->cbTwoPass->setChecked(twoPass_);
+ ui_->cbSuperFox->setChecked(bSuperFox_);
ui_->cbContestName->setChecked(Individual_Contest_Name_);
ui_->gbSpecialOpActivity->setChecked(bSpecialOp_);
ui_->special_op_activity_button_group->button (SelectedActivity_)->setChecked (true);
@@ -1731,6 +1734,7 @@ void Configuration::impl::read_settings ()
decode_at_52s_ = settings_->value("Decode52",false).toBool ();
single_decode_ = settings_->value("SingleDecode",false).toBool ();
twoPass_ = settings_->value("TwoPass",true).toBool ();
+ bSuperFox_ = settings_->value("SuperFox",true).toBool ();
Individual_Contest_Name_ = settings_->value("Individual_Contest_Name",true).toBool ();
bSpecialOp_ = settings_->value("SpecialOpActivity",false).toBool ();
SelectedActivity_ = settings_->value("SelectedActivity",1).toInt ();
@@ -1879,6 +1883,7 @@ void Configuration::impl::write_settings ()
settings_->setValue ("Decode52", decode_at_52s_);
settings_->setValue ("SingleDecode", single_decode_);
settings_->setValue ("TwoPass", twoPass_);
+ settings_->setValue ("SuperFox", bSuperFox_);
settings_->setValue ("Individual_Contest_Name", Individual_Contest_Name_);
settings_->setValue ("SelectedActivity", SelectedActivity_);
settings_->setValue ("SpecialOpActivity", bSpecialOp_);
@@ -2308,6 +2313,7 @@ void Configuration::impl::accept ()
decode_at_52s_ = ui_->decode_at_52s_check_box->isChecked ();
single_decode_ = ui_->single_decode_check_box->isChecked ();
twoPass_ = ui_->cbTwoPass->isChecked ();
+ bSuperFox_ = ui_->cbSuperFox->isChecked ();
Individual_Contest_Name_ = ui_->cbContestName->isChecked ();
bSpecialOp_ = ui_->gbSpecialOpActivity->isChecked ();
SelectedActivity_ = ui_->special_op_activity_button_group->checkedId();
diff --git a/Configuration.hpp b/Configuration.hpp
index bb2322c3d..6ae241f76 100644
--- a/Configuration.hpp
+++ b/Configuration.hpp
@@ -137,6 +137,7 @@ public:
bool decode_at_52s () const;
bool single_decode () const;
bool twoPass() const;
+ bool superFox() const;
bool bFox() const;
bool bHound() const;
bool bLowSidelobes() const;
diff --git a/Configuration.ui b/Configuration.ui
index c29cc5722..8f6662590 100644
--- a/Configuration.ui
+++ b/Configuration.ui
@@ -2907,20 +2907,33 @@ Right click for insert and delete options.</string>
<property name="checked">
<bool>false</bool>
</property>
- <layout class="QGridLayout" name="gridLayout_15" columnstretch="1,0,0,0">
- <item row="0" column="3">
- <widget class="QRadioButton" name="rbHound">
- <property name="toolTip">
- <string><html><head/><body><p>FT8 DXpedition mode: Hound operator calling the DX.</p></body></html></string>
+ <layout class="QGridLayout" name="gridLayout_15" columnstretch="1,0,0,0,0">
+ <item row="0" column="2" rowspan="3">
+ <spacer name="horizontalSpacer_11">
+ <property name="orientation">
+ <enum>Qt::Horizontal</enum>
</property>
- <property name="accessibleName">
- <string>Hound</string>
+ <property name="sizeHint" stdset="0">
+ <size>
+ <width>40</width>
+ <height>20</height>
+ </size>
+ </property>
+ </spacer>
+ </item>
+ <item row="4" column="0">
+ <widget class="QRadioButton" name="rbQ65pileup">
+ <property name="minimumSize">
+ <size>
+ <width>0</width>
+ <height>18</height>
+ </size>
+ </property>
+ <property name="toolTip">
+ <string><html><head/><body><p>Exchange 4-character locator instead of signal report. Provides q3-level sensitivities for the DX operator. Especially useful for 6m EME DXpeditions.</p></body></html></string>
</property>
<property name="text">
- <string>Hound</string>
- </property>
- <property name="checked">
- <bool>true</bool>
+ <string>Q65 Pileup</string>
</property>
<attribute name="buttonGroup">
<string notr="true">special_op_activity_button_group</string>
@@ -2949,101 +2962,6 @@ Right click for insert and delete options.</string>
</attribute>
</widget>
</item>
- <item row="1" column="3">
- <layout class="QHBoxLayout" name="horizontalLayout_17" stretch="2,1,1">
- <item>
- <widget class="QRadioButton" name="rbField_Day">
- <property name="toolTip">
- <string><html><head/><body><p>ARRL Field Day exchange: number of transmitters, Class, and ARRL/RAC section or &quot;DX&quot;.</p></body></html></string>
- </property>
- <property name="accessibleName">
- <string>A R R L Field Day</string>
- </property>
- <property name="text">
- <string>ARRL Field Day</string>
- </property>
- <attribute name="buttonGroup">
- <string notr="true">special_op_activity_button_group</string>
- </attribute>
- </widget>
- </item>
- <item>
- <spacer name="horizontalSpacer_9">
- <property name="orientation">
- <enum>Qt::Horizontal</enum>
- </property>
- <property name="sizeHint" stdset="0">
- <size>
- <width>40</width>
- <height>20</height>
- </size>
- </property>
- </spacer>
- </item>
- <item>
- <layout class="QFormLayout" name="formLayout_16">
- <item row="0" column="0">
- <widget class="QLabel" name="labFD">
- <property name="accessibleName">
- <string>Field Day exchange</string>
- </property>
- <property name="text">
- <string>FD Exch:</string>
- </property>
- <property name="buddy">
- <cstring>Field_Day_Exchange</cstring>
- </property>
- </widget>
- </item>
- <item row="0" column="1">
- <widget class="QLineEdit" name="Field_Day_Exchange">
- <property name="minimumSize">
- <size>
- <width>70</width>
- <height>0</height>
- </size>
- </property>
- <property name="toolTip">
- <string><html><head/><body><p>ARRL Field Day exchange: number of transmitters, Class, and ARRL/RAC section or &quot;DX&quot;.</p></body></html></string>
- </property>
- <property name="text">
- <string>6A SNJ</string>
- </property>
- <property name="alignment">
- <set>Qt::AlignCenter</set>
- </property>
- </widget>
- </item>
- </layout>
- </item>
- </layout>
- </item>
- <item row="3" column="3">
- <widget class="QRadioButton" name="rbARRL_Digi">
- <property name="toolTip">
- <string><html><head/><body><p>ARRL International Digital Contest</p></body></html></string>
- </property>
- <property name="text">
- <string>ARRL Digi Contest</string>
- </property>
- <attribute name="buttonGroup">
- <string notr="true">special_op_activity_button_group</string>
- </attribute>
- </widget>
- </item>
- <item row="0" column="1" rowspan="3">
- <spacer name="horizontalSpacer_11">
- <property name="orientation">
- <enum>Qt::Horizontal</enum>
- </property>
- <property name="sizeHint" stdset="0">
- <size>
- <width>40</width>
- <height>20</height>
- </size>
- </property>
- </spacer>
- </item>
<item row="3" column="0">
<widget class="QRadioButton" name="rbWW_DIGI">
<property name="minimumSize">
@@ -3066,26 +2984,7 @@ Right click for insert and delete options.</string>
</attribute>
</widget>
</item>
- <item row="4" column="0">
- <widget class="QRadioButton" name="rbQ65pileup">
- <property name="minimumSize">
- <size>
- <width>0</width>
- <height>18</height>
- </size>
- </property>
- <property name="toolTip">
- <string><html><head/><body><p>Exchange 4-character locator instead of signal report. Provides q3-level sensitivities for the DX operator. Especially useful for 6m EME DXpeditions.</p></body></html></string>
- </property>
- <property name="text">
- <string>Q65 Pileup</string>
- </property>
- <attribute name="buttonGroup">
- <string notr="true">special_op_activity_button_group</string>
- </attribute>
- </widget>
- </item>
- <item row="2" column="3">
+ <item row="2" column="4">
<layout class="QHBoxLayout" name="horizontalLayout_18" stretch="2,1,1">
<item>
<widget class="QRadioButton" name="rbRTTY_Roundup">
@@ -3154,48 +3053,7 @@ Right click for insert and delete options.</string>
</item>
</layout>
</item>
- <item row="0" column="0">
- <widget class="QRadioButton" name="rbFox">
- <property name="toolTip">
- <string><html><head/><body><p>FT8 DXpedition mode: Fox (DXpedition) operator.</p></body></html></string>
- </property>
- <property name="accessibleName">
- <string>Fox</string>
- </property>
- <property name="text">
- <string>Fox</string>
- </property>
- <property name="checked">
- <bool>false</bool>
- </property>
- <attribute name="buttonGroup">
- <string notr="true">special_op_activity_button_group</string>
- </attribute>
- </widget>
- </item>
- <item row="2" column="0">
- <widget class="QRadioButton" name="rbEU_VHF_Contest">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Minimum" vsizetype="Preferred">
- <horstretch>0</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="toolTip">
- <string><html><head/><body><p>European VHF+ contests requiring a signal report, serial number, and 6-character locator.</p></body></html></string>
- </property>
- <property name="accessibleName">
- <string>EU VHF Contest</string>
- </property>
- <property name="text">
- <string>EU VHF Contest</string>
- </property>
- <attribute name="buttonGroup">
- <string notr="true">special_op_activity_button_group</string>
- </attribute>
- </widget>
- </item>
- <item row="4" column="3">
+ <item row="4" column="4">
<layout class="QHBoxLayout" name="horizontalLayout_24">
<item>
<widget class="QCheckBox" name="cbContestName">
@@ -3255,6 +3113,155 @@ Right click for insert and delete options.</string>
</item>
</layout>
</item>
+ <item row="3" column="4">
+ <widget class="QRadioButton" name="rbARRL_Digi">
+ <property name="toolTip">
+ <string><html><head/><body><p>ARRL International Digital Contest</p></body></html></string>
+ </property>
+ <property name="text">
+ <string>ARRL Digi Contest</string>
+ </property>
+ <attribute name="buttonGroup">
+ <string notr="true">special_op_activity_button_group</string>
+ </attribute>
+ </widget>
+ </item>
+ <item row="2" column="0">
+ <widget class="QRadioButton" name="rbEU_VHF_Contest">
+ <property name="sizePolicy">
+ <sizepolicy hsizetype="Minimum" vsizetype="Preferred">
+ <horstretch>0</horstretch>
+ <verstretch>0</verstretch>
+ </sizepolicy>
+ </property>
+ <property name="toolTip">
+ <string><html><head/><body><p>European VHF+ contests requiring a signal report, serial number, and 6-character locator.</p></body></html></string>
+ </property>
+ <property name="accessibleName">
+ <string>EU VHF Contest</string>
+ </property>
+ <property name="text">
+ <string>EU VHF Contest</string>
+ </property>
+ <attribute name="buttonGroup">
+ <string notr="true">special_op_activity_button_group</string>
+ </attribute>
+ </widget>
+ </item>
+ <item row="0" column="0">
+ <widget class="QRadioButton" name="rbFox">
+ <property name="toolTip">
+ <string><html><head/><body><p>FT8 DXpedition mode: Fox (DXpedition) operator.</p></body></html></string>
+ </property>
+ <property name="accessibleName">
+ <string>Fox</string>
+ </property>
+ <property name="text">
+ <string>Fox</string>
+ </property>
+ <property name="checked">
+ <bool>false</bool>
+ </property>
+ <attribute name="buttonGroup">
+ <string notr="true">special_op_activity_button_group</string>
+ </attribute>
+ </widget>
+ </item>
+ <item row="1" column="4">
+ <layout class="QHBoxLayout" name="horizontalLayout_17" stretch="2,1,1">
+ <item>
+ <widget class="QRadioButton" name="rbField_Day">
+ <property name="toolTip">
+ <string><html><head/><body><p>ARRL Field Day exchange: number of transmitters, Class, and ARRL/RAC section or &quot;DX&quot;.</p></body></html></string>
+ </property>
+ <property name="accessibleName">
+ <string>A R R L Field Day</string>
+ </property>
+ <property name="text">
+ <string>ARRL Field Day</string>
+ </property>
+ <attribute name="buttonGroup">
+ <string notr="true">special_op_activity_button_group</string>
+ </attribute>
+ </widget>
+ </item>
+ <item>
+ <spacer name="horizontalSpacer_9">
+ <property name="orientation">
+ <enum>Qt::Horizontal</enum>
+ </property>
+ <property name="sizeHint" stdset="0">
+ <size>
+ <width>40</width>
+ <height>20</height>
+ </size>
+ </property>
+ </spacer>
+ </item>
+ <item>
+ <layout class="QFormLayout" name="formLayout_16">
+ <item row="0" column="0">
+ <widget class="QLabel" name="labFD">
+ <property name="accessibleName">
+ <string>Field Day exchange</string>
+ </property>
+ <property name="text">
+ <string>FD Exch:</string>
+ </property>
+ <property name="buddy">
+ <cstring>Field_Day_Exchange</cstring>
+ </property>
+ </widget>
+ </item>
+ <item row="0" column="1">
+ <widget class="QLineEdit" name="Field_Day_Exchange">
+ <property name="minimumSize">
+ <size>
+ <width>70</width>
+ <height>0</height>
+ </size>
+ </property>
+ <property name="toolTip">
+ <string><html><head/><body><p>ARRL Field Day exchange: number of transmitters, Class, and ARRL/RAC section or &quot;DX&quot;.</p></body></html></string>
+ </property>
+ <property name="text">
+ <string>6A SNJ</string>
+ </property>
+ <property name="alignment">
+ <set>Qt::AlignCenter</set>
+ </property>
+ </widget>
+ </item>
+ </layout>
+ </item>
+ </layout>
+ </item>
+ <item row="0" column="4">
+ <widget class="QRadioButton" name="rbHound">
+ <property name="toolTip">
+ <string><html><head/><body><p>FT8 DXpedition mode: Hound operator calling the DX.</p></body></html></string>
+ </property>
+ <property name="accessibleName">
+ <string>Hound</string>
+ </property>
+ <property name="text">
+ <string>Hound</string>
+ </property>
+ <property name="checked">
+ <bool>true</bool>
+ </property>
+ <attribute name="buttonGroup">
+ <string notr="true">special_op_activity_button_group</string>
+ </attribute>
+ </widget>
+ </item>
+ <item row="0" column="1">
+ <widget class="QCheckBox" name="cbSuperFox">
+ <property name="text">
+ <string>SuperFox</string>
+ </property>
+ </widget>
+ </item>
</layout>
</widget>
</item>
@@ -3498,13 +3505,13 @@ Right click for insert and delete options.</string>
</connection>
</connections>
<buttongroups>
- <buttongroup name="CAT_handshake_button_group"/>
<buttongroup name="split_mode_button_group"/>
- <buttongroup name="TX_audio_source_button_group"/>
<buttongroup name="TX_mode_button_group"/>
- <buttongroup name="special_op_activity_button_group"/>
<buttongroup name="CAT_data_bits_button_group"/>
<buttongroup name="CAT_stop_bits_button_group"/>
+ <buttongroup name="TX_audio_source_button_group"/>
<buttongroup name="PTT_method_button_group"/>
+ <buttongroup name="CAT_handshake_button_group"/>
+ <buttongroup name="special_op_activity_button_group"/>
</buttongroups>
</ui>
diff --git a/lib/ft8/foxgen.f90 b/lib/ft8/foxgen.f90
index a2899e526..18450395e 100644
--- a/lib/ft8/foxgen.f90
+++ b/lib/ft8/foxgen.f90
@@ -1,4 +1,4 @@
-subroutine foxgen()
+subroutine foxgen(bSuperFox)
! Called from MainWindow::foxTxSequencer() to generate the Tx waveform in
! FT8 Fox mode. The Tx message can contain up to 5 "slots", each carrying
@@ -17,6 +17,7 @@ subroutine foxgen()
parameter (NN=79,ND=58,NSPS=4*1920)
parameter (NWAVE=(160+2)*134400*4) !the biggest waveform we generate (FST4-1800 at 48kHz)
parameter (NFFT=614400,NH=NFFT/2)
+ logical*1 bSuperFox
character*40 cmsg
character*37 msg,msgsent
integer itone(79)
@@ -29,6 +30,11 @@ subroutine foxgen()
common/foxcom2/itone2(NN),msgbits2(77)
equivalence (x,cx),(y,cy)
+ if(bSuperFox) then
+ call foxgen2(nslots,cmsg)
+ return
+ endif
+
fstep=60.d0
dfreq=6.25d0
dt=1.d0/48000.d0
diff --git a/lib/superfox/foxgen2.f90 b/lib/superfox/foxgen2.f90
new file mode 100644
index 000000000..127311ffe
--- /dev/null
+++ b/lib/superfox/foxgen2.f90
@@ -0,0 +1,11 @@
+subroutine foxgen2(nslots,cmsg)
+
+ character*40 cmsg(5)
+
+ print*,' '
+ do i=1,nslots
+ print*,i,cmsg(i)
+ enddo
+
+ return
+end subroutine foxgen2
diff --git a/widgets/mainwindow.cpp b/widgets/mainwindow.cpp
index ae8766572..c96205f3c 100644
--- a/widgets/mainwindow.cpp
+++ b/widgets/mainwindow.cpp
@@ -176,7 +176,7 @@ extern "C" {
void calibrate_(char const * data_dir, int* iz, double* a, double* b, double* rms,
double* sigmaa, double* sigmab, int* irc, fortran_charlen_t);
- void foxgen_();
+ void foxgen_(bool* bSuperFox);
void plotsave_(float swide[], int* m_w , int* m_h1, int* irow);
@@ -2224,13 +2224,13 @@ void MainWindow::keyPressEvent (QKeyEvent * e)
case Qt::Key_Backspace:
qDebug() << "Key Backspace";
return;
-#ifdef DEBUG_FOX
+//#ifdef DEBUG_FOX
case Qt::Key_X:
if(e->modifiers() & Qt::AltModifier) {
foxTest();
return;
}
-#endif
+//#endif
}
QMainWindow::keyPressEvent (e);
}
@@ -4823,7 +4823,8 @@ void MainWindow::guiUpdate()
if(m_config.split_mode()) foxcom_.nfreq = foxcom_.nfreq - m_XIT; //Fox Tx freq
QString foxCall=m_config.my_callsign() + " ";
::memcpy(foxcom_.mycall, foxCall.toLatin1(), sizeof foxcom_.mycall); //Copy Fox callsign into foxcom_
- foxgen_();
+ bool bSuperFox=m_config.superFox();
+ foxgen_(&bSuperFox);
}
}
}
@@ -10297,7 +10298,8 @@ Transmit:
if(m_config.split_mode()) foxcom_.nfreq = foxcom_.nfreq - m_XIT; //Fox Tx freq
QString foxCall=m_config.my_callsign() + " ";
::memcpy(foxcom_.mycall, foxCall.toLatin1(),sizeof foxcom_.mycall); //Copy Fox callsign into foxcom_
- foxgen_();
+ bool bSuperFox=m_config.superFox();
+ foxgen_(&bSuperFox);
m_tFoxTxSinceCQ++;
for(QString hc: m_foxQSO.keys()) { //Check for strikeout or timeout