mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-11-15 16:42:12 -05:00
Allow WSJT-X to generate the new Q65 code. Loopback Q65 QSOs now work.
This commit is contained in:
parent
b6071d29da
commit
20b6d65c61
@ -132,6 +132,9 @@ extern "C" {
|
|||||||
void genqra64_(char* msg, int* ichk, char* msgsent, int itone[],
|
void genqra64_(char* msg, int* ichk, char* msgsent, int itone[],
|
||||||
int* itext, fortran_charlen_t, fortran_charlen_t);
|
int* itext, fortran_charlen_t, fortran_charlen_t);
|
||||||
|
|
||||||
|
void genq65_(char* msg, int* ichk, char* msgsent, int itone[],
|
||||||
|
int* i3, int* n3, fortran_charlen_t, fortran_charlen_t);
|
||||||
|
|
||||||
void genwspr_(char* msg, char* msgsent, int itone[], fortran_charlen_t, fortran_charlen_t);
|
void genwspr_(char* msg, char* msgsent, int itone[], fortran_charlen_t, fortran_charlen_t);
|
||||||
|
|
||||||
void geniscat_(char* msg, char* msgsent, int itone[], fortran_charlen_t, fortran_charlen_t);
|
void geniscat_(char* msg, char* msgsent, int itone[], fortran_charlen_t, fortran_charlen_t);
|
||||||
@ -3986,9 +3989,9 @@ void MainWindow::guiUpdate()
|
|||||||
if(m_modeTx=="QRA64") genqra64_(message, &ichk, msgsent, const_cast<int *> (itone),
|
if(m_modeTx=="QRA64") genqra64_(message, &ichk, msgsent, const_cast<int *> (itone),
|
||||||
&m_currentMessageType, 22, 22);
|
&m_currentMessageType, 22, 22);
|
||||||
if(m_modeTx=="Q65") {
|
if(m_modeTx=="Q65") {
|
||||||
int ichk65=65;
|
int i3=-1;
|
||||||
genqra64_(message, &ichk65, msgsent, const_cast<int *> (itone),
|
int n3=-1;
|
||||||
&m_currentMessageType, 22, 22);
|
genq65_(message,&ichk,msgsent,const_cast<int *>(itone),&i3,&n3,37,37);
|
||||||
}
|
}
|
||||||
if(m_modeTx=="WSPR") genwspr_(message, msgsent, const_cast<int *> (itone),
|
if(m_modeTx=="WSPR") genwspr_(message, msgsent, const_cast<int *> (itone),
|
||||||
22, 22);
|
22, 22);
|
||||||
|
Loading…
Reference in New Issue
Block a user