[hamradio-commits] [wsjtx] 01/02: Imported Upstream version 1.5.0
Iain R. Learmonth
irl at moszumanska.debian.org
Sun Oct 18 15:03:16 UTC 2015
This is an automated email from the git hooks/post-receive script.
irl pushed a commit to branch master
in repository wsjtx.
commit 22696e51fe67fafae28ffad7ffc3daa58807be92
Author: Iain R. Learmonth <irl at debian.org>
Date: Sun Oct 18 16:02:58 2015 +0100
Imported Upstream version 1.5.0
---
AUTHORS | 28 +
BUGS | 45 +
CMakeLists.txt | 224 ++++
COPYING | 151 +++
INSTALL | 137 +++
LICENSE_WHEATLEY.TXT | 30 -
NEWS | 16 +
PSKReporter.h | 127 --
QtSupport.iss | 10 -
README | 49 +
THANKS | 23 +
about.cpp | 23 -
about.h | 24 -
about.ui | 40 -
afmhot.dat | 257 -----
blue.dat | 256 -----
commons.h | 35 -
devsetup.cpp | 595 ----------
devsetup.h | 120 --
devsetup.ui | 2599 -----------------------------------------
displaytext.cpp | 16 -
displaytext.h | 22 -
ffft.f | 69 --
fftw3.f | 64 --
getdev.cpp | 259 -----
getfile.cpp | 199 ----
getfile.h | 18 -
in.dat | 16 -
jt9.txt | 65 --
killbyname.cpp | 284 -----
lib/Makefile.MinGW | 117 --
lib/Makefile.linux | 104 --
lib/afc65b.f90 | 59 -
lib/afc9.f90 | 58 -
lib/analytic.f90 | 25 -
lib/azdist.f90 | 107 --
lib/bpskmetrics.dat | 256 -----
lib/ccf2.f90 | 45 -
lib/ccf65.f90 | 117 --
lib/char.h | 57 -
lib/chkhist.f90 | 21 -
lib/chkmsg.f90 | 31 -
lib/chkss2.f90 | 24 -
lib/constants.f90 | 5 -
lib/conv232.f90 | 38 -
lib/cutil.c | 93 --
lib/db.f90 | 5 -
lib/decode65a.f90 | 95 --
lib/decode65b.f90 | 36 -
lib/decode9.f90 | 85 --
lib/decode_rs.c | 263 -----
lib/decoder.f90 | 173 ---
lib/deep24.f90 | 182 ---
lib/deg2grid.f90 | 30 -
lib/demod64a.f90 | 73 --
lib/downsam9.f90 | 66 --
lib/encode232.f90 | 33 -
lib/encode4.f90 | 20 -
lib/encode_rs.c | 52 -
lib/entail.f90 | 30 -
lib/extract.F90 | 103 --
lib/extract4.f90 | 61 -
lib/f77_wisdom.f90 | 45 -
lib/fano232.f90 | 140 ---
lib/fchisq.f90 | 41 -
lib/fchisq65.f90 | 68 --
lib/fftw3.f90 | 64 --
lib/fil3.f90 | 159 ---
lib/fil61.f90 | 64 --
lib/fil6521.f90 | 44 -
lib/filbig.f90 | 127 --
lib/fillcom.f90 | 25 -
lib/flat1.f90 | 30 -
lib/flat2.f90 | 18 -
lib/flat65.f90 | 25 -
lib/four2a.f90 | 90 --
lib/gen24.f90 | 86 --
lib/gen65.f90 | 65 --
lib/genjt9.f90 | 58 -
lib/genmet.f90 | 88 --
lib/geodist.f90 | 96 --
lib/getlags.f90 | 27 -
lib/getmet24.f90 | 52 -
lib/getpfx1.f90 | 97 --
lib/getpfx2.f90 | 24 -
lib/gran.c | 28 -
lib/graycode.f90 | 9 -
lib/graycode65.f90 | 9 -
lib/grid2deg.f90 | 38 -
lib/grid2k.f90 | 12 -
lib/grid2n.f90 | 10 -
lib/igray.c | 18 -
lib/indexx.f90 | 19 -
lib/init_rs.c | 126 --
lib/int.h | 57 -
lib/interleave24.f90 | 43 -
lib/interleave63.f90 | 25 -
lib/interleave8.f90 | 17 -
lib/interleave9.f90 | 39 -
lib/ipcomm.cpp | 50 -
lib/jt65.f90 | 68 --
lib/jt65a.f90 | 85 --
lib/jt9.f90 | 111 --
lib/jt9a.f90 | 72 --
lib/jt9b.f90 | 12 -
lib/jt9c.f90 | 21 -
lib/jt9code.f90 | 29 -
lib/jt9sim.f90 | 166 ---
lib/jt9sync.f90 | 18 -
lib/k2grid.f90 | 12 -
lib/libhamlib.dll.a | Bin 177492 -> 0 bytes
lib/met8.21 | 256 -----
lib/morse.f90 | 86 --
lib/move.f90 | 7 -
lib/msgs.txt | 60 -
lib/n2grid.f90 | 14 -
lib/nchar.f90 | 23 -
lib/noisegen.f90 | 13 -
lib/packbits.f90 | 21 -
lib/packcall.f90 | 79 --
lib/packdxcc.f90 | 64 --
lib/packgrid.f90 | 76 --
lib/packmsg.f90 | 113 --
lib/packtext.f90 | 47 -
lib/pctile.f90 | 22 -
lib/peakdt9.f90 | 54 -
lib/peakup.f90 | 8 -
lib/pfx.f90 | 50 -
lib/pfxdump.f90 | 13 -
lib/ps24.f90 | 27 -
lib/ptt.c | 50 -
lib/rig_control.c | 99 --
lib/rs.h | 35 -
lib/s3avg.f90 | 60 -
lib/sec_midn.f90 | 11 -
lib/setup65.f90 | 96 --
lib/sleep.h | 32 -
lib/sleep_msec.f90 | 4 -
lib/slope.f90 | 40 -
lib/smo121.f90 | 13 -
lib/softsym.f90 | 50 -
lib/sort.f90 | 4 -
lib/ss.bat | 1 -
lib/ssort.f90 | 264 -----
lib/stdmsg.f90 | 12 -
lib/symspec.f90 | 113 --
lib/symspec2.f90 | 88 --
lib/symspec65.f90 | 47 -
lib/sync24.f90 | 179 ---
lib/sync9.f90 | 101 --
lib/tab.c | 36 -
lib/timer.f90 | 112 --
lib/timeval.h | 74 --
lib/tstrig.c | 26 -
lib/tstrig.h | 50 -
lib/twkfreq.f90 | 28 -
lib/twkfreq65.f90 | 25 -
lib/unpackbits.f90 | 22 -
lib/unpackcall.f90 | 142 ---
lib/unpackgrid.f90 | 45 -
lib/unpackmsg.f90 | 107 --
lib/unpacktext.f90 | 35 -
lib/vit216.c | 219 ----
lib/wrapkarn.c | 70 --
lib/wsjt24.f90 | 181 ---
lib/wsjt24d.f90 | 43 -
lib/xcor24.f90 | 94 --
lib/zplot9.f90 | 31 -
logqso.cpp | 174 ---
logqso.h | 53 -
logqso.ui | 759 ------------
main.cpp | 60 -
mainwindow.cpp | 3052 -------------------------------------------------
mainwindow.h | 392 -------
mainwindow.ui | 2925 -----------------------------------------------
meterwidget.cpp | 51 -
meterwidget.h | 30 -
mouse_commands.txt | 18 -
paInputDevice.c | 56 -
pa_get_device_info.c | 172 ---
plotter.cpp | 565 ---------
plotter.h | 139 ---
psk_reporter.cpp | 104 --
psk_reporter.h | 41 -
rigclass.cpp | 324 ------
rigclass.h | 98 --
shortcuts.txt | 26 -
signalmeter.cpp | 53 -
signalmeter.h | 32 -
sleep.h | 16 -
soundin.cpp | 208 ----
soundin.h | 50 -
soundout.cpp | 270 -----
soundout.h | 53 -
src/hamlib.tgz | Bin 0 -> 2655435 bytes
src/hamlib.tgz.md5sum | 1 +
src/wsjtx.tgz | Bin 0 -> 6808023 bytes
src/wsjtx.tgz.md5sum | 1 +
ss.bat | 1 -
sss.bat | 1 -
widegraph.cpp | 314 -----
widegraph.h | 89 --
widegraph.ui | 398 -------
wsjt.ico | Bin 1078 -> 0 bytes
wsjtx.iss | 23 -
wsjtx.pro | 81 --
wsjtx.rc | 1 -
wsjtx_changelog.txt | 791 -------------
wsjtx_opti.iss | 23 -
209 files changed, 675 insertions(+), 25334 deletions(-)
diff --git a/AUTHORS b/AUTHORS
new file mode 100644
index 0000000..223ae54
--- /dev/null
+++ b/AUTHORS
@@ -0,0 +1,28 @@
+
+ __ __ ______ _____ ________ __ __
+| \ _ | \ / \ | \| \ | \ | \
+| $$ / \ | $$| $$$$$$\ \$$$$$ \$$$$$$$$ | $$ | $$
+| $$/ $\| $$| $$___\$$ | $$ | $$ ______ \$$\/ $$
+| $$ $$$\ $$ \$$ \ __ | $$ | $$| \ >$$ $$
+| $$ $$\$$\$$ _\$$$$$$\| \ | $$ | $$ \$$$$$$/ $$$$\
+| $$$$ \$$$$| \__| $$| $$__| $$ | $$ | $$ \$$\
+| $$$ \$$$ \$$ $$ \$$ $$ | $$ | $$ | $$
+ \$$ \$$ \$$$$$$ \$$$$$$ \$$ \$$ \$$
+
+
+
+Copyright 2001 - 2015 by Joe Taylor, K1JT.
+
+By: Joe Taylor, K1JT
+
+See:
+
+https://sourceforge.net/p/wsjt/wsjt/HEAD/tree/branches/wsjtx/AUTHORS
+
+for the WSJT-X authors and:
+
+https://sourceforge.net/p/hamlib/code/ci/master/tree/AUTHORS
+
+for the authors of the Hamlib library and tools.
+
+CMake scripts originally authored by Bill Somerville, G4WJS.
\ No newline at end of file
diff --git a/BUGS b/BUGS
new file mode 100644
index 0000000..d492fd9
--- /dev/null
+++ b/BUGS
@@ -0,0 +1,45 @@
+
+ __ __ ______ _____ ________ __ __
+| \ _ | \ / \ | \| \ | \ | \
+| $$ / \ | $$| $$$$$$\ \$$$$$ \$$$$$$$$ | $$ | $$
+| $$/ $\| $$| $$___\$$ | $$ | $$ ______ \$$\/ $$
+| $$ $$$\ $$ \$$ \ __ | $$ | $$| \ >$$ $$
+| $$ $$\$$\$$ _\$$$$$$\| \ | $$ | $$ \$$$$$$/ $$$$\
+| $$$$ \$$$$| \__| $$| $$__| $$ | $$ | $$ \$$\
+| $$$ \$$$ \$$ $$ \$$ $$ | $$ | $$ | $$
+ \$$ \$$ \$$$$$$ \$$$$$$ \$$ \$$ \$$
+
+
+Copyright 2001 - 2015 by Joe Taylor, K1JT.
+
+This project doesn't work on MS Windows. This is because the
+envoirnment required to build Hamlib, a MinGW environment, is not
+suitable for building the WSJT-X application. The WSJT-X build,
+because of teh way Qt applications must be built, requires a modified
+MS DOS command environment. The two environments are incompatible and
+cannot easily be used in a common build script like the one in this
+project.
+
+Although this project will probably work on Apple Mac OS X, it is
+incomplete since on that platform there are several other dependencies
+and tools required that are not available as standard on a Mac. See
+the WSJT-X project for a suitable recipe for building WSJT-X on a Mac.
+
+Debian and RPM packages generated directly by this project are not yet
+suitable for submission to official distributions. This is mainly due
+to limitations in the CPack package generators invoked by CPack. This
+doesn't preclude the two phase build method being used to make and
+build from a source tarball. It just means that package maintainers
+will probably have to develop their own package control files.
+
+Currently this project makes use of a forked Hamlib git repository,
+use of forks of dependent libraries is not recommended by official
+Linux distributions but we have little choice at present. All patches
+made in the Hamlib fork are being submitted upstream so soon a fork
+will not be required. At this point a snapshot of the Hamlib git
+master may be substituted. Using a snapshot (or a patch generated from
+it) may also be problematic as well. When the Hamlib team make a
+release of Hamlib v3 and that is accepted into the official Linux
+repositories; the need for a fork or snapshot will no longer be
+necessary. At that point this project will probably be obselete as the
+WSJT-X build script and source kit will be sufficient.
\ No newline at end of file
diff --git a/CMakeLists.txt b/CMakeLists.txt
new file mode 100644
index 0000000..e93e558
--- /dev/null
+++ b/CMakeLists.txt
@@ -0,0 +1,224 @@
+cmake_minimum_required (VERSION 2.8.10 FATAL_ERROR)
+
+project (wsjt-superbuild)
+
+set (__default_tag branches/wsjtx)
+
+set (WSJTX_TAG ${__default_tag}
+ CACHE STRING "WSJT-X tag or branch to build, if unset build the latest trunk.
+
+For a tag use tags/<tag-name> e.g. tags/wsjtx-1.4.0-rc2
+
+For a branch use branches/<branch-name> e.g. branches/wsjtx-1.4
+
+The WSJTX_TAG option is only used if the directory 'src' is not
+present. If the 'src' directory is present the build expects the
+sources to be found in it consisting of the two files 'hamlib.tgz' and
+'wsjtx.tgz'. This 'src' directory is to be used where build hosts do
+not allow source downloads using Subversion, git or cURL as part of
+the build. See the 'source' target for how to generate a suitable
+source tarball." )
+
+
+#
+# find prerequisites
+#
+# Find_library (USB_LIBRARY NAMES libusb.a usb)
+Find_program (MAKE_EXECUTABLE NAMES make mingw32_make gmake)
+Find_program (SVN_EXECUTABLE svn)
+
+
+#
+# extra C flags to minimize hamlib excutable sizes
+#
+if (NOT APPLE)
+ set (EXTRA_FLAGS "CFLAGS=-fdata-sections -ffunction-sections" "LDFLAGS=-Wl,--gc-sections")
+endif (NOT APPLE)
+
+
+#
+# function to read and extract MD5 hashes from a file
+#
+function (read_md5sum file result_variable)
+ file (READ ${file}.md5sum md5sum)
+ string (REGEX REPLACE "^([^ ]+).*$" "\\1" md5sum ${md5sum})
+ set (${result_variable} ${md5sum} PARENT_SCOPE)
+endfunction (read_md5sum)
+
+
+#
+# work out what we want to build
+#
+if (NOT EXISTS "${CMAKE_CURRENT_SOURCE_DIR}/src")
+ # one day this needs to change to the hamlib git master
+ set (hamlib_repo git://git.code.sf.net/u/bsomervi/hamlib)
+
+ set (wsjtx_repo svn://svn.code.sf.net/p/wsjt/wsjt/${WSJTX_TAG})
+
+ string (FIND ${WSJTX_TAG} / __pos REVERSE)
+
+ # validate tag, not rigorous but git/svn will error out if
+ # calculated tags or branches don't exist
+ if (__pos EQUAL -1)
+ message (FATAL_ERROR "Invalid TAG format.")
+ endif (__pos EQUAL -1)
+
+ # one day this needs to change to master or some agreed stable SHA
+ set (hamlib_TAG integration)
+
+ # split the WSJTX_TAG variable
+ string (SUBSTRING ${WSJTX_TAG} 0 ${__pos} __prefix)
+ math (EXPR __pos "${__pos} + 1")
+ string (SUBSTRING ${WSJTX_TAG} ${__pos} -1 __suffix)
+
+ # decide if we want to build from a branch or a tag
+ if (NOT __prefix STREQUAL branches)
+ # assume we have a tag so find matching hamlib tag
+ #
+ # this assumed that a tag exists in the hamlib repository that is
+ # exactly the same as the WSJT-X repository tag we intend to build
+ # from
+ set (hamlib_TAG "${__suffix}")
+ message (STATUS "Building WSJT-X tag: ${WSJTX_TAG}")
+ message (STATUS "hamlib tag: ${hamlib_TAG}")
+ else (NOT __prefix STREQUAL branches)
+ message (STATUS "Building WSJT-X branch: ${WSJTX_TAG}")
+ message (STATUS "hamlib branch: ${hamlib_TAG}")
+ endif (NOT __prefix STREQUAL branches)
+else (NOT EXISTS "${CMAKE_CURRENT_SOURCE_DIR}/src")
+ read_md5sum (src/hamlib.tgz hamlib_md5sum)
+ read_md5sum (src/wsjtx.tgz wsjtx_md5sum)
+endif (NOT EXISTS "${CMAKE_CURRENT_SOURCE_DIR}/src")
+
+
+include (ExternalProject)
+
+
+#
+# build aand install hamlib locally so it can be referenced by the
+# WSJT-X build
+#
+ExternalProject_Add (hamlib
+ GIT_REPOSITORY ${hamlib_repo}
+ GIT_TAG ${hamlib_TAG}
+ URL ${CMAKE_CURRENT_SOURCE_DIR}/src/hamlib.tgz
+ URL_HASH MD5=${hamlib_md5sum}
+ UPDATE_COMMAND ""
+ CONFIGURE_COMMAND <SOURCE_DIR>/autogen.sh --prefix=<INSTALL_DIR> --disable-shared --enable-static --without-cxx-binding ${EXTRA_FLAGS} # LIBUSB_LIBS=${USB_LIBRARY}
+ BUILD_COMMAND ${MAKE_EXECUTABLE} all
+ INSTALL_COMMAND ${MAKE_EXECUTABLE} install-strip
+ LOG_DOWNLOAD 1
+ LOG_UPDATE 1
+ LOG_UPDATE 1
+ LOG_CONFIGURE 1
+ LOG_BUILD 1
+ LOG_INSTALL 1
+ STEP_TARGETS update
+ )
+
+#
+# custom target to make a hamlib source tarball
+#
+ExternalProject_Get_Property (hamlib SOURCE_DIR)
+ExternalProject_Get_Property (hamlib TMP_DIR)
+add_custom_target (hamlib_sources
+ COMMAND ${CMAKE_COMMAND} -E make_directory hamlib
+ COMMAND ${CMAKE_COMMAND} -E copy_directory ${SOURCE_DIR} hamlib
+ COMMAND ${CMAKE_COMMAND} -E remove_directory hamlib/.git
+ COMMAND ${CMAKE_COMMAND} -E tar czf ${CMAKE_CURRENT_BINARY_DIR}/hamlib.tgz hamlib
+ COMMAND ${CMAKE_COMMAND} -E remove_directory hamlib
+ WORKING_DIRECTORY ${TMP_DIR}
+ DEPENDS hamlib-update
+ COMMENT "Generating the hamlib upstream source tarball"
+ )
+
+
+#
+# build and optionally install WSJT-X using the hamlib package built
+# above
+#
+ExternalProject_Get_Property (hamlib INSTALL_DIR)
+ExternalProject_Add (wsjtx
+ DEPENDS hamlib
+ SVN_REPOSITORY ${wsjtx_repo}
+ URL ${CMAKE_CURRENT_SOURCE_DIR}/src/wsjtx.tgz
+ URL_HASH MD5=${wsjtx_md5sum}
+ CMAKE_ARGS
+ -D CMAKE_PREFIX_PATH=${INSTALL_DIR}
+ -D CMAKE_INSTALL_PREFIX=<INSTALL_DIR>
+ ${WSJTX_EXTRA_CMAKE_OPTIONS}
+ INSTALL_DIR ${CMAKE_INSTALL_PREFIX}
+ LOG_DOWNLOAD 1
+ LOG_UPDATE 1
+ LOG_CONFIGURE 1
+ LOG_BUILD 1
+ STEP_TARGETS update configure build install
+ )
+ExternalProject_Add_Step (wsjtx package
+ COMMAND ${CMAKE_COMMAND} --build <BINARY_DIR> --target package
+ COMMAND echo "Built hamlib from branch/tag: ${hamlib_TAG}"
+ COMMAND echo "Built WSJT-X from: ${WSJTX_TAG}"
+ COMMAND echo "Package(s) generated in ${BINARY_DIR}."
+ COMMENT "Generating WSJT-X package."
+ DEPENDEES build
+ )
+
+set_target_properties (wsjtx PROPERTIES EXCLUDE_FROM_ALL 1)
+
+# export traditional targets
+add_custom_target (build ALL DEPENDS wsjtx-build)
+add_custom_target (install DEPENDS wsjtx-install)
+add_custom_target (package DEPENDS wsjtx-package)
+
+
+#
+# custom target to make WSJT-X source tarball
+#
+ExternalProject_Get_Property (wsjtx SOURCE_DIR)
+ExternalProject_Get_Property (wsjtx TMP_DIR)
+add_custom_target (wsjtx_sources
+ COMMAND ${CMAKE_COMMAND} -E make_directory wsjtx
+ COMMAND ${CMAKE_COMMAND} -E copy_directory ${SOURCE_DIR} wsjtx
+ COMMAND ${CMAKE_COMMAND} -E remove_directory wsjtx/.svn
+ COMMAND ${CMAKE_COMMAND} -E tar czf ${CMAKE_CURRENT_BINARY_DIR}/wsjtx.tgz wsjtx
+ COMMAND ${CMAKE_COMMAND} -E remove_directory wsjtx
+ WORKING_DIRECTORY ${TMP_DIR}
+ DEPENDS wsjtx-update
+ COMMENT "Generating the WSJT-X upstream source tarball"
+ )
+
+
+#
+# custom target to build a self-contained source tarball suitable for
+# a local build
+#
+add_custom_target (source
+ COMMAND ${CMAKE_COMMAND} -E make_directory ${__suffix}
+ COMMAND ${CMAKE_COMMAND} -E copy_directory ${CMAKE_CURRENT_SOURCE_DIR} ${__suffix}
+ COMMAND ${CMAKE_COMMAND} -E remove_directory ${__suffix}/.svn
+ COMMAND ${CMAKE_COMMAND} -E remove_directory ${__suffix}/.git
+ COMMAND ${CMAKE_COMMAND} -E make_directory ${__suffix}/src
+ COMMAND ${CMAKE_COMMAND} -E rename hamlib.tgz ${__suffix}/src/hamlib.tgz
+ COMMAND ${CMAKE_COMMAND} -E rename wsjtx.tgz ${__suffix}/src/wsjtx.tgz
+ COMMAND ${CMAKE_COMMAND} -E md5sum ${__suffix}/src/hamlib.tgz > ${__suffix}/src/hamlib.tgz.md5sum
+ COMMAND ${CMAKE_COMMAND} -E md5sum ${__suffix}/src/wsjtx.tgz > ${__suffix}/src/wsjtx.tgz.md5sum
+ COMMAND ${CMAKE_COMMAND} -E tar czf ${__suffix}.tgz ${__suffix}
+ COMMAND ${CMAKE_COMMAND} -E remove_directory ${__suffix}
+ WORKING_DIRECTORY "${CMAKE_CURRENT_BINARY_DIR}"
+ DEPENDS hamlib_sources wsjtx_sources
+ COMMENT "
+Generating the WSJT-X superbuild self-contained source tarball ${__suffix}.tgz
+
+To use this tarball, transfer it to the target build host, un-tar it
+and, configure it including a CMAKE_INSTALL_PREFIX if required (the
+default is /usr), then build and install. For example:
+
+ $ tar xzf ${__suffix}.tgz
+ $ mkdir build
+ $ cd build
+ $ cmake ../${__suffix}
+ $ cmake --build .
+ $ sudo cmake --build . --target install
+
+"
+ )
diff --git a/COPYING b/COPYING
new file mode 100644
index 0000000..b74cdd1
--- /dev/null
+++ b/COPYING
@@ -0,0 +1,151 @@
+GNU GENERAL PUBLIC LICENSE Version 3, 29 June 2007
+
+Copyright (C) 2007 Free Software Foundation, Inc.
+
+Everyone is permitted to copy and distribute verbatim copies of this license document, but changing it is not allowed.
+
+Preamble The GNU General Public License is a free, copyleft license for software and other kinds of works.
+
+The licenses for most software and other practical works are designed to take away your freedom to share and change the works. By contrast, the GNU General Public License is intended to guarantee your freedom to share and change all versions of a program--to make sure it remains free software for all its users. We, the Free Software Foundation, use the GNU General Public License for most of our software; it applies also to any other work released this way by its authors. You can apply it [...]
+
+When we speak of free software, we are referring to freedom, not price. Our General Public Licenses are designed to make sure that you have the freedom to distribute copies of free software (and charge for them if you wish), that you receive source code or can get it if you want it, that you can change the software or use pieces of it in new free programs, and that you know you can do these things.
+
+To protect your rights, we need to prevent others from denying you these rights or asking you to surrender the rights. Therefore, you have certain responsibilities if you distribute copies of the software, or if you modify it: responsibilities to respect the freedom of others.
+
+For example, if you distribute copies of such a program, whether gratis or for a fee, you must pass on to the recipients the same freedoms that you received. You must make sure that they, too, receive or can get the source code. And you must show them these terms so they know their rights.
+
+Developers that use the GNU GPL protect your rights with two steps: (1) assert copyright on the software, and (2) offer you this License giving you legal permission to copy, distribute and/or modify it.
+
+For the developers' and authors' protection, the GPL clearly explains that there is no warranty for this free software. For both users' and authors' sake, the GPL requires that modified versions be marked as changed, so that their problems will not be attributed erroneously to authors of previous versions.
+
+Some devices are designed to deny users access to install or run modified versions of the software inside them, although the manufacturer can do so. This is fundamentally incompatible with the aim of protecting users' freedom to change the software. The systematic pattern of such abuse occurs in the area of products for individuals to use, which is precisely where it is most unacceptable. Therefore, we have designed this version of the GPL to prohibit the practice for those products. If [...]
+
+Finally, every program is threatened constantly by software patents. States should not allow patents to restrict development and use of software on general-purpose computers, but in those that do, we wish to avoid the special danger that patents applied to a free program could make it effectively proprietary. To prevent this, the GPL assures that patents cannot be used to render the program non-free.
+
+The precise terms and conditions for copying, distribution and modification follow.
+
+TERMS AND CONDITIONS 0. Definitions. “This License” refers to version 3 of the GNU General Public License.
+
+“Copyright” also means copyright-like laws that apply to other kinds of works, such as semiconductor masks.
+
+“The Program” refers to any copyrightable work licensed under this License. Each licensee is addressed as “you”. “Licensees” and “recipients” may be individuals or organizations.
+
+To “modify” a work means to copy from or adapt all or part of the work in a fashion requiring copyright permission, other than the making of an exact copy. The resulting work is called a “modified version” of the earlier work or a work “based on” the earlier work.
+
+A “covered work” means either the unmodified Program or a work based on the Program.
+
+To “propagate” a work means to do anything with it that, without permission, would make you directly or secondarily liable for infringement under applicable copyright law, except executing it on a computer or modifying a private copy. Propagation includes copying, distribution (with or without modification), making available to the public, and in some countries other activities as well.
+
+To “convey” a work means any kind of propagation that enables other parties to make or receive copies. Mere interaction with a user through a computer network, with no transfer of a copy, is not conveying.
+
+An interactive user interface displays “Appropriate Legal Notices” to the extent that it includes a convenient and prominently visible feature that (1) displays an appropriate copyright notice, and (2) tells the user that there is no warranty for the work (except to the extent that warranties are provided), that licensees may convey the work under this License, and how to view a copy of this License. If the interface presents a list of user commands or options, such as a menu, a prominen [...]
+
+1. Source Code. The “source code” for a work means the preferred form of the work for making modifications to it. “Object code” means any non-source form of a work.
+
+A “Standard Interface” means an interface that either is an official standard defined by a recognized standards body, or, in the case of interfaces specified for a particular programming language, one that is widely used among developers working in that language.
+
+The “System Libraries” of an executable work include anything, other than the work as a whole, that (a) is included in the normal form of packaging a Major Component, but which is not part of that Major Component, and (b) serves only to enable use of the work with that Major Component, or to implement a Standard Interface for which an implementation is available to the public in source code form. A “Major Component”, in this context, means a major essential component (kernel, window syst [...]
+
+The “Corresponding Source” for a work in object code form means all the source code needed to generate, install, and (for an executable work) run the object code and to modify the work, including scripts to control those activities. However, it does not include the work's System Libraries, or general-purpose tools or generally available free programs which are used unmodified in performing those activities but which are not part of the work. For example, Corresponding Source includes int [...]
+
+The Corresponding Source need not include anything that users can regenerate automatically from other parts of the Corresponding Source.
+
+The Corresponding Source for a work in source code form is that same work.
+
+2. Basic Permissions. All rights granted under this License are granted for the term of copyright on the Program, and are irrevocable provided the stated conditions are met. This License explicitly affirms your unlimited permission to run the unmodified Program. The output from running a covered work is covered by this License only if the output, given its content, constitutes a covered work. This License acknowledges your rights of fair use or other equivalent, as provided by copyright law.
+
+You may make, run and propagate covered works that you do not convey, without conditions so long as your license otherwise remains in force. You may convey covered works to others for the sole purpose of having them make modifications exclusively for you, or provide you with facilities for running those works, provided that you comply with the terms of this License in conveying all material for which you do not control copyright. Those thus making or running the covered works for you mus [...]
+
+Conveying under any other circumstances is permitted solely under the conditions stated below. Sublicensing is not allowed; section 10 makes it unnecessary.
+
+3. Protecting Users' Legal Rights From Anti-Circumvention Law. No covered work shall be deemed part of an effective technological measure under any applicable law fulfilling obligations under article 11 of the WIPO copyright treaty adopted on 20 December 1996, or similar laws prohibiting or restricting circumvention of such measures.
+
+When you convey a covered work, you waive any legal power to forbid circumvention of technological measures to the extent such circumvention is effected by exercising rights under this License with respect to the covered work, and you disclaim any intention to limit operation or modification of the work as a means of enforcing, against the work's users, your or third parties' legal rights to forbid circumvention of technological measures.
+
+4. Conveying Verbatim Copies. You may convey verbatim copies of the Program's source code as you receive it, in any medium, provided that you conspicuously and appropriately publish on each copy an appropriate copyright notice; keep intact all notices stating that this License and any non-permissive terms added in accord with section 7 apply to the code; keep intact all notices of the absence of any warranty; and give all recipients a copy of this License along with the Program.
+
+You may charge any price or no price for each copy that you convey, and you may offer support or warranty protection for a fee.
+
+5. Conveying Modified Source Versions. You may convey a work based on the Program, or the modifications to produce it from the Program, in the form of source code under the terms of section 4, provided that you also meet all of these conditions:
+
+a) The work must carry prominent notices stating that you modified it, and giving a relevant date. b) The work must carry prominent notices stating that it is released under this License and any conditions added under section 7. This requirement modifies the requirement in section 4 to “keep intact all notices”. c) You must license the entire work, as a whole, under this License to anyone who comes into possession of a copy. This License will therefore apply, along with any applicable se [...]
+
+6. Conveying Non-Source Forms. You may convey a covered work in object code form under the terms of sections 4 and 5, provided that you also convey the machine-readable Corresponding Source under the terms of this License, in one of these ways:
+
+a) Convey the object code in, or embodied in, a physical product (including a physical distribution medium), accompanied by the Corresponding Source fixed on a durable physical medium customarily used for software interchange. b) Convey the object code in, or embodied in, a physical product (including a physical distribution medium), accompanied by a written offer, valid for at least three years and valid for as long as you offer spare parts or customer support for that product model, to [...]
+
+A “User Product” is either (1) a “consumer product”, which means any tangible personal property which is normally used for personal, family, or household purposes, or (2) anything designed or sold for incorporation into a dwelling. In determining whether a product is a consumer product, doubtful cases shall be resolved in favor of coverage. For a particular product received by a particular user, “normally used” refers to a typical or common use of that class of product, regardless of the [...]
+
+“Installation Information” for a User Product means any methods, procedures, authorization keys, or other information required to install and execute modified versions of a covered work in that User Product from a modified version of its Corresponding Source. The information must suffice to ensure that the continued functioning of the modified object code is in no case prevented or interfered with solely because modification has been made.
+
+If you convey an object code work under this section in, or with, or specifically for use in, a User Product, and the conveying occurs as part of a transaction in which the right of possession and use of the User Product is transferred to the recipient in perpetuity or for a fixed term (regardless of how the transaction is characterized), the Corresponding Source conveyed under this section must be accompanied by the Installation Information. But this requirement does not apply if neithe [...]
+
+The requirement to provide Installation Information does not include a requirement to continue to provide support service, warranty, or updates for a work that has been modified or installed by the recipient, or for the User Product in which it has been modified or installed. Access to a network may be denied when the modification itself materially and adversely affects the operation of the network or violates the rules and protocols for communication across the network.
+
+Corresponding Source conveyed, and Installation Information provided, in accord with this section must be in a format that is publicly documented (and with an implementation available to the public in source code form), and must require no special password or key for unpacking, reading or copying.
+
+7. Additional Terms. “Additional permissions” are terms that supplement the terms of this License by making exceptions from one or more of its conditions. Additional permissions that are applicable to the entire Program shall be treated as though they were included in this License, to the extent that they are valid under applicable law. If additional permissions apply only to part of the Program, that part may be used separately under those permissions, but the entire Program remains gov [...]
+
+When you convey a copy of a covered work, you may at your option remove any additional permissions from that copy, or from any part of it. (Additional permissions may be written to require their own removal in certain cases when you modify the work.) You may place additional permissions on material, added by you to a covered work, for which you have or can give appropriate copyright permission.
+
+Notwithstanding any other provision of this License, for material you add to a covered work, you may (if authorized by the copyright holders of that material) supplement the terms of this License with terms:
+
+a) Disclaiming warranty or limiting liability differently from the terms of sections 15 and 16 of this License; or b) Requiring preservation of specified reasonable legal notices or author attributions in that material or in the Appropriate Legal Notices displayed by works containing it; or c) Prohibiting misrepresentation of the origin of that material, or requiring that modified versions of such material be marked in reasonable ways as different from the original version; or d) Limitin [...]
+
+If you add terms to a covered work in accord with this section, you must place, in the relevant source files, a statement of the additional terms that apply to those files, or a notice indicating where to find the applicable terms.
+
+Additional terms, permissive or non-permissive, may be stated in the form of a separately written license, or stated as exceptions; the above requirements apply either way.
+
+8. Termination. You may not propagate or modify a covered work except as expressly provided under this License. Any attempt otherwise to propagate or modify it is void, and will automatically terminate your rights under this License (including any patent licenses granted under the third paragraph of section 11).
+
+However, if you cease all violation of this License, then your license from a particular copyright holder is reinstated (a) provisionally, unless and until the copyright holder explicitly and finally terminates your license, and (b) permanently, if the copyright holder fails to notify you of the violation by some reasonable means prior to 60 days after the cessation.
+
+Moreover, your license from a particular copyright holder is reinstated permanently if the copyright holder notifies you of the violation by some reasonable means, this is the first time you have received notice of violation of this License (for any work) from that copyright holder, and you cure the violation prior to 30 days after your receipt of the notice.
+
+Termination of your rights under this section does not terminate the licenses of parties who have received copies or rights from you under this License. If your rights have been terminated and not permanently reinstated, you do not qualify to receive new licenses for the same material under section 10.
+
+9. Acceptance Not Required for Having Copies. You are not required to accept this License in order to receive or run a copy of the Program. Ancillary propagation of a covered work occurring solely as a consequence of using peer-to-peer transmission to receive a copy likewise does not require acceptance. However, nothing other than this License grants you permission to propagate or modify any covered work. These actions infringe copyright if you do not accept this License. Therefore, by m [...]
+
+10. Automatic Licensing of Downstream Recipients. Each time you convey a covered work, the recipient automatically receives a license from the original licensors, to run, modify and propagate that work, subject to this License. You are not responsible for enforcing compliance by third parties with this License.
+
+An “entity transaction” is a transaction transferring control of an organization, or substantially all assets of one, or subdividing an organization, or merging organizations. If propagation of a covered work results from an entity transaction, each party to that transaction who receives a copy of the work also receives whatever licenses to the work the party's predecessor in interest had or could give under the previous paragraph, plus a right to possession of the Corresponding Source o [...]
+
+You may not impose any further restrictions on the exercise of the rights granted or affirmed under this License. For example, you may not impose a license fee, royalty, or other charge for exercise of rights granted under this License, and you may not initiate litigation (including a cross-claim or counterclaim in a lawsuit) alleging that any patent claim is infringed by making, using, selling, offering for sale, or importing the Program or any portion of it.
+
+11. Patents. A “contributor” is a copyright holder who authorizes use under this License of the Program or a work on which the Program is based. The work thus licensed is called the contributor's “contributor version”.
+
+A contributor's “essential patent claims” are all patent claims owned or controlled by the contributor, whether already acquired or hereafter acquired, that would be infringed by some manner, permitted by this License, of making, using, or selling its contributor version, but do not include claims that would be infringed only as a consequence of further modification of the contributor version. For purposes of this definition, “control” includes the right to grant patent sublicenses in a [...]
+
+Each contributor grants you a non-exclusive, worldwide, royalty-free patent license under the contributor's essential patent claims, to make, use, sell, offer for sale, import and otherwise run, modify and propagate the contents of its contributor version.
+
+In the following three paragraphs, a “patent license” is any express agreement or commitment, however denominated, not to enforce a patent (such as an express permission to practice a patent or covenant not to sue for patent infringement). To “grant” such a patent license to a party means to make such an agreement or commitment not to enforce a patent against the party.
+
+If you convey a covered work, knowingly relying on a patent license, and the Corresponding Source of the work is not available for anyone to copy, free of charge and under the terms of this License, through a publicly available network server or other readily accessible means, then you must either (1) cause the Corresponding Source to be so available, or (2) arrange to deprive yourself of the benefit of the patent license for this particular work, or (3) arrange, in a manner consistent w [...]
+
+If, pursuant to or in connection with a single transaction or arrangement, you convey, or propagate by procuring conveyance of, a covered work, and grant a patent license to some of the parties receiving the covered work authorizing them to use, propagate, modify or convey a specific copy of the covered work, then the patent license you grant is automatically extended to all recipients of the covered work and works based on it.
+
+A patent license is “discriminatory” if it does not include within the scope of its coverage, prohibits the exercise of, or is conditioned on the non-exercise of one or more of the rights that are specifically granted under this License. You may not convey a covered work if you are a party to an arrangement with a third party that is in the business of distributing software, under which you make payment to the third party based on the extent of your activity of conveying the work, and un [...]
+
+Nothing in this License shall be construed as excluding or limiting any implied license or other defenses to infringement that may otherwise be available to you under applicable patent law.
+
+12. No Surrender of Others' Freedom. If conditions are imposed on you (whether by court order, agreement or otherwise) that contradict the conditions of this License, they do not excuse you from the conditions of this License. If you cannot convey a covered work so as to satisfy simultaneously your obligations under this License and any other pertinent obligations, then as a consequence you may not convey it at all. For example, if you agree to terms that obligate you to collect a royalt [...]
+
+13. Use with the GNU Affero General Public License. Notwithstanding any other provision of this License, you have permission to link or combine any covered work with a work licensed under version 3 of the GNU Affero General Public License into a single combined work, and to convey the resulting work. The terms of this License will continue to apply to the part which is the covered work, but the special requirements of the GNU Affero General Public License, section 13, concerning interact [...]
+
+14. Revised Versions of this License. The Free Software Foundation may publish revised and/or new versions of the GNU General Public License from time to time. Such new versions will be similar in spirit to the present version, but may differ in detail to address new problems or concerns.
+
+Each version is given a distinguishing version number. If the Program specifies that a certain numbered version of the GNU General Public License “or any later version” applies to it, you have the option of following the terms and conditions either of that numbered version or of any later version published by the Free Software Foundation. If the Program does not specify a version number of the GNU General Public License, you may choose any version ever published by the Free Software Foundation.
+
+If the Program specifies that a proxy can decide which future versions of the GNU General Public License can be used, that proxy's public statement of acceptance of a version permanently authorizes you to choose that version for the Program.
+
+Later license versions may give you additional or different permissions. However, no additional obligations are imposed on any author or copyright holder as a result of your choosing to follow a later version.
+
+15. Disclaimer of Warranty. THERE IS NO WARRANTY FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES PROVIDE THE PROGRAM “AS IS” WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU. SHOULD THE PROGRAM PROVE [...]
+
+16. Limitation of Liability. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MODIFIES AND/OR CONVEYS THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD PARTIES OR A FAILURE [...]
+
+17. Interpretation of Sections 15 and 16. If the disclaimer of warranty and limitation of liability provided above cannot be given local legal effect according to their terms, reviewing courts shall apply local law that most closely approximates an absolute waiver of all civil liability in connection with the Program, unless a warranty or assumption of liability accompanies a copy of the Program in return for a fee.
+
+END OF TERMS AND CONDITIONS
+
+---------------------------
diff --git a/INSTALL b/INSTALL
new file mode 100644
index 0000000..4425900
--- /dev/null
+++ b/INSTALL
@@ -0,0 +1,137 @@
+
+ __ __ ______ _____ ________ __ __
+| \ _ | \ / \ | \| \ | \ | \
+| $$ / \ | $$| $$$$$$\ \$$$$$ \$$$$$$$$ | $$ | $$
+| $$/ $\| $$| $$___\$$ | $$ | $$ ______ \$$\/ $$
+| $$ $$$\ $$ \$$ \ __ | $$ | $$| \ >$$ $$
+| $$ $$\$$\$$ _\$$$$$$\| \ | $$ | $$ \$$$$$$/ $$$$\
+| $$$$ \$$$$| \__| $$| $$__| $$ | $$ | $$ \$$\
+| $$$ \$$$ \$$ $$ \$$ $$ | $$ | $$ | $$
+ \$$ \$$ \$$$$$$ \$$$$$$ \$$ \$$ \$$
+
+
+Copyright 2001 - 2015 by Joe Taylor, K1JT.
+
+Installation
+============
+
+To build WSJT-X you need some prerequisite tools and libraries.
+
+On Linux:
+
+ build-essentials
+ gcc-4.8.2 or clang-3.4
+ g++-4.8.2 or clang-3.4
+ gfortran-4.8.2
+ CMake-2.8.9
+ git
+ svn
+ asciidoc
+
+ Qt5.2.1 or newer, qt5libmultimedia-dev, qt5libserialport-dev and
+ their prerequisites libfftw3-single-dev and its prerequsites
+ libusb-0.1-dev
+
+Out of source builds are strongly recommended.
+
+Create a build directory somewhere and cd to it then configure the
+build as follows:
+
+ $ mkdir <build-dir-path>
+ $ cd <build-dir-path>
+ $ cmake <source-dir-path>
+
+By default the build will install the application in '/usr', if you
+want to install it somewhere else e.g. under your own account, you can
+specify the install prefix as a configuration variable
+(CMAKE_INSTALL_PREFIX):
+
+ $ cmake -D CMAKE_INSTALL_PREFIX=~/.local <source-dir-path>
+
+You may build a specific version by specifying the tag in the WSJT-X
+repository e.g. wsjtx-1.4.0-rc2 by specifying it as a variable to
+configure:
+
+ $ cmake -D WSJTX_TAG=tags/wsjtx-1.4.0-rc2 <source-dir-path>
+
+Once configured the package can be built as follows:
+
+ $ cmake --build <build-dir-path>
+
+To install the application at the install prefix:
+
+ $ cmake --build <build-dir-path> --target install
+
+
+Making a Self-Contained Source Tarball
+======================================
+
+If you are restricted to local files only on your build host, for
+example a build server with restricted or no Internet access, a
+special source tarball can be generated which contains all the source
+files needed rather than fetching them from the VCS at build time.
+
+In this mode you must augment the source directory with the following
+files:
+
+1) src/hamlib.tgz - GZIP compressed tarball of the hamlib sources,
+2) src/wsjtx.tgz - GZIP compressed tarball of the WSJT-X sources,
+
+You should not do this augmentation manually, the build script should
+be used in advance on a host with Internet access to make a suitable
+source tarball for use in a local build. To do this you simply
+configure as for a normal build selecting the version you wish to
+build using the WSJTX_TAG variable as above, then make the 'source'
+target. This does a build to verify the validity of the upstream
+sources then packages the project source along with the extra source
+files above. If this completes successfully, a tarball that can be
+used for a local build is automatically built. For example:
+
+ $ mkdir ~/build/wsjtx
+ $ cd ~/build/wsjtx
+ $ cmake -D WSJTX_TAG=tags/wsjtx-1.4.0 <source-dir-path>
+ $ cmake --build . --target source
+
+The above commands, if successful, will produce 'wsjtx-1.4.0.tgz'
+which is a source tarball ready for use on another system to do a
+local build, for example:
+
+ $ mkdir ~/build
+ $ cd ~/build
+ $ tar xzf wsjtx-1.4.0.tgz
+ $ mkdir build
+ $ cd build
+ $ cmake ../wsjtx-1.4.0
+ $ cmake --build .
+ $ sudo cmake --build . --target install
+
+If successful this will install the built application into /usr, if
+you wish to install it elsewhere, simply set the CMake variable
+CMAKE_INSTALL_PREFIX in the configure step above.
+
+
+Basic Package Building
+======================
+
+If you are a package maintainer you will probably use the install
+target above along with tools and utilities specific to the
+distribution you are packaging for. Alternatively, this package can
+generate basic installation packages using the CPack utility. You can
+specify an alternate target that generates a suitable package for the
+system you run the build on. The alternate target is 'package' and is
+built as follows:
+
+ $ cmake --build <build-dir-path> --target package
+
+If the build is successful the location of the built package(s) will
+be displayed at the end of the output.
+
+Other targets available include:
+
+ hamlib - just build the hamlib intermediate library
+
+ build - stop after building WSJT-X (default target)
+
+ install - stop after installing WSJT-X
+
+ package_source - build source packages in several formats
diff --git a/LICENSE_WHEATLEY.TXT b/LICENSE_WHEATLEY.TXT
deleted file mode 100644
index 8b0ce24..0000000
--- a/LICENSE_WHEATLEY.TXT
+++ /dev/null
@@ -1,30 +0,0 @@
-+ + + This Software is released under the "Simplified BSD License" + + +
-Copyright 2010 Moe Wheatley. All rights reserved.
-
-Redistribution and use in source and binary forms, with or without
-modification, are permitted provided that the following conditions are
-met:
-
- 1. Redistributions of source code must retain the above copyright
- notice, this list of conditions and the following disclaimer.
-
- 2. Redistributions in binary form must reproduce the above copyright
- notice, this list of conditions and the following disclaimer in
- the documentation and/or other materials provided with the
- distribution.
-
-THIS SOFTWARE IS PROVIDED BY Moe Wheatley ``AS IS'' AND ANY EXPRESS OR
-IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
-WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
-DISCLAIMED. IN NO EVENT SHALL Moe Wheatley OR CONTRIBUTORS BE LIABLE
-FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
-CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
-SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR
-BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
-WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE
-OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE,
-EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-
-The views and conclusions contained in the software and documentation
-are those of the authors and should not be interpreted as representing
-official policies, either expressed or implied, of Moe Wheatley.
diff --git a/NEWS b/NEWS
new file mode 100644
index 0000000..c93d45c
--- /dev/null
+++ b/NEWS
@@ -0,0 +1,16 @@
+
+ __ __ ______ _____ ________ __ __
+| \ _ | \ / \ | \| \ | \ | \
+| $$ / \ | $$| $$$$$$\ \$$$$$ \$$$$$$$$ | $$ | $$
+| $$/ $\| $$| $$___\$$ | $$ | $$ ______ \$$\/ $$
+| $$ $$$\ $$ \$$ \ __ | $$ | $$| \ >$$ $$
+| $$ $$\$$\$$ _\$$$$$$\| \ | $$ | $$ \$$$$$$/ $$$$\
+| $$$$ \$$$$| \__| $$| $$__| $$ | $$ | $$ \$$\
+| $$$ \$$$ \$$ $$ \$$ $$ | $$ | $$ | $$
+ \$$ \$$ \$$$$$$ \$$$$$$ \$$ \$$ \$$
+
+
+Copyright 2001 - 2015 by Joe Taylor, K1JT.
+
+Many changes to support two phase builds on Linux distribution build
+servers.
\ No newline at end of file
diff --git a/PSKReporter.h b/PSKReporter.h
deleted file mode 100644
index a6c52c4..0000000
--- a/PSKReporter.h
+++ /dev/null
@@ -1,127 +0,0 @@
-#pragma once
-
-// Main header file for the external interface to the PSK Reporter API
-// For documentation see http://psk.gladstonefamily.net/PSKReporterAPI.pdf
-
-/*
-
-Copyright (c) 2008 Philip Gladstone
-
-Permission is hereby granted, free of charge, to any person obtaining a copy
-of this software and associated documentation files (the "Software"), to deal
-in the Software without restriction, including without limitation the rights
-to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
-copies of the Software, and to permit persons to whom the Software is
-furnished to do so, subject to the following conditions:
-
-The above copyright notice and this permission notice shall be included in
-all copies or substantial portions of the Software.
-
-THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
-IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
-FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
-AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
-LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
-OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
-THE SOFTWARE.
-
- */
-
-
-#ifdef _DLL_OPTION_PSKREPORTER_EXPORT
-#define DllImportExport __declspec ( dllexport )
-#else
-#define DllImportExport __declspec ( dllimport )
-#endif
-
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-#define REPORTER_SOURCE_MASK 0x07
-#define REPORTER_SOURCE_AUTOMATIC 0x01
-#define REPORTER_SOURCE_LOG 0x02
-#define REPORTER_SOURCE_MANUAL 0x03
-#define REPORTER_SOURCE_TENTATIVE 0x40
-#define REPORTER_SOURCE_TEST 0x80
-
-typedef struct {
- wchar_t hostname[256];
- wchar_t port[32];
- bool connected;
- unsigned int callsigns_sent;
- unsigned int callsigns_buffered;
- unsigned int callsigns_discarded;
- unsigned int last_send_time;
- unsigned int next_send_time;
- wchar_t last_callsign_queued[24];
- unsigned int bytes_sent;
- unsigned int bytes_sent_total;
- unsigned int packets_sent;
- unsigned int packets_sent_total;
-} REPORTER_STATISTICS;
-
-
-
-
-unsigned long DllImportExport __cdecl ReporterInitialize(
- const wchar_t *hostname,
- const wchar_t *port
-);
-
-unsigned long DllImportExport __cdecl ReporterSeenCallsign(
- const wchar_t *remoteInformation,
- const wchar_t *localInformation,
- unsigned long flags
-);
-
-unsigned long DllImportExport __cdecl ReporterTickle(
-);
-
-unsigned long DllImportExport __cdecl ReporterGetInformation(
- wchar_t *buffer,
- unsigned long maxlen
-);
-
-unsigned long DllImportExport __cdecl ReporterGetStatistics(
- REPORTER_STATISTICS *buffer,
- unsigned long maxlen
-);
-
-unsigned long DllImportExport __cdecl ReporterUninitialize(
-);
-
-
-unsigned long DllImportExport __stdcall ReporterInitializeSTD(
- const char *hostname,
- const char *port
-);
-
-unsigned long DllImportExport __stdcall ReporterSeenCallsignSTD(
- const char *remoteInformation,
- const char *localInformation,
- unsigned long flags
-);
-
-unsigned long DllImportExport __stdcall ReporterTickleSTD(
-);
-
-unsigned long DllImportExport __stdcall ReporterGetInformationSTD(
- char *buffer,
- unsigned long maxlen
-);
-
-unsigned long DllImportExport __stdcall ReporterGetStatisticsSTD(
- REPORTER_STATISTICS *buffer,
- unsigned long maxlen
-);
-
-unsigned long DllImportExport __stdcall ReporterUninitializeSTD(
-);
-
-#ifdef __cplusplus
-}
-#endif
-
-
diff --git a/QtSupport.iss b/QtSupport.iss
deleted file mode 100644
index a7144c2..0000000
--- a/QtSupport.iss
+++ /dev/null
@@ -1,10 +0,0 @@
-[Setup]
-AppName="QtSupport for MAP65"
-AppVerName=QtSupport
-DefaultDirName=C:\MAP65
-
-[Files]
-Source: "c:\Users\joe\map65\QtSupport\*.dll"; DestDir: "{app}"; Flags: onlyifdoesntexist
-
-
-
diff --git a/README b/README
new file mode 100644
index 0000000..3dd7a76
--- /dev/null
+++ b/README
@@ -0,0 +1,49 @@
+
+ __ __ ______ _____ ________ __ __
+| \ _ | \ / \ | \| \ | \ | \
+| $$ / \ | $$| $$$$$$\ \$$$$$ \$$$$$$$$ | $$ | $$
+| $$/ $\| $$| $$___\$$ | $$ | $$ ______ \$$\/ $$
+| $$ $$$\ $$ \$$ \ __ | $$ | $$| \ >$$ $$
+| $$ $$\$$\$$ _\$$$$$$\| \ | $$ | $$ \$$$$$$/ $$$$\
+| $$$$ \$$$$| \__| $$| $$__| $$ | $$ | $$ \$$\
+| $$$ \$$$ \$$ $$ \$$ $$ | $$ | $$ | $$
+ \$$ \$$ \$$$$$$ \$$$$$$ \$$ \$$ \$$
+
+
+
+Copyright 2001 - 2015 by Joe Taylor, K1JT.
+
+WSJT-X Superbuild
+=================
+
+This package builds the WSJT-X application. It does not directly
+contain the source files, instead it consists of a CMake script that
+builds the application by fetching the sources from their respective
+source control repositories and then building the application.
+
+WSJT-X also has a CMake build system but currently it also has a
+dependency on a library called Hamlib which itself has to built from a
+fork of the official Hamlib project. The Hamlib fork is used because
+it contains the latest patches not yet accepted by the Hamlib
+development team.
+
+This project combines he building of Hamlib and WSJT-X. I also has a
+two phase mode that builds a complete source package in phase one that
+can then be transferred to another build host to be built in phase two
+there. This two phase mode is aimed at Linux package maintainers who
+have to have a complete upstream source package that can be built on a
+restricted build server.
+
+The WSJT-X project web site is:
+
+http://www.physics.princeton.edu/pulsar/K1JT/wsjtx.html
+
+Please refer to the component project README files as well:
+
+https://sourceforge.net/p/wsjt/wsjt/HEAD/tree/branches/wsjtx/README
+
+for WSJT-X and:
+
+https://sourceforge.net/p/hamlib/code/ci/master/tree/README
+
+for Hamlib.
\ No newline at end of file
diff --git a/THANKS b/THANKS
new file mode 100644
index 0000000..7879813
--- /dev/null
+++ b/THANKS
@@ -0,0 +1,23 @@
+
+ __ __ ______ _____ ________ __ __
+| \ _ | \ / \ | \| \ | \ | \
+| $$ / \ | $$| $$$$$$\ \$$$$$ \$$$$$$$$ | $$ | $$
+| $$/ $\| $$| $$___\$$ | $$ | $$ ______ \$$\/ $$
+| $$ $$$\ $$ \$$ \ __ | $$ | $$| \ >$$ $$
+| $$ $$\$$\$$ _\$$$$$$\| \ | $$ | $$ \$$$$$$/ $$$$\
+| $$$$ \$$$$| \__| $$| $$__| $$ | $$ | $$ \$$\
+| $$$ \$$$ \$$ $$ \$$ $$ | $$ | $$ | $$
+ \$$ \$$ \$$$$$$ \$$$$$$ \$$ \$$ \$$
+
+
+Copyright 2001 - 2015 by Joe Taylor, K1JT.
+
+Thanks to:
+
+ Greg Beam, KI7MT, for extensive help testing the WSJT-X Superbuild
+script for preparing a Debian package build with the Ubuntu Launchpad
+tools.
+
+ Nate Bargmann, N0NB, and the Hamlib developer team for their
+excellent library and for prompt review and acceptance of the many
+pull requests for upstream patches to Hamlib.
\ No newline at end of file
diff --git a/about.cpp b/about.cpp
deleted file mode 100644
index 5cab294..0000000
--- a/about.cpp
+++ /dev/null
@@ -1,23 +0,0 @@
-#include "about.h"
-#include "ui_about.h"
-
-CAboutDlg::CAboutDlg(QWidget *parent, QString Revision) :
- QDialog(parent),
- m_Revision(Revision),
- ui(new Ui::CAboutDlg)
-{
- ui->setupUi(this);
- ui->labelTxt->clear();
- m_Str = "<html><h2>" + m_Revision + "</h2>\n\n";
- m_Str += "WSJT-X implements experimental mode JT9 for <br>";
- m_Str += "Amateur Radio communication at HF, MF, and LF. <br><br>";
- m_Str += "Copyright 2001-2013 by Joe Taylor, K1JT. Additional <br>";
- m_Str += "contributions from AC6SL, AE4JY, G4KLA, K3WYC, PY2SDR, <br>";
- m_Str += "and VK4BDJ.<br>";
- ui->labelTxt->setText(m_Str);
-}
-
-CAboutDlg::~CAboutDlg()
-{
- delete ui;
-}
diff --git a/about.h b/about.h
deleted file mode 100644
index ca45d19..0000000
--- a/about.h
+++ /dev/null
@@ -1,24 +0,0 @@
-#ifndef ABOUTDLG_H
-#define ABOUTDLG_H
-
-#include <QDialog>
-
-namespace Ui {
- class CAboutDlg;
-}
-
-class CAboutDlg : public QDialog
-{
- Q_OBJECT
-
-public:
- explicit CAboutDlg(QWidget *parent=0, QString Revision="");
- ~CAboutDlg();
-
-private:
- QString m_Revision;
- Ui::CAboutDlg *ui;
- QString m_Str;
-};
-
-#endif // ABOUTDLG_H
diff --git a/about.ui b/about.ui
deleted file mode 100644
index 3a86259..0000000
--- a/about.ui
+++ /dev/null
@@ -1,40 +0,0 @@
-<?xml version="1.0" encoding="UTF-8"?>
-<ui version="4.0">
- <class>CAboutDlg</class>
- <widget class="QDialog" name="CAboutDlg">
- <property name="windowModality">
- <enum>Qt::NonModal</enum>
- </property>
- <property name="geometry">
- <rect>
- <x>0</x>
- <y>0</y>
- <width>374</width>
- <height>164</height>
- </rect>
- </property>
- <property name="sizePolicy">
- <sizepolicy hsizetype="Preferred" vsizetype="Preferred">
- <horstretch>0</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="windowTitle">
- <string>About WSJT-X</string>
- </property>
- <layout class="QVBoxLayout" name="verticalLayout">
- <item>
- <widget class="QLabel" name="labelTxt">
- <property name="text">
- <string/>
- </property>
- <property name="alignment">
- <set>Qt::AlignLeading|Qt::AlignLeft|Qt::AlignVCenter</set>
- </property>
- </widget>
- </item>
- </layout>
- </widget>
- <resources/>
- <connections/>
-</ui>
diff --git a/afmhot.dat b/afmhot.dat
deleted file mode 100644
index 8b312a1..0000000
--- a/afmhot.dat
+++ /dev/null
@@ -1,257 +0,0 @@
- 0 0.0000 0.0000 0.0000
- 1 0.0000 0.0000 0.0000
- 2 0.0078 0.0000 0.0000
- 3 0.0157 0.0000 0.0000
- 4 0.0235 0.0000 0.0000
- 5 0.0314 0.0000 0.0000
- 6 0.0392 0.0000 0.0000
- 7 0.0471 0.0000 0.0000
- 8 0.0549 0.0000 0.0000
- 9 0.0627 0.0000 0.0000
- 10 0.0706 0.0000 0.0000
- 11 0.0784 0.0000 0.0000
- 12 0.0863 0.0000 0.0000
- 13 0.0941 0.0000 0.0000
- 14 0.1020 0.0000 0.0000
- 15 0.1098 0.0000 0.0000
- 16 0.1176 0.0000 0.0000
- 17 0.1255 0.0000 0.0000
- 18 0.1333 0.0000 0.0000
- 19 0.1412 0.0000 0.0000
- 20 0.1490 0.0000 0.0000
- 21 0.1569 0.0000 0.0000
- 22 0.1647 0.0000 0.0000
- 23 0.1725 0.0000 0.0000
- 24 0.1804 0.0000 0.0000
- 25 0.1882 0.0000 0.0000
- 26 0.1961 0.0000 0.0000
- 27 0.2039 0.0000 0.0000
- 28 0.2118 0.0000 0.0000
- 29 0.2196 0.0000 0.0000
- 30 0.2275 0.0000 0.0000
- 31 0.2353 0.0000 0.0000
- 32 0.2431 0.0000 0.0000
- 33 0.2510 0.0000 0.0000
- 34 0.2588 0.0000 0.0000
- 35 0.2667 0.0000 0.0000
- 36 0.2745 0.0000 0.0000
- 37 0.2824 0.0000 0.0000
- 38 0.2902 0.0000 0.0000
- 39 0.2980 0.0000 0.0000
- 40 0.3059 0.0000 0.0000
- 41 0.3137 0.0000 0.0000
- 42 0.3216 0.0000 0.0000
- 43 0.3294 0.0000 0.0000
- 44 0.3373 0.0000 0.0000
- 45 0.3451 0.0000 0.0000
- 46 0.3529 0.0000 0.0000
- 47 0.3608 0.0000 0.0000
- 48 0.3686 0.0000 0.0000
- 49 0.3765 0.0000 0.0000
- 50 0.3843 0.0000 0.0000
- 51 0.3922 0.0000 0.0000
- 52 0.4000 0.0000 0.0000
- 53 0.4078 0.0000 0.0000
- 54 0.4157 0.0000 0.0000
- 55 0.4235 0.0000 0.0000
- 56 0.4314 0.0000 0.0000
- 57 0.4392 0.0000 0.0000
- 58 0.4471 0.0000 0.0000
- 59 0.4549 0.0000 0.0000
- 60 0.4627 0.0000 0.0000
- 61 0.4706 0.0000 0.0000
- 62 0.4784 0.0000 0.0000
- 63 0.4863 0.0000 0.0000
- 64 0.4941 0.0000 0.0000
- 65 0.5020 0.0000 0.0000
- 66 0.5098 0.0098 0.0000
- 67 0.5176 0.0176 0.0000
- 68 0.5255 0.0255 0.0000
- 69 0.5333 0.0333 0.0000
- 70 0.5412 0.0412 0.0000
- 71 0.5490 0.0490 0.0000
- 72 0.5569 0.0569 0.0000
- 73 0.5647 0.0647 0.0000
- 74 0.5725 0.0725 0.0000
- 75 0.5804 0.0804 0.0000
- 76 0.5882 0.0882 0.0000
- 77 0.5961 0.0961 0.0000
- 78 0.6039 0.1039 0.0000
- 79 0.6118 0.1118 0.0000
- 80 0.6196 0.1196 0.0000
- 81 0.6275 0.1275 0.0000
- 82 0.6353 0.1353 0.0000
- 83 0.6431 0.1431 0.0000
- 84 0.6510 0.1510 0.0000
- 85 0.6588 0.1588 0.0000
- 86 0.6667 0.1667 0.0000
- 87 0.6745 0.1745 0.0000
- 88 0.6824 0.1824 0.0000
- 89 0.6902 0.1902 0.0000
- 90 0.6980 0.1980 0.0000
- 91 0.7059 0.2059 0.0000
- 92 0.7137 0.2137 0.0000
- 93 0.7216 0.2216 0.0000
- 94 0.7294 0.2294 0.0000
- 95 0.7373 0.2373 0.0000
- 96 0.7451 0.2451 0.0000
- 97 0.7529 0.2529 0.0000
- 98 0.7608 0.2608 0.0000
- 99 0.7686 0.2686 0.0000
- 100 0.7765 0.2765 0.0000
- 101 0.7843 0.2843 0.0000
- 102 0.7922 0.2922 0.0000
- 103 0.8000 0.3000 0.0000
- 104 0.8078 0.3078 0.0000
- 105 0.8157 0.3157 0.0000
- 106 0.8235 0.3235 0.0000
- 107 0.8314 0.3314 0.0000
- 108 0.8392 0.3392 0.0000
- 109 0.8471 0.3471 0.0000
- 110 0.8549 0.3549 0.0000
- 111 0.8627 0.3627 0.0000
- 112 0.8706 0.3706 0.0000
- 113 0.8784 0.3784 0.0000
- 114 0.8863 0.3863 0.0000
- 115 0.8941 0.3941 0.0000
- 116 0.9020 0.4020 0.0000
- 117 0.9098 0.4098 0.0000
- 118 0.9176 0.4176 0.0000
- 119 0.9255 0.4255 0.0000
- 120 0.9333 0.4333 0.0000
- 121 0.9412 0.4412 0.0000
- 122 0.9490 0.4490 0.0000
- 123 0.9569 0.4569 0.0000
- 124 0.9647 0.4647 0.0000
- 125 0.9725 0.4725 0.0000
- 126 0.9804 0.4804 0.0000
- 127 0.9882 0.4882 0.0000
- 128 0.9961 0.4961 0.0000
- 129 1.0000 0.5039 0.0000
- 130 1.0000 0.5118 0.0118
- 131 1.0000 0.5196 0.0196
- 132 1.0000 0.5275 0.0275
- 133 1.0000 0.5353 0.0353
- 134 1.0000 0.5431 0.0431
- 135 1.0000 0.5510 0.0510
- 136 1.0000 0.5588 0.0588
- 137 1.0000 0.5667 0.0667
- 138 1.0000 0.5745 0.0745
- 139 1.0000 0.5824 0.0824
- 140 1.0000 0.5902 0.0902
- 141 1.0000 0.5980 0.0980
- 142 1.0000 0.6059 0.1059
- 143 1.0000 0.6137 0.1137
- 144 1.0000 0.6216 0.1216
- 145 1.0000 0.6294 0.1294
- 146 1.0000 0.6373 0.1373
- 147 1.0000 0.6451 0.1451
- 148 1.0000 0.6529 0.1529
- 149 1.0000 0.6608 0.1608
- 150 1.0000 0.6686 0.1686
- 151 1.0000 0.6765 0.1765
- 152 1.0000 0.6843 0.1843
- 153 1.0000 0.6922 0.1922
- 154 1.0000 0.7000 0.2000
- 155 1.0000 0.7078 0.2078
- 156 1.0000 0.7157 0.2157
- 157 1.0000 0.7235 0.2235
- 158 1.0000 0.7314 0.2314
- 159 1.0000 0.7392 0.2392
- 160 1.0000 0.7471 0.2471
- 161 1.0000 0.7549 0.2549
- 162 1.0000 0.7627 0.2627
- 163 1.0000 0.7706 0.2706
- 164 1.0000 0.7784 0.2784
- 165 1.0000 0.7863 0.2863
- 166 1.0000 0.7941 0.2941
- 167 1.0000 0.8020 0.3020
- 168 1.0000 0.8098 0.3098
- 169 1.0000 0.8176 0.3176
- 170 1.0000 0.8255 0.3255
- 171 1.0000 0.8333 0.3333
- 172 1.0000 0.8412 0.3412
- 173 1.0000 0.8490 0.3490
- 174 1.0000 0.8569 0.3569
- 175 1.0000 0.8647 0.3647
- 176 1.0000 0.8725 0.3725
- 177 1.0000 0.8804 0.3804
- 178 1.0000 0.8882 0.3882
- 179 1.0000 0.8961 0.3961
- 180 1.0000 0.9039 0.4039
- 181 1.0000 0.9118 0.4118
- 182 1.0000 0.9196 0.4196
- 183 1.0000 0.9275 0.4275
- 184 1.0000 0.9353 0.4353
- 185 1.0000 0.9431 0.4431
- 186 1.0000 0.9510 0.4510
- 187 1.0000 0.9588 0.4588
- 188 1.0000 0.9667 0.4667
- 189 1.0000 0.9745 0.4745
- 190 1.0000 0.9824 0.4824
- 191 1.0000 0.9902 0.4902
- 192 1.0000 0.9980 0.4980
- 193 1.0000 1.0000 0.5059
- 194 1.0000 1.0000 0.5137
- 195 1.0000 1.0000 0.5216
- 196 1.0000 1.0000 0.5294
- 197 1.0000 1.0000 0.5373
- 198 1.0000 1.0000 0.5451
- 199 1.0000 1.0000 0.5529
- 200 1.0000 1.0000 0.5608
- 201 1.0000 1.0000 0.5686
- 202 1.0000 1.0000 0.5765
- 203 1.0000 1.0000 0.5843
- 204 1.0000 1.0000 0.5922
- 205 1.0000 1.0000 0.6000
- 206 1.0000 1.0000 0.6078
- 207 1.0000 1.0000 0.6157
- 208 1.0000 1.0000 0.6235
- 209 1.0000 1.0000 0.6314
- 210 1.0000 1.0000 0.6392
- 211 1.0000 1.0000 0.6471
- 212 1.0000 1.0000 0.6549
- 213 1.0000 1.0000 0.6627
- 214 1.0000 1.0000 0.6706
- 215 1.0000 1.0000 0.6784
- 216 1.0000 1.0000 0.6863
- 217 1.0000 1.0000 0.6941
- 218 1.0000 1.0000 0.7020
- 219 1.0000 1.0000 0.7098
- 220 1.0000 1.0000 0.7176
- 221 1.0000 1.0000 0.7255
- 222 1.0000 1.0000 0.7333
- 223 1.0000 1.0000 0.7412
- 224 1.0000 1.0000 0.7490
- 225 1.0000 1.0000 0.7569
- 226 1.0000 1.0000 0.7647
- 227 1.0000 1.0000 0.7725
- 228 1.0000 1.0000 0.7804
- 229 1.0000 1.0000 0.7882
- 230 1.0000 1.0000 0.7961
- 231 1.0000 1.0000 0.8039
- 232 1.0000 1.0000 0.8118
- 233 1.0000 1.0000 0.8196
- 234 1.0000 1.0000 0.8275
- 235 1.0000 1.0000 0.8353
- 236 1.0000 1.0000 0.8431
- 237 1.0000 1.0000 0.8510
- 238 1.0000 1.0000 0.8588
- 239 1.0000 1.0000 0.8667
- 240 1.0000 1.0000 0.8745
- 241 1.0000 1.0000 0.8824
- 242 1.0000 1.0000 0.8902
- 243 1.0000 1.0000 0.8980
- 244 1.0000 1.0000 0.9059
- 245 1.0000 1.0000 0.9137
- 246 1.0000 1.0000 0.9216
- 247 1.0000 1.0000 0.9294
- 248 1.0000 1.0000 0.9373
- 249 1.0000 1.0000 0.9451
- 250 1.0000 1.0000 0.9529
- 251 1.0000 1.0000 0.9608
- 252 1.0000 1.0000 0.9686
- 253 1.0000 1.0000 0.9765
- 254 1.0 0.0 0.0
- 255 1.0 1.0 0.0
- 256 0.0 1.000 0.0
diff --git a/blue.dat b/blue.dat
deleted file mode 100644
index d9fc886..0000000
--- a/blue.dat
+++ /dev/null
@@ -1,256 +0,0 @@
- 0 0.0000 0.0000 0.0000
- 1 0.0902 0.0902 0.2558
- 2 0.1176 0.1176 0.2694
- 3 0.1412 0.1412 0.2820
- 4 0.1569 0.1569 0.2938
- 5 0.1725 0.1725 0.3049
- 6 0.1843 0.1843 0.3154
- 7 0.1961 0.1961 0.3254
- 8 0.2039 0.2039 0.3349
- 9 0.2157 0.2157 0.3440
- 10 0.2235 0.2235 0.3528
- 11 0.2314 0.2314 0.3612
- 12 0.2392 0.2392 0.3693
- 13 0.2471 0.2471 0.3772
- 14 0.2549 0.2549 0.3848
- 15 0.2588 0.2588 0.3921
- 16 0.2667 0.2667 0.3992
- 17 0.2706 0.2706 0.4061
- 18 0.2784 0.2784 0.4129
- 19 0.2824 0.2824 0.4194
- 20 0.2902 0.2902 0.4258
- 21 0.2941 0.2941 0.4319
- 22 0.2980 0.2980 0.4380
- 23 0.3059 0.3059 0.4439
- 24 0.3098 0.3098 0.4496
- 25 0.3137 0.3137 0.4553
- 26 0.3176 0.3176 0.4608
- 27 0.3216 0.3216 0.4661
- 28 0.3294 0.3294 0.4714
- 29 0.3333 0.3333 0.4765
- 30 0.3373 0.3373 0.4815
- 31 0.3412 0.3412 0.4865
- 32 0.3451 0.3451 0.4913
- 33 0.3490 0.3490 0.4960
- 34 0.3529 0.3529 0.5006
- 35 0.3569 0.3569 0.5052
- 36 0.3608 0.3608 0.5096
- 37 0.3647 0.3647 0.5140
- 38 0.3686 0.3686 0.5183
- 39 0.3725 0.3725 0.5225
- 40 0.3765 0.3765 0.5266
- 41 0.3804 0.3804 0.5306
- 42 0.3843 0.3843 0.5346
- 43 0.3843 0.3843 0.5385
- 44 0.3882 0.3882 0.5423
- 45 0.3922 0.3922 0.5460
- 46 0.3961 0.3961 0.5497
- 47 0.4000 0.4000 0.5533
- 48 0.4039 0.4039 0.5569
- 49 0.4078 0.4078 0.5603
- 50 0.4118 0.4118 0.5638
- 51 0.4118 0.4118 0.5671
- 52 0.4157 0.4157 0.5704
- 53 0.4196 0.4196 0.5736
- 54 0.4235 0.4235 0.5768
- 55 0.4275 0.4275 0.5799
- 56 0.4314 0.4314 0.5829
- 57 0.4314 0.4314 0.5859
- 58 0.4353 0.4353 0.5889
- 59 0.4392 0.4392 0.5917
- 60 0.4431 0.4431 0.5946
- 61 0.4471 0.4471 0.5973
- 62 0.4471 0.4471 0.6001
- 63 0.4510 0.4510 0.6027
- 64 0.4549 0.4549 0.6053
- 65 0.4588 0.4588 0.6079
- 66 0.4627 0.4627 0.6104
- 67 0.4627 0.4627 0.6129
- 68 0.4667 0.4667 0.6153
- 69 0.4706 0.4706 0.6176
- 70 0.4745 0.4745 0.6199
- 71 0.4745 0.4745 0.6222
- 72 0.4784 0.4784 0.6244
- 73 0.4824 0.4824 0.6266
- 74 0.4863 0.4863 0.6287
- 75 0.4863 0.4863 0.6308
- 76 0.4902 0.4902 0.6328
- 77 0.4941 0.4941 0.6348
- 78 0.4980 0.4980 0.6367
- 79 0.5020 0.5020 0.6386
- 80 0.5020 0.5020 0.6404
- 81 0.5059 0.5059 0.6422
- 82 0.5098 0.5098 0.6440
- 83 0.5098 0.5098 0.6457
- 84 0.5137 0.5137 0.6474
- 85 0.5176 0.5176 0.6490
- 86 0.5216 0.5216 0.6506
- 87 0.5216 0.5216 0.6521
- 88 0.5255 0.5255 0.6536
- 89 0.5294 0.5294 0.6551
- 90 0.5333 0.5333 0.6565
- 91 0.5333 0.5333 0.6578
- 92 0.5373 0.5373 0.6591
- 93 0.5412 0.5412 0.6604
- 94 0.5451 0.5451 0.6617
- 95 0.5451 0.5451 0.6629
- 96 0.5490 0.5490 0.6640
- 97 0.5529 0.5529 0.6651
- 98 0.5569 0.5569 0.6662
- 99 0.5569 0.5569 0.6672
- 100 0.5608 0.5608 0.6682
- 101 0.5647 0.5647 0.6692
- 102 0.5647 0.5647 0.6701
- 103 0.5686 0.5686 0.6710
- 104 0.5725 0.5725 0.6718
- 105 0.5765 0.5765 0.6726
- 106 0.5765 0.5765 0.6733
- 107 0.5804 0.5804 0.6740
- 108 0.5843 0.5843 0.6747
- 109 0.5843 0.5843 0.6753
- 110 0.5882 0.5882 0.6759
- 111 0.5922 0.5922 0.6765
- 112 0.5961 0.5961 0.6770
- 113 0.5961 0.5961 0.6774
- 114 0.6000 0.6000 0.6779
- 115 0.6039 0.6039 0.6783
- 116 0.6039 0.6039 0.6786
- 117 0.6078 0.6078 0.6789
- 118 0.6118 0.6118 0.6792
- 119 0.6157 0.6157 0.6794
- 120 0.6157 0.6157 0.6796
- 121 0.6196 0.6196 0.6798
- 122 0.6235 0.6235 0.6799
- 123 0.6235 0.6235 0.6800
- 124 0.6275 0.6275 0.6800
- 125 0.6314 0.6314 0.6800
- 126 0.6353 0.6353 0.6799
- 127 0.6353 0.6353 0.6799
- 128 0.6392 0.6392 0.6797
- 129 0.6431 0.6431 0.6796
- 130 0.6431 0.6431 0.6794
- 131 0.6471 0.6471 0.6791
- 132 0.6510 0.6510 0.6789
- 133 0.6549 0.6549 0.6785
- 134 0.6549 0.6549 0.6782
- 135 0.6588 0.6588 0.6778
- 136 0.6627 0.6627 0.6773
- 137 0.6627 0.6627 0.6769
- 138 0.6667 0.6667 0.6763
- 139 0.6706 0.6706 0.6758
- 140 0.6745 0.6745 0.6752
- 141 0.6745 0.6745 0.6746
- 142 0.6784 0.6784 0.6739
- 143 0.6824 0.6824 0.6732
- 144 0.6824 0.6824 0.6724
- 145 0.6863 0.6863 0.6716
- 146 0.6902 0.6902 0.6708
- 147 0.6941 0.6941 0.6699
- 148 0.6941 0.6941 0.6690
- 149 0.6980 0.6980 0.6680
- 150 0.7020 0.7020 0.6670
- 151 0.7020 0.7020 0.6660
- 152 0.7059 0.7059 0.6649
- 153 0.7098 0.7098 0.6638
- 154 0.7098 0.7098 0.6626
- 155 0.7137 0.7137 0.6614
- 156 0.7176 0.7176 0.6601
- 157 0.7216 0.7216 0.6589
- 158 0.7216 0.7216 0.6575
- 159 0.7255 0.7255 0.6561
- 160 0.7294 0.7294 0.6547
- 161 0.7294 0.7294 0.6533
- 162 0.7333 0.7333 0.6518
- 163 0.7373 0.7373 0.6502
- 164 0.7412 0.7412 0.6486
- 165 0.7412 0.7412 0.6470
- 166 0.7451 0.7451 0.6453
- 167 0.7490 0.7490 0.6436
- 168 0.7490 0.7490 0.6418
- 169 0.7529 0.7529 0.6400
- 170 0.7569 0.7569 0.6382
- 171 0.7608 0.7608 0.6363
- 172 0.7608 0.7608 0.6343
- 173 0.7647 0.7647 0.6324
- 174 0.7686 0.7686 0.6303
- 175 0.7686 0.7686 0.6282
- 176 0.7725 0.7725 0.6261
- 177 0.7765 0.7765 0.6239
- 178 0.7804 0.7804 0.6217
- 179 0.7804 0.7804 0.6194
- 180 0.7843 0.7843 0.6171
- 181 0.7882 0.7882 0.6147
- 182 0.7882 0.7882 0.6123
- 183 0.7922 0.7922 0.6098
- 184 0.7961 0.7961 0.6073
- 185 0.8000 0.8000 0.6047
- 186 0.8000 0.8000 0.6021
- 187 0.8039 0.8039 0.5994
- 188 0.8078 0.8078 0.5967
- 189 0.8078 0.8078 0.5939
- 190 0.8118 0.8118 0.5911
- 191 0.8157 0.8157 0.5882
- 192 0.8196 0.8196 0.5853
- 193 0.8196 0.8196 0.5823
- 194 0.8235 0.8235 0.5792
- 195 0.8275 0.8275 0.5761
- 196 0.8275 0.8275 0.5729
- 197 0.8314 0.8314 0.5697
- 198 0.8353 0.8353 0.5664
- 199 0.8392 0.8392 0.5630
- 200 0.8392 0.8392 0.5596
- 201 0.8431 0.8431 0.5561
- 202 0.8471 0.8471 0.5525
- 203 0.8471 0.8471 0.5489
- 204 0.8510 0.8510 0.5452
- 205 0.8549 0.8549 0.5414
- 206 0.8588 0.8588 0.5376
- 207 0.8588 0.8588 0.5337
- 208 0.8627 0.8627 0.5297
- 209 0.8667 0.8667 0.5257
- 210 0.8667 0.8667 0.5215
- 211 0.8706 0.8706 0.5173
- 212 0.8745 0.8745 0.5130
- 213 0.8784 0.8784 0.5086
- 214 0.8784 0.8784 0.5042
- 215 0.8824 0.8824 0.4996
- 216 0.8863 0.8863 0.4950
- 217 0.8863 0.8863 0.4902
- 218 0.8902 0.8902 0.4854
- 219 0.8941 0.8941 0.4804
- 220 0.8980 0.8980 0.4754
- 221 0.8980 0.8980 0.4702
- 222 0.9020 0.9020 0.4649
- 223 0.9059 0.9059 0.4595
- 224 0.9098 0.9098 0.4540
- 225 0.9098 0.9098 0.4484
- 226 0.9137 0.9137 0.4426
- 227 0.9176 0.9176 0.4366
- 228 0.9176 0.9176 0.4306
- 229 0.9216 0.9216 0.4243
- 230 0.9255 0.9255 0.4179
- 231 0.9294 0.9294 0.4114
- 232 0.9294 0.9294 0.4046
- 233 0.9333 0.9333 0.3977
- 234 0.9373 0.9373 0.3905
- 235 0.9373 0.9373 0.3831
- 236 0.9412 0.9412 0.3754
- 237 0.9451 0.9451 0.3675
- 238 0.9490 0.9490 0.3594
- 239 0.9490 0.9490 0.3509
- 240 0.9529 0.9529 0.3420
- 241 0.9569 0.9569 0.3328
- 242 0.9608 0.9608 0.3232
- 243 0.9608 0.9608 0.3131
- 244 0.9647 0.9647 0.3024
- 245 0.9686 0.9686 0.2912
- 246 0.9686 0.9686 0.2792
- 247 0.9725 0.9725 0.2664
- 248 0.9765 0.9765 0.2526
- 249 0.9804 0.9804 0.2375
- 250 0.9804 0.9804 0.2208
- 251 0.9843 0.9843 0.2020
- 252 0.9882 0.9882 0.1800
- 253 1.0 0.0 0.0
- 254 1.0 1.0 0.0
- 255 0.0 1.000 0.0
diff --git a/commons.h b/commons.h
deleted file mode 100644
index e521841..0000000
--- a/commons.h
+++ /dev/null
@@ -1,35 +0,0 @@
-#ifndef COMMONS_H
-#define COMMONS_H
-
-//#define NSMAX 1365
-#define NSMAX 6827
-#define NTMAX 120
-
-extern "C" {
-
-extern struct {
- float ss[184*NSMAX]; //This is "common/jt9com/..." in fortran
- float savg[NSMAX];
- short int d2[NTMAX*12000];
- int nutc; //UTC as integer, HHMM
- int ndiskdat; //1 ==> data read from *.wav file
- int ntrperiod; //TR period (seconds)
- int nfqso; //User-selected QSO freq (kHz)
- int newdat; //1 ==> new data, must do long FFT
- int npts8; //npts for c0() array
- int nfa; //Low decode limit (Hz)
- int nfb; //High decode limit (Hz)
- int ntol; //+/- decoding range around fQSO (Hz)
- int kin;
- int nzhsym;
- int nsave;
- int nagain;
- int ndepth;
- int ntxmode;
- int nmode;
- char datetime[20];
-} jt9com_;
-
-}
-
-#endif // COMMONS_H
diff --git a/devsetup.cpp b/devsetup.cpp
deleted file mode 100644
index 018a188..0000000
--- a/devsetup.cpp
+++ /dev/null
@@ -1,595 +0,0 @@
-#include "devsetup.h"
-#include <QDebug>
-#include <QSettings>
-#include <portaudio.h>
-
-#define MAXDEVICES 100
-
-extern double dFreq[16];
-qint32 g2_iptt;
-qint32 g2_COMportOpen;
-
-//----------------------------------------------------------- DevSetup()
-DevSetup::DevSetup(QWidget *parent) : QDialog(parent)
-{
- ui.setupUi(this); //setup the dialog form
- m_restartSoundIn=false;
- m_restartSoundOut=false;
- m_firstCall=true;
- g2_iptt=0;
- m_test=0;
- m_bRigOpen=false;
- g2_COMportOpen=0;
-}
-
-DevSetup::~DevSetup()
-{
-}
-
-void DevSetup::initDlg()
-{
- QString m_appDir = QApplication::applicationDirPath();
- QString inifile = m_appDir + "/wsjtx.ini";
- QSettings settings(inifile, QSettings::IniFormat);
- settings.beginGroup("Common");
- QString catPortDriver = settings.value("CATdriver","None").toString();
- settings.endGroup();
-
- int k,id;
- int numDevices=Pa_GetDeviceCount();
-
- const PaDeviceInfo *pdi;
- int nchin;
- int nchout;
- char pa_device_name[128];
- char pa_device_hostapi[128];
-
- k=0;
- for(id=0; id<numDevices; id++ ) {
- pdi=Pa_GetDeviceInfo(id);
- nchin=pdi->maxInputChannels;
- if(nchin>0) {
- m_inDevList[k]=id;
- if (id == m_paInDevice)
- m_nDevIn = k;
- k++;
- sprintf((char*)(pa_device_name),"%s",pdi->name);
- sprintf((char*)(pa_device_hostapi),"%s",
- Pa_GetHostApiInfo(pdi->hostApi)->name);
-
-#ifdef WIN32
- char *p,*p1;
- char p2[50];
- p1=(char*)"";
- p=strstr(pa_device_hostapi,"MME");
- if(p!=NULL) p1=(char*)"MME";
- p=strstr(pa_device_hostapi,"Direct");
- if(p!=NULL) p1=(char*)"DirectX";
- p=strstr(pa_device_hostapi,"WASAPI");
- if(p!=NULL) p1=(char*)"WASAPI";
- p=strstr(pa_device_hostapi,"ASIO");
- if(p!=NULL) p1=(char*)"ASIO";
- p=strstr(pa_device_hostapi,"WDM-KS");
- if(p!=NULL) p1=(char*)"WDM-KS";
-
- sprintf(p2,"%2d %d %-8s %-39s",id,nchin,p1,pa_device_name);
- QString t(p2);
-#else
- QString t;
- t.sprintf("%2d %d %-8s %-39s",id,nchin,
- Pa_GetHostApiInfo(pdi->hostApi)->name,pdi->name);
-#endif
- ui.comboBoxSndIn->addItem(t);
- }
- }
-
- k=0;
- for(id=0; id<numDevices; id++ ) {
- pdi=Pa_GetDeviceInfo(id);
- nchout=pdi->maxOutputChannels;
- if(nchout>0) {
- m_outDevList[k]=id;
- if (id == m_paOutDevice)
- m_nDevOut = k;
- k++;
- sprintf((char*)(pa_device_name),"%s",pdi->name);
- sprintf((char*)(pa_device_hostapi),"%s",
- Pa_GetHostApiInfo(pdi->hostApi)->name);
-
-#ifdef WIN32
- char *p,*p1;
- char p2[50];
- p1=(char*)"";
- p=strstr(pa_device_hostapi,"MME");
- if(p!=NULL) p1=(char*)"MME";
- p=strstr(pa_device_hostapi,"Direct");
- if(p!=NULL) p1=(char*)"DirectX";
- p=strstr(pa_device_hostapi,"WASAPI");
- if(p!=NULL) p1=(char*)"WASAPI";
- p=strstr(pa_device_hostapi,"ASIO");
- if(p!=NULL) p1=(char*)"ASIO";
- p=strstr(pa_device_hostapi,"WDM-KS");
- if(p!=NULL) p1=(char*)"WDM-KS";
- sprintf(p2,"%2d %d %-8s %-39s",id,nchout,p1,pa_device_name);
- QString t(p2);
-#else
- QString t;
- t.sprintf("%2d %d %-8s %-39s",id,nchout,
- Pa_GetHostApiInfo(pdi->hostApi)->name,pdi->name);
-#endif
- ui.comboBoxSndOut->addItem(t);
- }
- }
-
- connect(&p4, SIGNAL(readyReadStandardOutput()),
- this, SLOT(p4ReadFromStdout()));
- connect(&p4, SIGNAL(readyReadStandardError()),
- this, SLOT(p4ReadFromStderr()));
- connect(&p4, SIGNAL(error(QProcess::ProcessError)),
- this, SLOT(p4Error()));
- p4.start("rigctl -l");
- p4.waitForFinished(1000);
- ui.rigComboBox->addItem(" 9998 Commander");
- ui.rigComboBox->addItem(" 9999 Ham Radio Deluxe");
-
- QPalette pal(ui.myCallEntry->palette());
- if(m_myCall=="") {
- pal.setColor(QPalette::Base,"#ffccff");
- } else {
- pal.setColor(QPalette::Base,Qt::white);
- }
- ui.myCallEntry->setPalette(pal);
- ui.myGridEntry->setPalette(pal);
- ui.myCallEntry->setText(m_myCall);
- ui.myGridEntry->setText(m_myGrid);
- ui.pskReporterAntenna->setText(m_pskAntenna);
-
- ui.idIntSpinBox->setValue(m_idInt);
- ui.pttMethodComboBox->setCurrentIndex(m_pttMethodIndex);
- ui.saveDirEntry->setText(m_saveDir);
- ui.comboBoxSndIn->setCurrentIndex(m_nDevIn);
- ui.comboBoxSndOut->setCurrentIndex(m_nDevOut);
- ui.cbID73->setChecked(m_After73);
- ui.cbPSKReporter->setChecked(m_pskReporter);
- ui.cbSplit->setChecked(m_bSplit and m_catEnabled);
- ui.cbXIT->setChecked(m_bXIT);
- ui.cbXIT->setVisible(false);
-
- enableWidgets();
-
- ui.rigComboBox->setCurrentIndex(m_rigIndex);
- ui.catPortComboBox->setCurrentIndex(m_catPortIndex);
- ui.serialRateComboBox->setCurrentIndex(m_serialRateIndex);
- ui.dataBitsComboBox->setCurrentIndex(m_dataBitsIndex);
- ui.stopBitsComboBox->setCurrentIndex(m_stopBitsIndex);
- ui.handshakeComboBox->setCurrentIndex(m_handshakeIndex);
- ui.rbData->setChecked(m_pttData);
- ui.pollSpinBox->setValue(m_poll);
-
- // PY2SDR -- Per OS serial port names
- m_tmp=m_pttPort;
- ui.pttComboBox->clear();
- ui.catPortComboBox->clear();
- ui.pttComboBox->addItem("None");
- ui.catPortComboBox->addItem("None");
-#ifdef WIN32
- for ( int i = 1; i < 100; i++ ) {
- ui.pttComboBox->addItem("COM" + QString::number(i));
- ui.catPortComboBox->addItem("COM" + QString::number(i));
- }
- ui.pttComboBox->addItem("USB");
- ui.catPortComboBox->addItem("USB");
-#else
- ui.catPortComboBox->addItem("/dev/ttyS0");
- ui.catPortComboBox->addItem("/dev/ttyS1");
- ui.catPortComboBox->addItem("/dev/ttyS2");
- ui.catPortComboBox->addItem("/dev/ttyS3");
- ui.catPortComboBox->addItem("/dev/ttyS4");
- ui.catPortComboBox->addItem("/dev/ttyS5");
- ui.catPortComboBox->addItem("/dev/ttyS6");
- ui.catPortComboBox->addItem("/dev/ttyS7");
- ui.catPortComboBox->addItem("/dev/ttyUSB0");
- ui.catPortComboBox->addItem("/dev/ttyUSB1");
- ui.catPortComboBox->addItem("/dev/ttyUSB2");
- ui.catPortComboBox->addItem("/dev/ttyUSB3");
- ui.catPortComboBox->addItem(catPortDriver);
-
- ui.pttComboBox->addItem("/dev/ttyS0");
- ui.pttComboBox->addItem("/dev/ttyS1");
- ui.pttComboBox->addItem("/dev/ttyS2");
- ui.pttComboBox->addItem("/dev/ttyS3");
- ui.pttComboBox->addItem("/dev/ttyS4");
- ui.pttComboBox->addItem("/dev/ttyS5");
- ui.pttComboBox->addItem("/dev/ttyS6");
- ui.pttComboBox->addItem("/dev/ttyS7");
- ui.pttComboBox->addItem("/dev/ttyUSB0");
- ui.pttComboBox->addItem("/dev/ttyUSB1");
- ui.pttComboBox->addItem("/dev/ttyUSB2");
- ui.pttComboBox->addItem("/dev/ttyUSB3");
-#endif
- ui.pttComboBox->setCurrentIndex(m_tmp);
- ui.catPortComboBox->setCurrentIndex(m_catPortIndex);
-
- int n=m_macro.length();
- if(n>=1) ui.macro1->setText(m_macro[0].toUpper());
- if(n>=2) ui.macro2->setText(m_macro[1].toUpper());
- if(n>=3) ui.macro3->setText(m_macro[2].toUpper());
- if(n>=4) ui.macro4->setText(m_macro[3].toUpper());
- if(n>=5) ui.macro5->setText(m_macro[4].toUpper());
- if(n>=6) ui.macro6->setText(m_macro[5].toUpper());
- if(n>=7) ui.macro7->setText(m_macro[6].toUpper());
- if(n>=8) ui.macro8->setText(m_macro[7].toUpper());
- if(n>=8) ui.macro9->setText(m_macro[8].toUpper());
- if(n>=10) ui.macro10->setText(m_macro[9].toUpper());
-
- ui.f1->setText(m_dFreq[0]);
- ui.f2->setText(m_dFreq[1]);
- ui.f3->setText(m_dFreq[2]);
- ui.f4->setText(m_dFreq[3]);
- ui.f5->setText(m_dFreq[4]);
- ui.f6->setText(m_dFreq[5]);
- ui.f7->setText(m_dFreq[6]);
- ui.f8->setText(m_dFreq[7]);
- ui.f9->setText(m_dFreq[8]);
- ui.f10->setText(m_dFreq[9]);
- ui.f11->setText(m_dFreq[10]);
- ui.f12->setText(m_dFreq[11]);
- ui.f13->setText(m_dFreq[12]);
- ui.f14->setText(m_dFreq[13]);
- ui.f15->setText(m_dFreq[14]);
- ui.f16->setText(m_dFreq[15]);
-}
-
-//------------------------------------------------------- accept()
-void DevSetup::accept()
-{
- // Called when OK button is clicked.
- // Check to see whether SoundInThread must be restarted,
- // and save user parameters.
-
- if(m_nDevIn!=ui.comboBoxSndIn->currentIndex() or
- m_paInDevice!=m_inDevList[m_nDevIn]) m_restartSoundIn=true;
-
- if(m_nDevOut!=ui.comboBoxSndOut->currentIndex() or
- m_paOutDevice!=m_outDevList[m_nDevOut]) m_restartSoundOut=true;
-
- m_myCall=ui.myCallEntry->text();
- m_myGrid=ui.myGridEntry->text();
- m_pskAntenna=ui.pskReporterAntenna->text();
- m_idInt=ui.idIntSpinBox->value();
- m_pttMethodIndex=ui.pttMethodComboBox->currentIndex();
- m_pttPort=ui.pttComboBox->currentIndex();
- m_saveDir=ui.saveDirEntry->text();
- m_nDevIn=ui.comboBoxSndIn->currentIndex();
- m_paInDevice=m_inDevList[m_nDevIn];
- m_nDevOut=ui.comboBoxSndOut->currentIndex();
- m_paOutDevice=m_outDevList[m_nDevOut];
-
- m_macro.clear();
- m_macro.append(ui.macro1->text());
- m_macro.append(ui.macro2->text());
- m_macro.append(ui.macro3->text());
- m_macro.append(ui.macro4->text());
- m_macro.append(ui.macro5->text());
- m_macro.append(ui.macro6->text());
- m_macro.append(ui.macro7->text());
- m_macro.append(ui.macro8->text());
- m_macro.append(ui.macro9->text());
- m_macro.append(ui.macro10->text());
-
- m_dFreq.clear();
- m_dFreq.append(ui.f1->text());
- m_dFreq.append(ui.f2->text());
- m_dFreq.append(ui.f3->text());
- m_dFreq.append(ui.f4->text());
- m_dFreq.append(ui.f5->text());
- m_dFreq.append(ui.f6->text());
- m_dFreq.append(ui.f7->text());
- m_dFreq.append(ui.f8->text());
- m_dFreq.append(ui.f9->text());
- m_dFreq.append(ui.f10->text());
- m_dFreq.append(ui.f11->text());
- m_dFreq.append(ui.f12->text());
- m_dFreq.append(ui.f13->text());
- m_dFreq.append(ui.f14->text());
- m_dFreq.append(ui.f15->text());
- m_dFreq.append(ui.f16->text());
-
- if(m_bRigOpen) {
- rig->close();
- if(m_rig<9900) delete rig;
- m_bRigOpen=false;
- }
-
- QDialog::accept();
-}
-
-//------------------------------------------------------- reject()
-void DevSetup::reject()
-{
- if(m_bRigOpen) rig->close();
- QDialog::reject();
-}
-
-void DevSetup::p4ReadFromStdout() //p4readFromStdout
-{
- while(p4.canReadLine()) {
- QString t(p4.readLine());
- QString t1,t2,t3;
- if(t.mid(0,6)!=" Rig #") {
- t1=t.mid(0,6);
- t2=t.mid(8,22).trimmed();
- t3=t.mid(31,23).trimmed();
- t=t1 + " " + t2 + " " + t3;
- ui.rigComboBox->addItem(t);
- }
- }
-}
-
-void DevSetup::p4ReadFromStderr() //p4readFromStderr
-{
- QByteArray t=p4.readAllStandardError();
- if(t.length()>0) {
- msgBox(t);
- }
-}
-
-void DevSetup::p4Error() //p4rror
-{
- msgBox("Error running 'rigctl -l'.");
-}
-
-void DevSetup::msgBox(QString t) //msgBox
-{
- msgBox0.setText(t);
- msgBox0.exec();
-}
-
-void DevSetup::on_myCallEntry_editingFinished()
-{
- QString t=ui.myCallEntry->text();
- ui.myCallEntry->setText(t.toUpper());
-}
-
-void DevSetup::on_myGridEntry_editingFinished()
-{
- QString t=ui.myGridEntry->text();
- t=t.mid(0,4).toUpper()+t.mid(4,2).toLower();
- ui.myGridEntry->setText(t);
-}
-
-void DevSetup::on_cbPSKReporter_clicked(bool b)
-{
- m_pskReporter=b;
- ui.label_8->setEnabled(m_pskReporter);
- ui.pskReporterAntenna->setEnabled(m_pskReporter);
-}
-
-void DevSetup::on_pttMethodComboBox_activated(int index)
-{
- m_pttMethodIndex=index;
- enableWidgets();
-}
-
-void DevSetup::on_catPortComboBox_activated(int index)
-{
- m_catPortIndex=index;
- m_catPort=ui.catPortComboBox->itemText(index);
-}
-
-void DevSetup::on_cbEnableCAT_toggled(bool b)
-{
- m_catEnabled=b;
- enableWidgets();
- ui.cbSplit->setChecked(m_bSplit and m_catEnabled);
-}
-
-void DevSetup::on_serialRateComboBox_activated(int index)
-{
- m_serialRateIndex=index;
- m_serialRate=ui.serialRateComboBox->itemText(index).toInt();
-}
-
-void DevSetup::on_handshakeComboBox_activated(int index)
-{
- m_handshakeIndex=index;
- m_handshake=ui.handshakeComboBox->itemText(index);
-}
-
-void DevSetup::on_dataBitsComboBox_activated(int index)
-{
- m_dataBitsIndex=index;
- m_dataBits=ui.dataBitsComboBox->itemText(index).toInt();
-}
-
-void DevSetup::on_stopBitsComboBox_activated(int index)
-{
- m_stopBitsIndex=index;
- m_stopBits=ui.stopBitsComboBox->itemText(index).toInt();
-}
-
-void DevSetup::on_rigComboBox_activated(int index)
-{
- m_rigIndex=index;
- QString t=ui.rigComboBox->itemText(index);
- m_rig=t.mid(0,7).toInt();
- enableWidgets();
-}
-
-void DevSetup::on_cbID73_toggled(bool checked)
-{
- m_After73=checked;
-}
-
-void DevSetup::on_testCATButton_clicked()
-{
- openRig();
- if(!m_catEnabled) return;
- QString t;
- double fMHz=rig->getFreq(RIG_VFO_CURR)/1000000.0;
- if(fMHz>0.0) {
- t.sprintf("Rig control appears to be working.\nDial Frequency: %.6f MHz",
- fMHz);
- } else {
- t.sprintf("Rig control error %d\nFailed to read frequency.",
- int(1000000.0*fMHz));
- if(m_poll>0) {
- m_catEnabled=false;
- ui.cbEnableCAT->setChecked(false);
- }
- }
- msgBox(t);
-}
-
-void DevSetup::openRig()
-{
- QString t;
- int ret;
-
- if(!m_catEnabled) return;
- if(m_bRigOpen) {
- rig->close();
- if(m_rig<9900) delete rig;
- m_bRigOpen=false;
- }
-
- rig = new Rig();
-
- if(m_rig<9900) {
- if (!rig->init(m_rig)) {
- msgBox("Rig init failure");
- m_catEnabled=false;
- return;
- }
- QString sCATport=m_catPort;
-#ifdef WIN32
- sCATport="\\\\.\\" + m_catPort; //Allow COM ports above 9
-#endif
- rig->setConf("rig_pathname", sCATport.toLatin1().data());
- char buf[80];
- sprintf(buf,"%d",m_serialRate);
- rig->setConf("serial_speed",buf);
- sprintf(buf,"%d",m_dataBits);
- rig->setConf("data_bits",buf);
- sprintf(buf,"%d",m_stopBits);
- rig->setConf("stop_bits",buf);
- rig->setConf("serial_handshake",m_handshake.toLatin1().data());
- if(m_bDTRoff) {
- rig->setConf("rts_state","OFF");
- rig->setConf("dtr_state","OFF");
- }
- }
-
- ret=rig->open(m_rig);
- if(ret==RIG_OK) {
- m_bRigOpen=true;
- } else {
- t="Open rig failed";
- msgBox(t);
- m_catEnabled=false;
- ui.cbEnableCAT->setChecked(false);
- return;
- }
-}
-
-void DevSetup::on_testPTTButton_clicked()
-{
- m_test=1-m_test;
- if(m_pttMethodIndex==1 or m_pttMethodIndex==2) {
- ptt(m_pttPort,m_test,&g2_iptt,&g2_COMportOpen);
- }
- if(m_pttMethodIndex==0 and !m_bRigOpen) {
-// on_testCATButton_clicked();
- openRig();
- }
- if(m_pttMethodIndex==0 and m_bRigOpen) {
- if(m_test==0) rig->setPTT(RIG_PTT_OFF, RIG_VFO_CURR);
- if(m_test==1) {
- if(m_pttData) rig->setPTT(RIG_PTT_ON_DATA, RIG_VFO_CURR);
- if(!m_pttData) rig->setPTT(RIG_PTT_ON_MIC, RIG_VFO_CURR);
- }
- }
-}
-
-void DevSetup::on_cbDTRoff_toggled(bool checked)
-{
- m_bDTRoff=checked;
-}
-
-void DevSetup::on_rbData_toggled(bool checked)
-{
- m_pttData=checked;
-}
-
-void DevSetup::on_pollSpinBox_valueChanged(int n)
-{
- m_poll=n;
-}
-
-void DevSetup::on_pttComboBox_currentIndexChanged(int index)
-{
- m_pttPort=index;
- enableWidgets();
-}
-
-void DevSetup::on_pttMethodComboBox_currentIndexChanged(int index)
-{
- m_pttMethodIndex=index;
- bool b=m_pttMethodIndex==1 or m_pttMethodIndex==2;
- ui.pttComboBox->setEnabled(b);
-}
-
-void DevSetup::enableWidgets()
-{
- ui.label_8->setEnabled(m_pskReporter);
- ui.pskReporterAntenna->setEnabled(m_pskReporter);
-
- ui.cbEnableCAT->setChecked(m_catEnabled);
- ui.cbDTRoff->setChecked(m_bDTRoff);
- ui.rigComboBox->setEnabled(m_catEnabled);
- ui.testCATButton->setEnabled(m_catEnabled);
- ui.label_4->setEnabled(m_catEnabled);
- ui.label_47->setEnabled(m_catEnabled);
- ui.cbSplit->setEnabled(m_catEnabled);
- if(m_rig==9999) { //No Split Tx with HRD
- ui.cbSplit->setChecked(false);
- ui.cbSplit->setEnabled(false);
- }
- ui.cbXIT->setEnabled(m_catEnabled);
-
- bool bSerial=m_catEnabled and (m_rig<9900);
- ui.catPortComboBox->setEnabled(bSerial);
- ui.serialRateComboBox->setEnabled(bSerial);
- ui.dataBitsComboBox->setEnabled(bSerial);
- ui.stopBitsComboBox->setEnabled(bSerial);
- ui.handshakeComboBox->setEnabled(bSerial);
- ui.cbDTRoff->setEnabled(bSerial);
- ui.rbData->setEnabled(bSerial);
- ui.rbMic->setEnabled(bSerial);
- ui.label_21->setEnabled(bSerial);
- ui.label_22->setEnabled(bSerial);
- ui.label_23->setEnabled(bSerial);
- ui.label_24->setEnabled(bSerial);
- ui.label_25->setEnabled(bSerial);
-
- ui.pollSpinBox->setEnabled(m_catEnabled);
- bool b1=(m_pttMethodIndex==1 or m_pttMethodIndex==2);
- ui.pttComboBox->setEnabled(b1);
- b1=b1 and (m_pttPort!=0);
- bool b2 = (m_catEnabled and m_pttMethodIndex==1 and m_rig<9900) or
- (m_catEnabled and m_pttMethodIndex==2 and m_rig<9900);
- bool b3 = (m_catEnabled and m_pttMethodIndex==0);
- ui.testPTTButton->setEnabled(b1 or b2 or b3); //Include PTT via HRD or Commander
-}
-
-void DevSetup::on_cbSplit_toggled(bool checked)
-{
- m_bSplit=checked;
- if(m_bSplit and m_bXIT) ui.cbXIT->setChecked(false);
-}
-
-void DevSetup::on_cbXIT_toggled(bool checked)
-{
- m_bXIT=checked;
- if(m_bSplit and m_bXIT) ui.cbSplit->setChecked(false);
-}
diff --git a/devsetup.h b/devsetup.h
deleted file mode 100644
index f483470..0000000
--- a/devsetup.h
+++ /dev/null
@@ -1,120 +0,0 @@
-#ifndef DEVSETUP_H
-#define DEVSETUP_H
-
-#include <QDialog>
-#include <QProcess>
-#include <QMessageBox>
-#include "ui_devsetup.h"
-#include "rigclass.h"
-
-class DevSetup : public QDialog
-{
- Q_OBJECT
-public:
- DevSetup(QWidget *parent=0);
- ~DevSetup();
-
- void initDlg();
-
- qint32 m_idInt;
- qint32 m_pttMethodIndex;
- qint32 m_pttPort;
- qint32 m_nDevIn;
- qint32 m_nDevOut;
- qint32 m_inDevList[100];
- qint32 m_outDevList[100];
- qint32 m_paInDevice;
- qint32 m_paOutDevice;
- qint32 m_catPortIndex;
- qint32 m_rig;
- qint32 m_rigIndex;
- qint32 m_serialRate;
- qint32 m_serialRateIndex;
- qint32 m_dataBits;
- qint32 m_dataBitsIndex;
- qint32 m_stopBits;
- qint32 m_stopBitsIndex;
- qint32 m_handshakeIndex;
- qint32 m_test;
- qint32 m_poll;
- qint32 m_tmp;
-
- bool m_restartSoundIn;
- bool m_restartSoundOut;
- bool m_pskReporter;
- bool m_firstCall;
- bool m_catEnabled;
- bool m_After73;
- bool m_bRigOpen;
- bool m_bDTRoff;
- bool m_pttData;
- bool m_bSplit;
- bool m_bXIT;
-
- QString m_myCall;
- QString m_myGrid;
- QString m_saveDir;
- QString m_azelDir;
- QString m_catPort;
- QString m_handshake;
- QString m_pskAntenna;
-
- QStringList m_macro;
- QStringList m_dFreq;
-
- QProcess p4;
- QMessageBox msgBox0;
-
-public slots:
- void accept();
- void reject();
- void p4ReadFromStdout();
- void p4ReadFromStderr();
- void p4Error();
-
-private slots:
- void on_myCallEntry_editingFinished();
- void on_myGridEntry_editingFinished();
- void on_cbPSKReporter_clicked(bool checked);
- void on_pttMethodComboBox_activated(int index);
- void on_catPortComboBox_activated(int index);
- void on_cbEnableCAT_toggled(bool checked);
- void on_serialRateComboBox_activated(int index);
- void on_handshakeComboBox_activated(int index);
- void on_dataBitsComboBox_activated(int index);
- void on_stopBitsComboBox_activated(int index);
- void on_rigComboBox_activated(int index);
- void on_cbID73_toggled(bool checked);
- void on_testCATButton_clicked();
- void on_testPTTButton_clicked();
- void on_cbDTRoff_toggled(bool checked);
- void on_rbData_toggled(bool checked);
- void on_pollSpinBox_valueChanged(int n);
- void on_pttComboBox_currentIndexChanged(int index);
- void on_pttMethodComboBox_currentIndexChanged(int index);
-
- void on_cbSplit_toggled(bool checked);
-
- void on_cbXIT_toggled(bool checked);
-
-private:
- Rig* rig;
- void msgBox(QString t);
- void enableWidgets();
- void openRig();
- Ui::DialogSndCard ui;
-};
-
-extern int ptt(int nport, int ntx, int* iptt, int* nopen);
-
-#ifdef WIN32
-extern "C" {
- bool HRDInterfaceConnect(const wchar_t *host, const ushort);
- void HRDInterfaceDisconnect();
- bool HRDInterfaceIsConnected();
- wchar_t* HRDInterfaceSendMessage(const wchar_t *msg);
- void HRDInterfaceFreeString(const wchar_t *lstring);
-}
-#endif
-
-#endif // DEVSETUP_H
diff --git a/devsetup.ui b/devsetup.ui
deleted file mode 100644
index b1a31cd..0000000
--- a/devsetup.ui
+++ /dev/null
@@ -1,2599 +0,0 @@
-<?xml version="1.0" encoding="UTF-8"?>
-<ui version="4.0">
- <class>DialogSndCard</class>
- <widget class="QDialog" name="DialogSndCard">
- <property name="geometry">
- <rect>
- <x>0</x>
- <y>0</y>
- <width>569</width>
- <height>493</height>
- </rect>
- </property>
- <property name="maximumSize">
- <size>
- <width>569</width>
- <height>493</height>
- </size>
- </property>
- <property name="windowTitle">
- <string>Configuration</string>
- </property>
- <layout class="QVBoxLayout" name="verticalLayout_2">
- <item>
- <widget class="QTabWidget" name="ioTabWidget">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Fixed" vsizetype="Fixed">
- <horstretch>0</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="currentIndex">
- <number>0</number>
- </property>
- <widget class="QWidget" name="tab">
- <attribute name="title">
- <string>Station</string>
- </attribute>
- <layout class="QVBoxLayout" name="verticalLayout">
- <item>
- <layout class="QHBoxLayout" name="horizontalLayout_5">
- <item>
- <widget class="QLabel" name="label">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Fixed" vsizetype="Preferred">
- <horstretch>0</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="minimumSize">
- <size>
- <width>80</width>
- <height>20</height>
- </size>
- </property>
- <property name="maximumSize">
- <size>
- <width>80</width>
- <height>16777215</height>
- </size>
- </property>
- <property name="text">
- <string>My Call:</string>
- </property>
- </widget>
- </item>
- <item>
- <widget class="QLineEdit" name="myCallEntry">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Fixed" vsizetype="Fixed">
- <horstretch>0</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="minimumSize">
- <size>
- <width>90</width>
- <height>0</height>
- </size>
- </property>
- <property name="maximumSize">
- <size>
- <width>90</width>
- <height>16777215</height>
- </size>
- </property>
- <property name="toolTip">
- <string>Station callsign</string>
- </property>
- <property name="text">
- <string/>
- </property>
- </widget>
- </item>
- <item>
- <layout class="QHBoxLayout" name="horizontalLayout_8"/>
- </item>
- <item>
- <spacer name="verticalSpacer_2">
- <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>
- <widget class="QLabel" name="label_2">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Fixed" vsizetype="Preferred">
- <horstretch>0</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="minimumSize">
- <size>
- <width>80</width>
- <height>20</height>
- </size>
- </property>
- <property name="maximumSize">
- <size>
- <width>80</width>
- <height>16777215</height>
- </size>
- </property>
- <property name="text">
- <string>My Grid:</string>
- </property>
- <property name="alignment">
- <set>Qt::AlignRight|Qt::AlignTrailing|Qt::AlignVCenter</set>
- </property>
- </widget>
- </item>
- <item>
- <widget class="QLineEdit" name="myGridEntry">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Fixed" vsizetype="Fixed">
- <horstretch>0</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="minimumSize">
- <size>
- <width>100</width>
- <height>0</height>
- </size>
- </property>
- <property name="maximumSize">
- <size>
- <width>60</width>
- <height>16777215</height>
- </size>
- </property>
- <property name="toolTip">
- <string>Maidenhead locator</string>
- </property>
- <property name="text">
- <string/>
- </property>
- </widget>
- </item>
- </layout>
- </item>
- <item>
- <layout class="QHBoxLayout" name="horizontalLayout_2">
- <item>
- <widget class="QLabel" name="label_5">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Fixed" vsizetype="Preferred">
- <horstretch>0</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="minimumSize">
- <size>
- <width>80</width>
- <height>0</height>
- </size>
- </property>
- <property name="maximumSize">
- <size>
- <width>80</width>
- <height>16777215</height>
- </size>
- </property>
- <property name="text">
- <string>PTT method:</string>
- </property>
- </widget>
- </item>
- <item>
- <widget class="QComboBox" name="pttMethodComboBox">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Fixed" vsizetype="Fixed">
- <horstretch>0</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="minimumSize">
- <size>
- <width>90</width>
- <height>0</height>
- </size>
- </property>
- <property name="maximumSize">
- <size>
- <width>90</width>
- <height>16777215</height>
- </size>
- </property>
- <property name="toolTip">
- <string>Select method for T/R switching</string>
- </property>
- <property name="currentIndex">
- <number>1</number>
- </property>
- <item>
- <property name="text">
- <string>CAT</string>
- </property>
- </item>
- <item>
- <property name="text">
- <string>DTR</string>
- </property>
- </item>
- <item>
- <property name="text">
- <string>RTS</string>
- </property>
- </item>
- <item>
- <property name="text">
- <string>VOX</string>
- </property>
- </item>
- </widget>
- </item>
- <item>
- <spacer name="horizontalSpacer_2">
- <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>
- <widget class="QLabel" name="label_9">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Fixed" vsizetype="Preferred">
- <horstretch>0</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="minimumSize">
- <size>
- <width>80</width>
- <height>0</height>
- </size>
- </property>
- <property name="maximumSize">
- <size>
- <width>80</width>
- <height>16777215</height>
- </size>
- </property>
- <property name="text">
- <string>PTT Port:</string>
- </property>
- <property name="alignment">
- <set>Qt::AlignRight|Qt::AlignTrailing|Qt::AlignVCenter</set>
- </property>
- </widget>
- </item>
- <item>
- <widget class="QComboBox" name="pttComboBox">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Fixed" vsizetype="Fixed">
- <horstretch>0</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="minimumSize">
- <size>
- <width>100</width>
- <height>0</height>
- </size>
- </property>
- <property name="maximumSize">
- <size>
- <width>100</width>
- <height>16777215</height>
- </size>
- </property>
- <property name="toolTip">
- <string>Select port for hardware T/R switching</string>
- </property>
- <item>
- <property name="text">
- <string>None</string>
- </property>
- </item>
- </widget>
- </item>
- </layout>
- </item>
- <item>
- <layout class="QHBoxLayout" name="horizontalLayout_6">
- <item>
- <widget class="QCheckBox" name="cbPSKReporter">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Fixed" vsizetype="Fixed">
- <horstretch>0</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="minimumSize">
- <size>
- <width>146</width>
- <height>0</height>
- </size>
- </property>
- <property name="maximumSize">
- <size>
- <width>146</width>
- <height>16777215</height>
- </size>
- </property>
- <property name="toolTip">
- <string>Send spots to PSK Reporter web site</string>
- </property>
- <property name="text">
- <string>Enable PSK Reporter</string>
- </property>
- </widget>
- </item>
- <item>
- <spacer name="horizontalSpacer_7">
- <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>
- <widget class="QCheckBox" name="cbID73">
- <property name="toolTip">
- <string>Send CW ID after a message with 73 or free text</string>
- </property>
- <property name="text">
- <string>CW ID after 73</string>
- </property>
- </widget>
- </item>
- <item>
- <spacer name="horizontalSpacer_3">
- <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>
- <widget class="QLabel" name="label_3">
- <property name="minimumSize">
- <size>
- <width>0</width>
- <height>20</height>
- </size>
- </property>
- <property name="text">
- <string>CW ID Interval (min):</string>
- </property>
- </widget>
- </item>
- <item>
- <widget class="QSpinBox" name="idIntSpinBox">
- <property name="enabled">
- <bool>true</bool>
- </property>
- <property name="maximumSize">
- <size>
- <width>60</width>
- <height>16777215</height>
- </size>
- </property>
- <property name="toolTip">
- <string>Select CW ID interval (0 for none)</string>
- </property>
- <property name="minimum">
- <number>0</number>
- </property>
- <property name="maximum">
- <number>10</number>
- </property>
- </widget>
- </item>
- </layout>
- </item>
- <item>
- <layout class="QHBoxLayout" name="horizontalLayout_12">
- <item>
- <widget class="QLabel" name="label_8">
- <property name="text">
- <string>Antenna for PSK Reporter:</string>
- </property>
- </widget>
- </item>
- <item>
- <widget class="QLineEdit" name="pskReporterAntenna"/>
- </item>
- </layout>
- </item>
- <item>
- <spacer name="verticalSpacer">
- <property name="orientation">
- <enum>Qt::Vertical</enum>
- </property>
- <property name="sizeHint" stdset="0">
- <size>
- <width>20</width>
- <height>13</height>
- </size>
- </property>
- </spacer>
- </item>
- <item>
- <layout class="QHBoxLayout" name="horizontalLayout_7">
- <item>
- <widget class="QCheckBox" name="cbEnableCAT">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Fixed" vsizetype="Fixed">
- <horstretch>0</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="minimumSize">
- <size>
- <width>110</width>
- <height>0</height>
- </size>
- </property>
- <property name="maximumSize">
- <size>
- <width>100</width>
- <height>16777215</height>
- </size>
- </property>
- <property name="toolTip">
- <string>Enable computer control of transceiver</string>
- </property>
- <property name="text">
- <string>Enable CAT</string>
- </property>
- </widget>
- </item>
- <item>
- <widget class="QLabel" name="label_4">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Fixed" vsizetype="Preferred">
- <horstretch>0</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="minimumSize">
- <size>
- <width>20</width>
- <height>0</height>
- </size>
- </property>
- <property name="maximumSize">
- <size>
- <width>20</width>
- <height>16777215</height>
- </size>
- </property>
- <property name="text">
- <string>Rig:</string>
- </property>
- </widget>
- </item>
- <item>
- <widget class="QComboBox" name="rigComboBox">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Expanding" vsizetype="Fixed">
- <horstretch>0</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="minimumSize">
- <size>
- <width>200</width>
- <height>0</height>
- </size>
- </property>
- <property name="toolTip">
- <string>Select radio type</string>
- </property>
- </widget>
- </item>
- </layout>
- </item>
- <item>
- <layout class="QHBoxLayout" name="horizontalLayout_1">
- <item>
- <widget class="QLabel" name="label_21">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Fixed" vsizetype="Preferred">
- <horstretch>0</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="minimumSize">
- <size>
- <width>110</width>
- <height>0</height>
- </size>
- </property>
- <property name="maximumSize">
- <size>
- <width>100</width>
- <height>16777215</height>
- </size>
- </property>
- <property name="text">
- <string>CAT port:</string>
- </property>
- </widget>
- </item>
- <item>
- <widget class="QComboBox" name="catPortComboBox">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Fixed" vsizetype="Fixed">
- <horstretch>0</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="minimumSize">
- <size>
- <width>100</width>
- <height>0</height>
- </size>
- </property>
- <property name="maximumSize">
- <size>
- <width>90</width>
- <height>16777215</height>
- </size>
- </property>
- <property name="toolTip">
- <string>Select port for CAT control</string>
- </property>
- <property name="currentIndex">
- <number>0</number>
- </property>
- <item>
- <property name="text">
- <string>None</string>
- </property>
- </item>
- </widget>
- </item>
- <item>
- <spacer name="horizontalSpacer_4">
- <property name="orientation">
- <enum>Qt::Horizontal</enum>
- </property>
- <property name="sizeType">
- <enum>QSizePolicy::Fixed</enum>
- </property>
- <property name="sizeHint" stdset="0">
- <size>
- <width>40</width>
- <height>20</height>
- </size>
- </property>
- </spacer>
- </item>
- <item>
- <widget class="QCheckBox" name="cbDTRoff">
- <property name="text">
- <string>RTS/DTR OFF</string>
- </property>
- </widget>
- </item>
- <item>
- <spacer name="horizontalSpacer_14">
- <property name="orientation">
- <enum>Qt::Horizontal</enum>
- </property>
- <property name="sizeType">
- <enum>QSizePolicy::Fixed</enum>
- </property>
- <property name="sizeHint" stdset="0">
- <size>
- <width>40</width>
- <height>20</height>
- </size>
- </property>
- </spacer>
- </item>
- <item>
- <widget class="QLabel" name="label_24">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Fixed" vsizetype="Preferred">
- <horstretch>0</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="minimumSize">
- <size>
- <width>60</width>
- <height>0</height>
- </size>
- </property>
- <property name="maximumSize">
- <size>
- <width>60</width>
- <height>16777215</height>
- </size>
- </property>
- <property name="text">
- <string>Data bits:</string>
- </property>
- </widget>
- </item>
- <item>
- <widget class="QComboBox" name="dataBitsComboBox">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Fixed" vsizetype="Fixed">
- <horstretch>0</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="minimumSize">
- <size>
- <width>50</width>
- <height>0</height>
- </size>
- </property>
- <property name="maximumSize">
- <size>
- <width>50</width>
- <height>16777215</height>
- </size>
- </property>
- <property name="currentIndex">
- <number>1</number>
- </property>
- <item>
- <property name="text">
- <string>7</string>
- </property>
- </item>
- <item>
- <property name="text">
- <string>8</string>
- </property>
- </item>
- </widget>
- </item>
- </layout>
- </item>
- <item>
- <layout class="QHBoxLayout" name="horizontalLayout_9">
- <item>
- <widget class="QLabel" name="label_22">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Fixed" vsizetype="Preferred">
- <horstretch>0</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="minimumSize">
- <size>
- <width>110</width>
- <height>0</height>
- </size>
- </property>
- <property name="maximumSize">
- <size>
- <width>100</width>
- <height>16777215</height>
- </size>
- </property>
- <property name="text">
- <string>Serial rate:</string>
- </property>
- </widget>
- </item>
- <item>
- <widget class="QComboBox" name="serialRateComboBox">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Fixed" vsizetype="Fixed">
- <horstretch>0</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="minimumSize">
- <size>
- <width>100</width>
- <height>0</height>
- </size>
- </property>
- <property name="maximumSize">
- <size>
- <width>90</width>
- <height>16777215</height>
- </size>
- </property>
- <property name="currentIndex">
- <number>1</number>
- </property>
- <item>
- <property name="text">
- <string>1200</string>
- </property>
- </item>
- <item>
- <property name="text">
- <string>4800</string>
- </property>
- </item>
- <item>
- <property name="text">
- <string>9600</string>
- </property>
- </item>
- <item>
- <property name="text">
- <string>19200</string>
- </property>
- </item>
- <item>
- <property name="text">
- <string>38400</string>
- </property>
- </item>
- <item>
- <property name="text">
- <string>57600</string>
- </property>
- </item>
- </widget>
- </item>
- <item>
- <spacer name="horizontalSpacer_13">
- <property name="orientation">
- <enum>Qt::Horizontal</enum>
- </property>
- <property name="sizeType">
- <enum>QSizePolicy::Fixed</enum>
- </property>
- <property name="sizeHint" stdset="0">
- <size>
- <width>40</width>
- <height>20</height>
- </size>
- </property>
- </spacer>
- </item>
- <item>
- <widget class="QRadioButton" name="rbData">
- <property name="toolTip">
- <string>Use special Tx command for "data"</string>
- </property>
- <property name="text">
- <string>Data</string>
- </property>
- </widget>
- </item>
- <item>
- <widget class="QRadioButton" name="rbMic">
- <property name="toolTip">
- <string>Use normal Tx command</string>
- </property>
- <property name="text">
- <string>Mic</string>
- </property>
- <property name="checked">
- <bool>true</bool>
- </property>
- </widget>
- </item>
- <item>
- <spacer name="horizontalSpacer_5">
- <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>
- <widget class="QLabel" name="label_25">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Fixed" vsizetype="Preferred">
- <horstretch>0</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="minimumSize">
- <size>
- <width>60</width>
- <height>0</height>
- </size>
- </property>
- <property name="maximumSize">
- <size>
- <width>60</width>
- <height>16777215</height>
- </size>
- </property>
- <property name="text">
- <string>Stop bits:</string>
- </property>
- </widget>
- </item>
- <item>
- <widget class="QComboBox" name="stopBitsComboBox">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Fixed" vsizetype="Fixed">
- <horstretch>0</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="minimumSize">
- <size>
- <width>50</width>
- <height>0</height>
- </size>
- </property>
- <property name="maximumSize">
- <size>
- <width>50</width>
- <height>16777215</height>
- </size>
- </property>
- <property name="currentIndex">
- <number>1</number>
- </property>
- <item>
- <property name="text">
- <string>1</string>
- </property>
- </item>
- <item>
- <property name="text">
- <string>2</string>
- </property>
- </item>
- </widget>
- </item>
- </layout>
- </item>
- <item>
- <layout class="QHBoxLayout" name="horizontalLayout_10">
- <item>
- <widget class="QLabel" name="label_23">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Fixed" vsizetype="Preferred">
- <horstretch>0</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="minimumSize">
- <size>
- <width>110</width>
- <height>0</height>
- </size>
- </property>
- <property name="maximumSize">
- <size>
- <width>100</width>
- <height>16777215</height>
- </size>
- </property>
- <property name="text">
- <string>Handshake:</string>
- </property>
- </widget>
- </item>
- <item>
- <widget class="QComboBox" name="handshakeComboBox">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Fixed" vsizetype="Fixed">
- <horstretch>0</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="minimumSize">
- <size>
- <width>100</width>
- <height>0</height>
- </size>
- </property>
- <property name="maximumSize">
- <size>
- <width>90</width>
- <height>16777215</height>
- </size>
- </property>
- <property name="currentIndex">
- <number>2</number>
- </property>
- <item>
- <property name="text">
- <string>None</string>
- </property>
- </item>
- <item>
- <property name="text">
- <string>XonXoff</string>
- </property>
- </item>
- <item>
- <property name="text">
- <string>Hardware</string>
- </property>
- </item>
- </widget>
- </item>
- <item>
- <spacer name="horizontalSpacer_16">
- <property name="orientation">
- <enum>Qt::Horizontal</enum>
- </property>
- <property name="sizeType">
- <enum>QSizePolicy::Fixed</enum>
- </property>
- <property name="sizeHint" stdset="0">
- <size>
- <width>40</width>
- <height>20</height>
- </size>
- </property>
- </spacer>
- </item>
- <item>
- <widget class="QCheckBox" name="cbSplit">
- <property name="text">
- <string>Split Tx</string>
- </property>
- </widget>
- </item>
- <item>
- <spacer name="horizontalSpacer_6">
- <property name="orientation">
- <enum>Qt::Horizontal</enum>
- </property>
- <property name="sizeHint" stdset="0">
- <size>
- <width>40</width>
- <height>20</height>
- </size>
- </property>
- </spacer>
- </item>
- </layout>
- </item>
- <item>
- <layout class="QHBoxLayout" name="horizontalLayout_11">
- <item>
- <widget class="QPushButton" name="testCATButton">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Fixed" vsizetype="Fixed">
- <horstretch>0</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="minimumSize">
- <size>
- <width>110</width>
- <height>0</height>
- </size>
- </property>
- <property name="maximumSize">
- <size>
- <width>100</width>
- <height>16777215</height>
- </size>
- </property>
- <property name="toolTip">
- <string>Check to see if CAT control is working</string>
- </property>
- <property name="text">
- <string>Test CAT Control</string>
- </property>
- </widget>
- </item>
- <item>
- <widget class="QPushButton" name="testPTTButton">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Fixed" vsizetype="Fixed">
- <horstretch>0</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="minimumSize">
- <size>
- <width>100</width>
- <height>0</height>
- </size>
- </property>
- <property name="maximumSize">
- <size>
- <width>90</width>
- <height>16777215</height>
- </size>
- </property>
- <property name="toolTip">
- <string>Test to see if T/R switching is working</string>
- </property>
- <property name="text">
- <string>Test PTT</string>
- </property>
- </widget>
- </item>
- <item>
- <spacer name="horizontalSpacer_17">
- <property name="orientation">
- <enum>Qt::Horizontal</enum>
- </property>
- <property name="sizeType">
- <enum>QSizePolicy::Fixed</enum>
- </property>
- <property name="sizeHint" stdset="0">
- <size>
- <width>40</width>
- <height>20</height>
- </size>
- </property>
- </spacer>
- </item>
- <item>
- <widget class="QCheckBox" name="cbXIT">
- <property name="text">
- <string>XIT</string>
- </property>
- </widget>
- </item>
- <item>
- <spacer name="horizontalSpacer_12">
- <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>
- <widget class="QLabel" name="label_47">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Preferred" vsizetype="Preferred">
- <horstretch>0</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="minimumSize">
- <size>
- <width>60</width>
- <height>0</height>
- </size>
- </property>
- <property name="text">
- <string>Polling interval (s):</string>
- </property>
- </widget>
- </item>
- <item>
- <widget class="QSpinBox" name="pollSpinBox">
- <property name="minimumSize">
- <size>
- <width>50</width>
- <height>0</height>
- </size>
- </property>
- <property name="toolTip">
- <string>Select interval for reading dial frequency</string>
- </property>
- <property name="maximum">
- <number>60</number>
- </property>
- </widget>
- </item>
- </layout>
- </item>
- <item>
- <spacer name="verticalSpacer_1">
- <property name="orientation">
- <enum>Qt::Vertical</enum>
- </property>
- <property name="sizeHint" stdset="0">
- <size>
- <width>20</width>
- <height>13</height>
- </size>
- </property>
- </spacer>
- </item>
- <item>
- <layout class="QHBoxLayout" name="horizontalLayout_13">
- <item>
- <spacer name="horizontalSpacer_15">
- <property name="orientation">
- <enum>Qt::Horizontal</enum>
- </property>
- <property name="sizeType">
- <enum>QSizePolicy::Fixed</enum>
- </property>
- <property name="sizeHint" stdset="0">
- <size>
- <width>96</width>
- <height>20</height>
- </size>
- </property>
- </spacer>
- </item>
- <item>
- <widget class="QLabel" name="label_26">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Expanding" vsizetype="Preferred">
- <horstretch>0</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="minimumSize">
- <size>
- <width>90</width>
- <height>0</height>
- </size>
- </property>
- <property name="maximumSize">
- <size>
- <width>16777215</width>
- <height>16777215</height>
- </size>
- </property>
- <property name="text">
- <string>Dev Ch API Name</string>
- </property>
- </widget>
- </item>
- </layout>
- </item>
- <item>
- <layout class="QVBoxLayout" name="verticalLayout_6">
- <item>
- <layout class="QHBoxLayout" name="horizontalLayout_3">
- <item>
- <widget class="QLabel" name="label_6">
- <property name="minimumSize">
- <size>
- <width>90</width>
- <height>0</height>
- </size>
- </property>
- <property name="maximumSize">
- <size>
- <width>90</width>
- <height>16777215</height>
- </size>
- </property>
- <property name="text">
- <string>Audio In:</string>
- </property>
- </widget>
- </item>
- <item>
- <widget class="QComboBox" name="comboBoxSndIn">
- <property name="enabled">
- <bool>true</bool>
- </property>
- <property name="toolTip">
- <string>Select audio input device and driver API</string>
- </property>
- </widget>
- </item>
- </layout>
- </item>
- <item>
- <layout class="QHBoxLayout" name="horizontalLayout_4">
- <item>
- <widget class="QLabel" name="label_7">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Preferred" vsizetype="Preferred">
- <horstretch>0</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="minimumSize">
- <size>
- <width>90</width>
- <height>0</height>
- </size>
- </property>
- <property name="maximumSize">
- <size>
- <width>90</width>
- <height>16777215</height>
- </size>
- </property>
- <property name="text">
- <string>Audio Out:</string>
- </property>
- </widget>
- </item>
- <item>
- <widget class="QComboBox" name="comboBoxSndOut">
- <property name="toolTip">
- <string>select audio output device and driver API</string>
- </property>
- </widget>
- </item>
- </layout>
- </item>
- <item>
- <layout class="QHBoxLayout" name="horizontalLayout">
- <item>
- <widget class="QLabel" name="label_10">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Preferred" vsizetype="Fixed">
- <horstretch>0</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="minimumSize">
- <size>
- <width>90</width>
- <height>20</height>
- </size>
- </property>
- <property name="text">
- <string>Save Directory:</string>
- </property>
- </widget>
- </item>
- <item>
- <widget class="QLineEdit" name="saveDirEntry">
- <property name="toolTip">
- <string>Directory for saved audio files</string>
- </property>
- <property name="text">
- <string>C:\Users\joe\wsjt\map65\save</string>
- </property>
- </widget>
- </item>
- </layout>
- </item>
- </layout>
- </item>
- </layout>
- </widget>
- <widget class="QWidget" name="tab_2">
- <attribute name="title">
- <string>Tx Macros</string>
- </attribute>
- <layout class="QVBoxLayout" name="verticalLayout_4">
- <item>
- <spacer name="verticalSpacer_5">
- <property name="orientation">
- <enum>Qt::Vertical</enum>
- </property>
- <property name="sizeHint" stdset="0">
- <size>
- <width>20</width>
- <height>40</height>
- </size>
- </property>
- </spacer>
- </item>
- <item>
- <layout class="QGridLayout" name="gridLayout">
- <item row="6" column="1">
- <widget class="QLabel" name="label_17">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Fixed" vsizetype="Preferred">
- <horstretch>0</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="minimumSize">
- <size>
- <width>20</width>
- <height>0</height>
- </size>
- </property>
- <property name="maximumSize">
- <size>
- <width>20</width>
- <height>16777215</height>
- </size>
- </property>
- <property name="text">
- <string>7</string>
- </property>
- </widget>
- </item>
- <item row="5" column="2">
- <widget class="QLineEdit" name="macro6">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Fixed" vsizetype="Fixed">
- <horstretch>0</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="minimumSize">
- <size>
- <width>200</width>
- <height>0</height>
- </size>
- </property>
- <property name="maximumSize">
- <size>
- <width>200</width>
- <height>16777215</height>
- </size>
- </property>
- </widget>
- </item>
- <item row="0" column="2">
- <widget class="QLineEdit" name="macro1">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Fixed" vsizetype="Fixed">
- <horstretch>0</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="minimumSize">
- <size>
- <width>200</width>
- <height>0</height>
- </size>
- </property>
- <property name="maximumSize">
- <size>
- <width>200</width>
- <height>16777215</height>
- </size>
- </property>
- <property name="text">
- <string/>
- </property>
- </widget>
- </item>
- <item row="2" column="1">
- <widget class="QLabel" name="label_13">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Fixed" vsizetype="Preferred">
- <horstretch>0</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="minimumSize">
- <size>
- <width>20</width>
- <height>0</height>
- </size>
- </property>
- <property name="maximumSize">
- <size>
- <width>20</width>
- <height>16777215</height>
- </size>
- </property>
- <property name="text">
- <string>3</string>
- </property>
- </widget>
- </item>
- <item row="2" column="2">
- <widget class="QLineEdit" name="macro3">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Fixed" vsizetype="Fixed">
- <horstretch>0</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="minimumSize">
- <size>
- <width>200</width>
- <height>0</height>
- </size>
- </property>
- <property name="maximumSize">
- <size>
- <width>200</width>
- <height>16777215</height>
- </size>
- </property>
- <property name="text">
- <string>10W DPL 73 GL</string>
- </property>
- </widget>
- </item>
- <item row="4" column="1">
- <widget class="QLabel" name="label_15">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Fixed" vsizetype="Preferred">
- <horstretch>0</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="minimumSize">
- <size>
- <width>20</width>
- <height>0</height>
- </size>
- </property>
- <property name="maximumSize">
- <size>
- <width>20</width>
- <height>16777215</height>
- </size>
- </property>
- <property name="text">
- <string>5</string>
- </property>
- </widget>
- </item>
- <item row="7" column="1">
- <widget class="QLabel" name="label_18">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Fixed" vsizetype="Preferred">
- <horstretch>0</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="minimumSize">
- <size>
- <width>20</width>
- <height>0</height>
- </size>
- </property>
- <property name="maximumSize">
- <size>
- <width>20</width>
- <height>16777215</height>
- </size>
- </property>
- <property name="text">
- <string>8</string>
- </property>
- </widget>
- </item>
- <item row="8" column="1">
- <widget class="QLabel" name="label_19">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Fixed" vsizetype="Preferred">
- <horstretch>0</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="minimumSize">
- <size>
- <width>20</width>
- <height>0</height>
- </size>
- </property>
- <property name="maximumSize">
- <size>
- <width>20</width>
- <height>16777215</height>
- </size>
- </property>
- <property name="text">
- <string>9</string>
- </property>
- </widget>
- </item>
- <item row="9" column="1">
- <widget class="QLabel" name="label_20">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Fixed" vsizetype="Preferred">
- <horstretch>0</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="minimumSize">
- <size>
- <width>20</width>
- <height>0</height>
- </size>
- </property>
- <property name="maximumSize">
- <size>
- <width>20</width>
- <height>16777215</height>
- </size>
- </property>
- <property name="text">
- <string>10</string>
- </property>
- </widget>
- </item>
- <item row="5" column="1">
- <widget class="QLabel" name="label_16">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Fixed" vsizetype="Preferred">
- <horstretch>0</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="minimumSize">
- <size>
- <width>20</width>
- <height>0</height>
- </size>
- </property>
- <property name="maximumSize">
- <size>
- <width>20</width>
- <height>16777215</height>
- </size>
- </property>
- <property name="text">
- <string>6</string>
- </property>
- </widget>
- </item>
- <item row="3" column="1">
- <widget class="QLabel" name="label_14">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Fixed" vsizetype="Preferred">
- <horstretch>0</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="minimumSize">
- <size>
- <width>20</width>
- <height>0</height>
- </size>
- </property>
- <property name="maximumSize">
- <size>
- <width>20</width>
- <height>16777215</height>
- </size>
- </property>
- <property name="text">
- <string>4</string>
- </property>
- </widget>
- </item>
- <item row="9" column="2">
- <widget class="QLineEdit" name="macro10">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Fixed" vsizetype="Fixed">
- <horstretch>0</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="minimumSize">
- <size>
- <width>200</width>
- <height>0</height>
- </size>
- </property>
- <property name="maximumSize">
- <size>
- <width>200</width>
- <height>16777215</height>
- </size>
- </property>
- </widget>
- </item>
- <item row="4" column="2">
- <widget class="QLineEdit" name="macro5">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Fixed" vsizetype="Fixed">
- <horstretch>0</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="minimumSize">
- <size>
- <width>200</width>
- <height>0</height>
- </size>
- </property>
- <property name="maximumSize">
- <size>
- <width>200</width>
- <height>16777215</height>
- </size>
- </property>
- <property name="text">
- <string/>
- </property>
- </widget>
- </item>
- <item row="3" column="2">
- <widget class="QLineEdit" name="macro4">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Fixed" vsizetype="Fixed">
- <horstretch>0</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="minimumSize">
- <size>
- <width>200</width>
- <height>0</height>
- </size>
- </property>
- <property name="maximumSize">
- <size>
- <width>200</width>
- <height>16777215</height>
- </size>
- </property>
- <property name="text">
- <string/>
- </property>
- </widget>
- </item>
- <item row="1" column="2">
- <widget class="QLineEdit" name="macro2">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Fixed" vsizetype="Fixed">
- <horstretch>0</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="minimumSize">
- <size>
- <width>200</width>
- <height>0</height>
- </size>
- </property>
- <property name="maximumSize">
- <size>
- <width>200</width>
- <height>16777215</height>
- </size>
- </property>
- <property name="text">
- <string>5W DPL 73 GL</string>
- </property>
- </widget>
- </item>
- <item row="8" column="2">
- <widget class="QLineEdit" name="macro9">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Fixed" vsizetype="Fixed">
- <horstretch>0</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="minimumSize">
- <size>
- <width>200</width>
- <height>0</height>
- </size>
- </property>
- <property name="maximumSize">
- <size>
- <width>200</width>
- <height>16777215</height>
- </size>
- </property>
- </widget>
- </item>
- <item row="5" column="3">
- <spacer name="horizontalSpacer_8">
- <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="0" column="1">
- <widget class="QLabel" name="label_11">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Fixed" vsizetype="Preferred">
- <horstretch>0</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="minimumSize">
- <size>
- <width>20</width>
- <height>0</height>
- </size>
- </property>
- <property name="maximumSize">
- <size>
- <width>20</width>
- <height>16777215</height>
- </size>
- </property>
- <property name="text">
- <string>1</string>
- </property>
- </widget>
- </item>
- <item row="6" column="2">
- <widget class="QLineEdit" name="macro7">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Fixed" vsizetype="Fixed">
- <horstretch>0</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="minimumSize">
- <size>
- <width>200</width>
- <height>0</height>
- </size>
- </property>
- <property name="maximumSize">
- <size>
- <width>200</width>
- <height>16777215</height>
- </size>
- </property>
- </widget>
- </item>
- <item row="1" column="1">
- <widget class="QLabel" name="label_12">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Fixed" vsizetype="Preferred">
- <horstretch>0</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="minimumSize">
- <size>
- <width>20</width>
- <height>0</height>
- </size>
- </property>
- <property name="maximumSize">
- <size>
- <width>20</width>
- <height>16777215</height>
- </size>
- </property>
- <property name="text">
- <string>2</string>
- </property>
- </widget>
- </item>
- <item row="7" column="2">
- <widget class="QLineEdit" name="macro8">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Fixed" vsizetype="Fixed">
- <horstretch>0</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="minimumSize">
- <size>
- <width>200</width>
- <height>0</height>
- </size>
- </property>
- <property name="maximumSize">
- <size>
- <width>200</width>
- <height>16777215</height>
- </size>
- </property>
- </widget>
- </item>
- <item row="5" column="0">
- <spacer name="horizontalSpacer">
- <property name="orientation">
- <enum>Qt::Horizontal</enum>
- </property>
- <property name="sizeHint" stdset="0">
- <size>
- <width>40</width>
- <height>20</height>
- </size>
- </property>
- </spacer>
- </item>
- </layout>
- </item>
- <item>
- <spacer name="verticalSpacer_3">
- <property name="orientation">
- <enum>Qt::Vertical</enum>
- </property>
- <property name="sizeHint" stdset="0">
- <size>
- <width>20</width>
- <height>40</height>
- </size>
- </property>
- </spacer>
- </item>
- </layout>
- </widget>
- <widget class="QWidget" name="tab_3">
- <attribute name="title">
- <string>Default Frequencies</string>
- </attribute>
- <layout class="QVBoxLayout" name="verticalLayout_5">
- <item>
- <spacer name="verticalSpacer_6">
- <property name="orientation">
- <enum>Qt::Vertical</enum>
- </property>
- <property name="sizeHint" stdset="0">
- <size>
- <width>20</width>
- <height>40</height>
- </size>
- </property>
- </spacer>
- </item>
- <item>
- <layout class="QGridLayout" name="gridLayout_2">
- <item row="5" column="4">
- <widget class="QLabel" name="label_39">
- <property name="text">
- <string>6 m</string>
- </property>
- </widget>
- </item>
- <item row="5" column="5">
- <widget class="QLineEdit" name="f13">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Fixed" vsizetype="Fixed">
- <horstretch>0</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="minimumSize">
- <size>
- <width>90</width>
- <height>27</height>
- </size>
- </property>
- <property name="maximumSize">
- <size>
- <width>90</width>
- <height>16777215</height>
- </size>
- </property>
- <property name="text">
- <string>50.293</string>
- </property>
- <property name="alignment">
- <set>Qt::AlignCenter</set>
- </property>
- </widget>
- </item>
- <item row="0" column="1">
- <widget class="QLabel" name="label_43">
- <property name="text">
- <string>Band</string>
- </property>
- </widget>
- </item>
- <item row="0" column="2">
- <widget class="QLabel" name="label_44">
- <property name="text">
- <string>Freq (MHz)</string>
- </property>
- </widget>
- </item>
- <item row="3" column="5">
- <widget class="QLineEdit" name="f11">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Fixed" vsizetype="Fixed">
- <horstretch>0</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="minimumSize">
- <size>
- <width>90</width>
- <height>27</height>
- </size>
- </property>
- <property name="maximumSize">
- <size>
- <width>90</width>
- <height>16777215</height>
- </size>
- </property>
- <property name="text">
- <string>24.9246</string>
- </property>
- <property name="alignment">
- <set>Qt::AlignCenter</set>
- </property>
- </widget>
- </item>
- <item row="4" column="1">
- <widget class="QLabel" name="label_30">
- <property name="text">
- <string>80 m</string>
- </property>
- </widget>
- </item>
- <item row="2" column="4">
- <widget class="QLabel" name="label_36">
- <property name="text">
- <string>15 m</string>
- </property>
- </widget>
- </item>
- <item row="2" column="5">
- <widget class="QLineEdit" name="f10">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Fixed" vsizetype="Fixed">
- <horstretch>0</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="minimumSize">
- <size>
- <width>90</width>
- <height>27</height>
- </size>
- </property>
- <property name="maximumSize">
- <size>
- <width>90</width>
- <height>16777215</height>
- </size>
- </property>
- <property name="text">
- <string>21.078</string>
- </property>
- <property name="alignment">
- <set>Qt::AlignCenter</set>
- </property>
- </widget>
- </item>
- <item row="4" column="4">
- <widget class="QLabel" name="label_38">
- <property name="text">
- <string>10 m</string>
- </property>
- </widget>
- </item>
- <item row="1" column="1">
- <widget class="QLabel" name="label_27">
- <property name="text">
- <string>2200 m</string>
- </property>
- </widget>
- </item>
- <item row="3" column="4">
- <widget class="QLabel" name="label_37">
- <property name="text">
- <string>12 m</string>
- </property>
- </widget>
- </item>
- <item row="4" column="5">
- <widget class="QLineEdit" name="f12">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Fixed" vsizetype="Fixed">
- <horstretch>0</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="minimumSize">
- <size>
- <width>90</width>
- <height>27</height>
- </size>
- </property>
- <property name="maximumSize">
- <size>
- <width>90</width>
- <height>16777215</height>
- </size>
- </property>
- <property name="text">
- <string>28.078</string>
- </property>
- <property name="alignment">
- <set>Qt::AlignCenter</set>
- </property>
- </widget>
- </item>
- <item row="6" column="5">
- <widget class="QLineEdit" name="f14">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Fixed" vsizetype="Fixed">
- <horstretch>0</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="minimumSize">
- <size>
- <width>90</width>
- <height>27</height>
- </size>
- </property>
- <property name="maximumSize">
- <size>
- <width>90</width>
- <height>16777215</height>
- </size>
- </property>
- <property name="text">
- <string>70.091</string>
- </property>
- <property name="alignment">
- <set>Qt::AlignCenter</set>
- </property>
- </widget>
- </item>
- <item row="5" column="1">
- <widget class="QLabel" name="label_31">
- <property name="text">
- <string>60 m</string>
- </property>
- </widget>
- </item>
- <item row="6" column="1">
- <widget class="QLabel" name="label_32">
- <property name="text">
- <string>40 m</string>
- </property>
- </widget>
- </item>
- <item row="6" column="4">
- <widget class="QLabel" name="label_40">
- <property name="text">
- <string>4 m</string>
- </property>
- </widget>
- </item>
- <item row="1" column="4">
- <widget class="QLabel" name="label_35">
- <property name="text">
- <string>17 m</string>
- </property>
- </widget>
- </item>
- <item row="0" column="4">
- <widget class="QLabel" name="label_45">
- <property name="text">
- <string>Band</string>
- </property>
- </widget>
- </item>
- <item row="0" column="5">
- <widget class="QLabel" name="label_46">
- <property name="text">
- <string>Freq (MHz)</string>
- </property>
- </widget>
- </item>
- <item row="7" column="1">
- <widget class="QLabel" name="label_33">
- <property name="text">
- <string>30 m</string>
- </property>
- </widget>
- </item>
- <item row="8" column="5">
- <widget class="QLineEdit" name="f16">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Fixed" vsizetype="Fixed">
- <horstretch>0</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="minimumSize">
- <size>
- <width>90</width>
- <height>27</height>
- </size>
- </property>
- <property name="maximumSize">
- <size>
- <width>90</width>
- <height>16777215</height>
- </size>
- </property>
- <property name="text">
- <string>432.178</string>
- </property>
- <property name="alignment">
- <set>Qt::AlignCenter</set>
- </property>
- </widget>
- </item>
- <item row="3" column="1">
- <widget class="QLabel" name="label_29">
- <property name="text">
- <string>160 m</string>
- </property>
- </widget>
- </item>
- <item row="2" column="1">
- <widget class="QLabel" name="label_28">
- <property name="text">
- <string>630 m</string>
- </property>
- </widget>
- </item>
- <item row="8" column="1">
- <widget class="QLabel" name="label_34">
- <property name="text">
- <string>20 m</string>
- </property>
- </widget>
- </item>
- <item row="8" column="4">
- <widget class="QLabel" name="label_42">
- <property name="text">
- <string>Other</string>
- </property>
- </widget>
- </item>
- <item row="1" column="5">
- <widget class="QLineEdit" name="f9">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Fixed" vsizetype="Fixed">
- <horstretch>0</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="minimumSize">
- <size>
- <width>90</width>
- <height>27</height>
- </size>
- </property>
- <property name="maximumSize">
- <size>
- <width>90</width>
- <height>16777215</height>
- </size>
- </property>
- <property name="text">
- <string>18.1046</string>
- </property>
- <property name="alignment">
- <set>Qt::AlignCenter</set>
- </property>
- </widget>
- </item>
- <item row="2" column="2">
- <widget class="QLineEdit" name="f2">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Fixed" vsizetype="Fixed">
- <horstretch>0</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="minimumSize">
- <size>
- <width>90</width>
- <height>27</height>
- </size>
- </property>
- <property name="maximumSize">
- <size>
- <width>90</width>
- <height>16777215</height>
- </size>
- </property>
- <property name="text">
- <string>0.4742</string>
- </property>
- <property name="alignment">
- <set>Qt::AlignCenter</set>
- </property>
- </widget>
- </item>
- <item row="7" column="4">
- <widget class="QLabel" name="label_41">
- <property name="text">
- <string>2 m</string>
- </property>
- </widget>
- </item>
- <item row="7" column="5">
- <widget class="QLineEdit" name="f15">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Fixed" vsizetype="Fixed">
- <horstretch>0</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="minimumSize">
- <size>
- <width>90</width>
- <height>27</height>
- </size>
- </property>
- <property name="maximumSize">
- <size>
- <width>90</width>
- <height>16777215</height>
- </size>
- </property>
- <property name="text">
- <string>144.489</string>
- </property>
- <property name="alignment">
- <set>Qt::AlignCenter</set>
- </property>
- </widget>
- </item>
- <item row="1" column="2">
- <widget class="QLineEdit" name="f1">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Fixed" vsizetype="Fixed">
- <horstretch>0</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="minimumSize">
- <size>
- <width>90</width>
- <height>27</height>
- </size>
- </property>
- <property name="maximumSize">
- <size>
- <width>90</width>
- <height>16777215</height>
- </size>
- </property>
- <property name="text">
- <string>0.136</string>
- </property>
- <property name="alignment">
- <set>Qt::AlignCenter</set>
- </property>
- </widget>
- </item>
- <item row="3" column="2">
- <widget class="QLineEdit" name="f3">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Fixed" vsizetype="Fixed">
- <horstretch>0</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="minimumSize">
- <size>
- <width>90</width>
- <height>27</height>
- </size>
- </property>
- <property name="maximumSize">
- <size>
- <width>90</width>
- <height>16777215</height>
- </size>
- </property>
- <property name="text">
- <string>1.838</string>
- </property>
- <property name="alignment">
- <set>Qt::AlignCenter</set>
- </property>
- </widget>
- </item>
- <item row="5" column="2">
- <widget class="QLineEdit" name="f5">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Fixed" vsizetype="Fixed">
- <horstretch>0</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="minimumSize">
- <size>
- <width>90</width>
- <height>27</height>
- </size>
- </property>
- <property name="maximumSize">
- <size>
- <width>90</width>
- <height>16777215</height>
- </size>
- </property>
- <property name="text">
- <string>5.2872</string>
- </property>
- <property name="alignment">
- <set>Qt::AlignCenter</set>
- </property>
- </widget>
- </item>
- <item row="4" column="2">
- <widget class="QLineEdit" name="f4">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Fixed" vsizetype="Fixed">
- <horstretch>0</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="minimumSize">
- <size>
- <width>90</width>
- <height>27</height>
- </size>
- </property>
- <property name="maximumSize">
- <size>
- <width>90</width>
- <height>16777215</height>
- </size>
- </property>
- <property name="text">
- <string>3.578</string>
- </property>
- <property name="alignment">
- <set>Qt::AlignCenter</set>
- </property>
- </widget>
- </item>
- <item row="4" column="3">
- <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 row="7" column="2">
- <widget class="QLineEdit" name="f7">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Fixed" vsizetype="Fixed">
- <horstretch>0</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="minimumSize">
- <size>
- <width>90</width>
- <height>27</height>
- </size>
- </property>
- <property name="maximumSize">
- <size>
- <width>90</width>
- <height>16777215</height>
- </size>
- </property>
- <property name="text">
- <string>10.130</string>
- </property>
- <property name="alignment">
- <set>Qt::AlignCenter</set>
- </property>
- </widget>
- </item>
- <item row="6" column="2">
- <widget class="QLineEdit" name="f6">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Fixed" vsizetype="Fixed">
- <horstretch>0</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="minimumSize">
- <size>
- <width>90</width>
- <height>27</height>
- </size>
- </property>
- <property name="maximumSize">
- <size>
- <width>90</width>
- <height>16777215</height>
- </size>
- </property>
- <property name="text">
- <string>7.078</string>
- </property>
- <property name="alignment">
- <set>Qt::AlignCenter</set>
- </property>
- </widget>
- </item>
- <item row="8" column="2">
- <widget class="QLineEdit" name="f8">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Fixed" vsizetype="Fixed">
- <horstretch>0</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="minimumSize">
- <size>
- <width>90</width>
- <height>27</height>
- </size>
- </property>
- <property name="maximumSize">
- <size>
- <width>90</width>
- <height>16777215</height>
- </size>
- </property>
- <property name="text">
- <string>14.078</string>
- </property>
- <property name="alignment">
- <set>Qt::AlignCenter</set>
- </property>
- </widget>
- </item>
- <item row="4" column="0">
- <spacer name="horizontalSpacer_10">
- <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="4" column="6">
- <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>
- </layout>
- </item>
- <item>
- <spacer name="verticalSpacer_4">
- <property name="orientation">
- <enum>Qt::Vertical</enum>
- </property>
- <property name="sizeHint" stdset="0">
- <size>
- <width>20</width>
- <height>40</height>
- </size>
- </property>
- </spacer>
- </item>
- </layout>
- </widget>
- </widget>
- </item>
- <item>
- <widget class="QDialogButtonBox" name="buttonBox">
- <property name="maximumSize">
- <size>
- <width>469</width>
- <height>16777215</height>
- </size>
- </property>
- <property name="orientation">
- <enum>Qt::Horizontal</enum>
- </property>
- <property name="standardButtons">
- <set>QDialogButtonBox::Cancel|QDialogButtonBox::Ok</set>
- </property>
- </widget>
- </item>
- </layout>
- </widget>
- <tabstops>
- <tabstop>myCallEntry</tabstop>
- <tabstop>myGridEntry</tabstop>
- <tabstop>pttMethodComboBox</tabstop>
- <tabstop>pttComboBox</tabstop>
- <tabstop>cbPSKReporter</tabstop>
- <tabstop>cbID73</tabstop>
- <tabstop>idIntSpinBox</tabstop>
- <tabstop>pskReporterAntenna</tabstop>
- <tabstop>cbEnableCAT</tabstop>
- <tabstop>rigComboBox</tabstop>
- <tabstop>catPortComboBox</tabstop>
- <tabstop>dataBitsComboBox</tabstop>
- <tabstop>serialRateComboBox</tabstop>
- <tabstop>stopBitsComboBox</tabstop>
- <tabstop>handshakeComboBox</tabstop>
- <tabstop>testCATButton</tabstop>
- <tabstop>testPTTButton</tabstop>
- <tabstop>pollSpinBox</tabstop>
- <tabstop>comboBoxSndIn</tabstop>
- <tabstop>comboBoxSndOut</tabstop>
- <tabstop>saveDirEntry</tabstop>
- <tabstop>macro1</tabstop>
- <tabstop>macro2</tabstop>
- <tabstop>macro3</tabstop>
- <tabstop>macro4</tabstop>
- <tabstop>macro5</tabstop>
- <tabstop>macro6</tabstop>
- <tabstop>macro7</tabstop>
- <tabstop>macro8</tabstop>
- <tabstop>macro9</tabstop>
- <tabstop>macro10</tabstop>
- <tabstop>f1</tabstop>
- <tabstop>f2</tabstop>
- <tabstop>f3</tabstop>
- <tabstop>f4</tabstop>
- <tabstop>f5</tabstop>
- <tabstop>f6</tabstop>
- <tabstop>f7</tabstop>
- <tabstop>f8</tabstop>
- <tabstop>f9</tabstop>
- <tabstop>f10</tabstop>
- <tabstop>f11</tabstop>
- <tabstop>f12</tabstop>
- <tabstop>f13</tabstop>
- <tabstop>f14</tabstop>
- <tabstop>f15</tabstop>
- <tabstop>f16</tabstop>
- <tabstop>buttonBox</tabstop>
- <tabstop>ioTabWidget</tabstop>
- </tabstops>
- <resources/>
- <connections>
- <connection>
- <sender>buttonBox</sender>
- <signal>accepted()</signal>
- <receiver>DialogSndCard</receiver>
- <slot>accept()</slot>
- <hints>
- <hint type="sourcelabel">
- <x>248</x>
- <y>254</y>
- </hint>
- <hint type="destinationlabel">
- <x>157</x>
- <y>274</y>
- </hint>
- </hints>
- </connection>
- <connection>
- <sender>buttonBox</sender>
- <signal>rejected()</signal>
- <receiver>DialogSndCard</receiver>
- <slot>reject()</slot>
- <hints>
- <hint type="sourcelabel">
- <x>316</x>
- <y>260</y>
- </hint>
- <hint type="destinationlabel">
- <x>286</x>
- <y>274</y>
- </hint>
- </hints>
- </connection>
- </connections>
-</ui>
diff --git a/displaytext.cpp b/displaytext.cpp
deleted file mode 100644
index 0b8181e..0000000
--- a/displaytext.cpp
+++ /dev/null
@@ -1,16 +0,0 @@
-#include "displaytext.h"
-#include <QDebug>
-#include <QMouseEvent>
-
-DisplayText::DisplayText(QWidget *parent) :
- QTextBrowser(parent)
-{
-}
-
-void DisplayText::mouseDoubleClickEvent(QMouseEvent *e)
-{
- bool ctrl = (e->modifiers() & Qt::ControlModifier);
- bool shift = (e->modifiers() & Qt::ShiftModifier);
- emit(selectCallsign(shift,ctrl));
- QTextBrowser::mouseDoubleClickEvent(e);
-}
diff --git a/displaytext.h b/displaytext.h
deleted file mode 100644
index c07f00e..0000000
--- a/displaytext.h
+++ /dev/null
@@ -1,22 +0,0 @@
-#ifndef DISPLAYTEXT_H
-#define DISPLAYTEXT_H
-
-#include <QTextBrowser>
-
-class DisplayText : public QTextBrowser
-{
- Q_OBJECT
-public:
- explicit DisplayText(QWidget *parent = 0);
-
-signals:
- void selectCallsign(bool shift, bool ctrl);
-
-public slots:
-
-protected:
- void mouseDoubleClickEvent(QMouseEvent *e);
-
-};
-
-#endif // DISPLAYTEXT_H
diff --git a/ffft.f b/ffft.f
deleted file mode 100644
index 9c3c091..0000000
--- a/ffft.f
+++ /dev/null
@@ -1,69 +0,0 @@
- subroutine ffft(d,npts,isign,ireal)
-
-C Fourier transform of length npts=2**k, performed in place.
-C Input data in array d, treated as complex if ireal=0, and as real if ireal=1.
-C In either case the transform values are returned in array d, treated as
-C complex. The DC term is d(1), and d(npts/2+1) is the term at the Nyquist
-C frequency. The basic algorithm is the same as Norm Brenner's FOUR1, and
-C uses radix-2 transforms.
-
-C J. H. Taylor, Princeton University.
-
- complex d(npts),t,w,wstep,tt,uu
- data pi/3.14159265359/
-
-C Shuffle the data to bit-reversed order.
-
- imax=npts/(ireal+1)
- irev=1
- do 5 i=1,imax
- if(i.ge.irev) go to 2
- t=d(i)
- d(i)=d(irev)
- d(irev)=t
-2 mmax=imax/2
-3 if(irev.le.mmax) go to 5
- irev=irev-mmax
- mmax=mmax/2
- if(mmax.ge.1) go to 3
-5 irev=irev+mmax
-
-C The radix-2 transform begins here.
-
- api=isign*pi/2.
- mmax=1
-6 istep=2*mmax
- wstep=cmplx(-2.*sin(api/mmax)**2,sin(2.*api/mmax))
- w=1.
- do 9 m=1,mmax
-
-C This in the inner-most loop -- optimization here is important!
- do 8 i=m,imax,istep
- t=w*d(i+mmax)
- d(i+mmax)=d(i)-t
-8 d(i)=d(i)+t
-
-9 w=w*(1.+wstep)
- mmax=istep
- if(mmax.lt.imax) go to 6
-
- if(ireal.eq.0) return
-
-C Now complete the last stage of a doubled-up real transform.
-
- jmax=imax/2 + 1
- wstep=cmplx(-2.*sin(isign*pi/npts)**2,sin(isign*pi/imax))
- w=1.0
- d(imax+1)=d(1)
-
- do 10 j=1,jmax
- uu=cmplx(real(d(j))+real(d(2+imax-j)),aimag(d(j)) -
- + aimag(d(2+imax-j)))
- tt=w*cmplx(aimag(d(j))+aimag(d(2+imax-j)),-real(d(j)) +
- + real(d(2+imax-j)))
- d(j)=uu+tt
- d(2+imax-j)=conjg(uu-tt)
-10 w=w*(1.+wstep)
-
- return
- end
diff --git a/fftw3.f b/fftw3.f
deleted file mode 100644
index 3410184..0000000
--- a/fftw3.f
+++ /dev/null
@@ -1,64 +0,0 @@
- INTEGER FFTW_R2HC
- PARAMETER (FFTW_R2HC=0)
- INTEGER FFTW_HC2R
- PARAMETER (FFTW_HC2R=1)
- INTEGER FFTW_DHT
- PARAMETER (FFTW_DHT=2)
- INTEGER FFTW_REDFT00
- PARAMETER (FFTW_REDFT00=3)
- INTEGER FFTW_REDFT01
- PARAMETER (FFTW_REDFT01=4)
- INTEGER FFTW_REDFT10
- PARAMETER (FFTW_REDFT10=5)
- INTEGER FFTW_REDFT11
- PARAMETER (FFTW_REDFT11=6)
- INTEGER FFTW_RODFT00
- PARAMETER (FFTW_RODFT00=7)
- INTEGER FFTW_RODFT01
- PARAMETER (FFTW_RODFT01=8)
- INTEGER FFTW_RODFT10
- PARAMETER (FFTW_RODFT10=9)
- INTEGER FFTW_RODFT11
- PARAMETER (FFTW_RODFT11=10)
- INTEGER FFTW_FORWARD
- PARAMETER (FFTW_FORWARD=-1)
- INTEGER FFTW_BACKWARD
- PARAMETER (FFTW_BACKWARD=+1)
- INTEGER FFTW_MEASURE
- PARAMETER (FFTW_MEASURE=0)
- INTEGER FFTW_DESTROY_INPUT
- PARAMETER (FFTW_DESTROY_INPUT=1)
- INTEGER FFTW_UNALIGNED
- PARAMETER (FFTW_UNALIGNED=2)
- INTEGER FFTW_CONSERVE_MEMORY
- PARAMETER (FFTW_CONSERVE_MEMORY=4)
- INTEGER FFTW_EXHAUSTIVE
- PARAMETER (FFTW_EXHAUSTIVE=8)
- INTEGER FFTW_PRESERVE_INPUT
- PARAMETER (FFTW_PRESERVE_INPUT=16)
- INTEGER FFTW_PATIENT
- PARAMETER (FFTW_PATIENT=32)
- INTEGER FFTW_ESTIMATE
- PARAMETER (FFTW_ESTIMATE=64)
- INTEGER FFTW_ESTIMATE_PATIENT
- PARAMETER (FFTW_ESTIMATE_PATIENT=128)
- INTEGER FFTW_BELIEVE_PCOST
- PARAMETER (FFTW_BELIEVE_PCOST=256)
- INTEGER FFTW_DFT_R2HC_ICKY
- PARAMETER (FFTW_DFT_R2HC_ICKY=512)
- INTEGER FFTW_NONTHREADED_ICKY
- PARAMETER (FFTW_NONTHREADED_ICKY=1024)
- INTEGER FFTW_NO_BUFFERING
- PARAMETER (FFTW_NO_BUFFERING=2048)
- INTEGER FFTW_NO_INDIRECT_OP
- PARAMETER (FFTW_NO_INDIRECT_OP=4096)
- INTEGER FFTW_ALLOW_LARGE_GENERIC
- PARAMETER (FFTW_ALLOW_LARGE_GENERIC=8192)
- INTEGER FFTW_NO_RANK_SPLITS
- PARAMETER (FFTW_NO_RANK_SPLITS=16384)
- INTEGER FFTW_NO_VRANK_SPLITS
- PARAMETER (FFTW_NO_VRANK_SPLITS=32768)
- INTEGER FFTW_NO_VRECURSE
- PARAMETER (FFTW_NO_VRECURSE=65536)
- INTEGER FFTW_NO_SIMD
- PARAMETER (FFTW_NO_SIMD=131072)
diff --git a/getdev.cpp b/getdev.cpp
deleted file mode 100644
index 751c87f..0000000
--- a/getdev.cpp
+++ /dev/null
@@ -1,259 +0,0 @@
-#include <stdio.h>
-#define MAXDEVICES 100
-#include <string.h>
-#include <portaudio.h>
-#include <QDebug>
-
-//------------------------------------------------------- pa_get_device_info
-int pa_get_device_info (int n,
- void *pa_device_name,
- void *pa_device_hostapi,
- double *pa_device_max_speed,
- double *pa_device_min_speed,
- int *pa_device_max_bytes,
- int *pa_device_min_bytes,
- int *pa_device_max_channels,
- int *pa_device_min_channels )
-{
-
- (void) n ;
- (void) pa_device_name;
- (void) pa_device_hostapi;
- (void) pa_device_max_speed;
- (void) pa_device_min_speed;
- (void) pa_device_max_bytes;
- (void) pa_device_min_bytes;
- (void) pa_device_max_channels;
- (void) pa_device_min_channels;
- const PaDeviceInfo *deviceInfo;
- PaError pa_err;
- PaStreamParameters inputParameters;
- int i,j, speed_warning;
- int minBytes, maxBytes;
- double maxStandardSampleRate;
- double minStandardSampleRate;
- int minInputChannels;
- int maxInputChannels;
-
-// negative terminated list
- static double standardSampleRates[] = {8000.0, 9600.0,
- 11025.0, 12000.0, 16000.0, 22050.0, 24000.0, 32000.0,
- 44100.0, 48000.0, 88200.0, 96000.0, 192000.0, -1};
-// *******************************************************
-
-
- *pa_device_max_speed=0;
- *pa_device_min_speed=0;
- *pa_device_max_bytes=0;
- *pa_device_min_bytes=0;
- *pa_device_max_channels=0;
- *pa_device_min_channels=0;
- minInputChannels=0;
- if(n >= Pa_GetDeviceCount() ) return -1;
- deviceInfo = Pa_GetDeviceInfo(n);
- if (deviceInfo->maxInputChannels==0) return -1;
- sprintf((char*)(pa_device_name),"%s",deviceInfo->name);
- sprintf((char*)(pa_device_hostapi),"%s",
- Pa_GetHostApiInfo( deviceInfo->hostApi )->name);
- speed_warning=0;
-
-// bypass bug in Juli@ ASIO driver:
-// this driver hangs after a Pa_IsFormatSupported call
- i = strncmp(deviceInfo->name, "ASIO 2.0 - ESI Juli@", 19);
- if (i == 0) {
- minStandardSampleRate=44100;
- maxStandardSampleRate=192000;
- minBytes=1;
- maxBytes=4;
- maxInputChannels= deviceInfo->maxInputChannels;
- minInputChannels= 1;
- goto end_pa_get_device_info;
- }
-
-// Investigate device capabilities.
-// Check min and max samplerates with 16 bit data.
- maxStandardSampleRate=0;
- minStandardSampleRate=0;
- inputParameters.device = n;
- inputParameters.channelCount = deviceInfo->maxInputChannels;
- inputParameters.sampleFormat = paInt16;
- inputParameters.suggestedLatency = 0;
- inputParameters.hostApiSpecificStreamInfo = NULL;
-
-// ************************************************************************
-//filter for portaudio Windows hostapi's with non experts.
-//only allow ASIO or WASAPI or WDM-KS
- i = strncmp(Pa_GetHostApiInfo(deviceInfo->hostApi)->name, "ASIO", 4);
- if (i==0 ) goto end_filter_hostapi;
- i = strncmp(Pa_GetHostApiInfo(deviceInfo->hostApi)->name,
- "Windows WASAPI", 14);
- if (i==0 ) goto end_filter_hostapi;
- i = strncmp(Pa_GetHostApiInfo(deviceInfo->hostApi)->name,
- "Windows WDM-KS", 14);
- if (i==0 ) goto end_filter_hostapi;
- speed_warning=1;
-end_filter_hostapi:;
-
-// ************************************************************************
- i=0;
- while(standardSampleRates[i] > 0 && minStandardSampleRate==0) {
- pa_err=Pa_IsFormatSupported(&inputParameters, NULL,
- standardSampleRates[i] );
- if(pa_err == paDeviceUnavailable) return -1;
- if(pa_err == paInvalidDevice) return -1;
- if(pa_err == paFormatIsSupported ) {
- minStandardSampleRate=standardSampleRates[i];
- }
- i++;
- }
- if(minStandardSampleRate == 0) return -1;
- j=i;
- while(standardSampleRates[i] > 0 ) i++;
- i--;
-
- while(i >= j && maxStandardSampleRate==0) {
- pa_err=Pa_IsFormatSupported(&inputParameters, NULL,
- standardSampleRates[i] );
- if(pa_err == paDeviceUnavailable) return -1;
- if(pa_err == paInvalidDevice) return -1;
- if( pa_err == paFormatIsSupported ) {
- maxStandardSampleRate=standardSampleRates[i];
- }
- i--;
- }
-
-// check if min SampleRate = max SampleRate
- if(maxStandardSampleRate==0 && (minStandardSampleRate != 0)) {
- maxStandardSampleRate= minStandardSampleRate;
- }
-
-// check min and max bytes
- minBytes=2;
- maxBytes=2;
- inputParameters.sampleFormat = paUInt8;
- pa_err=Pa_IsFormatSupported(&inputParameters, NULL,
- maxStandardSampleRate );
- if( pa_err == paFormatIsSupported ) {
- minBytes=1;
- }
- inputParameters.sampleFormat = paInt32;
- pa_err=Pa_IsFormatSupported(&inputParameters, NULL,
- maxStandardSampleRate );
- if( pa_err == paFormatIsSupported ) {
- maxBytes=4;
- }
-
-// check min channel count
- maxInputChannels= deviceInfo->maxInputChannels;
- inputParameters.channelCount = 1;
- inputParameters.sampleFormat = paInt16;
- pa_err=paFormatIsSupported+32000;
- while(pa_err != paFormatIsSupported &&
- ( inputParameters.channelCount < (maxInputChannels+1)) ) {
- pa_err=Pa_IsFormatSupported(&inputParameters, NULL,
- maxStandardSampleRate );
- inputParameters.channelCount++;
- }
- if( pa_err == paFormatIsSupported ) {
- minInputChannels=inputParameters.channelCount-1;
- } else {
- return -1;
- }
-
-end_pa_get_device_info:;
-
- *pa_device_max_speed=maxStandardSampleRate;
- *pa_device_min_speed=minStandardSampleRate;
- *pa_device_max_bytes=maxBytes;
- *pa_device_min_bytes=minBytes;
- *pa_device_max_channels= maxInputChannels;
- *pa_device_min_channels= minInputChannels;
-
- return speed_warning;
-}
-
-
-void paInputDevice(int id, char* hostAPI_DeviceName, int* minChan,
- int* maxChan, int* minSpeed, int* maxSpeed)
-{
- int i;
- char pa_device_name[128];
- char pa_device_hostapi[128];
- double pa_device_max_speed;
- double pa_device_min_speed;
- int pa_device_max_bytes;
- int pa_device_min_bytes;
- int pa_device_max_channels;
- int pa_device_min_channels;
- char p2[50];
- char *p,*p1;
- static int iret, valid_dev_cnt;
-
- iret=pa_get_device_info (id,
- &pa_device_name,
- &pa_device_hostapi,
- &pa_device_max_speed,
- &pa_device_min_speed,
- &pa_device_max_bytes,
- &pa_device_min_bytes,
- &pa_device_max_channels,
- &pa_device_min_channels);
-
- if (iret >= 0 ) {
- valid_dev_cnt++;
-
- p1=(char*)"";
- p=strstr(pa_device_hostapi,"MME");
- if(p!=NULL) p1=(char*)"MME";
- p=strstr(pa_device_hostapi,"Direct");
- if(p!=NULL) p1=(char*)"DirectX";
- p=strstr(pa_device_hostapi,"WASAPI");
- if(p!=NULL) p1=(char*)"WASAPI";
- p=strstr(pa_device_hostapi,"ASIO");
- if(p!=NULL) p1=(char*)"ASIO";
- p=strstr(pa_device_hostapi,"WDM-KS");
- if(p!=NULL) p1=(char*)"WDM-KS";
-
- sprintf(p2,"%-8s %-39s",p1,pa_device_name);
- for(i=0; i<50; i++) {
- hostAPI_DeviceName[i]=p2[i];
- if(p2[i]==0) break;
- }
- *minChan=pa_device_min_channels;
- *maxChan=pa_device_max_channels;
- *minSpeed=(int)pa_device_min_speed;
- *maxSpeed=(int)pa_device_max_speed;
- } else {
- for(i=0; i<50; i++) {
- hostAPI_DeviceName[i]=0;
- }
- *minChan=0;
- *maxChan=0;
- *minSpeed=0;
- *maxSpeed=0;
- }
-}
-
-void getDev(int* numDevices0, char hostAPI_DeviceName[][50],
- int minChan[], int maxChan[],
- int minSpeed[], int maxSpeed[])
-{
- int i,id,numDevices;
- int minch,maxch,minsp,maxsp;
- char apidev[256];
-
- numDevices=Pa_GetDeviceCount();
- *numDevices0=numDevices;
-
- for(id=0; id<numDevices; id++) {
- paInputDevice(id,apidev,&minch,&maxch,&minsp,&maxsp);
- for(i=0; i<50; i++) {
- hostAPI_DeviceName[id][i]=apidev[i];
- }
- hostAPI_DeviceName[id][49]=0;
- minChan[id]=minch;
- maxChan[id]=maxch;
- minSpeed[id]=minsp;
- maxSpeed[id]=maxsp;
- }
-}
diff --git a/getfile.cpp b/getfile.cpp
deleted file mode 100644
index ecc7bbb..0000000
--- a/getfile.cpp
+++ /dev/null
@@ -1,199 +0,0 @@
-#include "getfile.h"
-#include <QDir>
-#include <stdlib.h>
-#include <math.h>
-
-#ifdef WIN32
-#include <windows.h>
-#else
-#include <sys/types.h>
-#include <sys/stat.h>
-#include <termios.h>
-#include <fcntl.h>
-#include <sys/ioctl.h>
-#include <stdio.h>
-#include <unistd.h>
-#include <err.h>
-#endif
-
-void getfile(QString fname, int ntrperiod)
-{
-
- char name[80];
- strcpy(name,fname.toLatin1());
- FILE* fp=fopen(name,"rb");
-
- int i0=fname.indexOf(".wav");
- jt9com_.nutc=0;
- if(i0>0) jt9com_.nutc=100*fname.mid(i0-4,2).toInt() +
- fname.mid(i0-2,2).toInt();
- int npts=ntrperiod*12000;
- memset(jt9com_.d2,0,2*npts);
-
- if(fp != NULL) {
-// Read (and ignore) a 44-byte WAV header; then read data
- int n=fread(jt9com_.d2,1,44,fp);
- n=fread(jt9com_.d2,2,npts,fp);
- fclose(fp);
- jt9com_.newdat=1;
- if(n==-99999) jt9com_.newdat=2; //Silence compiler warning
- }
-}
-
-void savewav(QString fname, int ntrperiod)
-{
- struct {
- char ariff[4]; //ChunkID: "RIFF"
- int nchunk; //ChunkSize: 36+SubChunk2Size
- char awave[4]; //Format: "WAVE"
- char afmt[4]; //Subchunk1ID: "fmt "
- int lenfmt; //Subchunk1Size: 16
- short int nfmt2; //AudioFormat: 1
- short int nchan2; //NumChannels: 1
- int nsamrate; //SampleRate: 12000
- int nbytesec; //ByteRate: SampleRate*NumChannels*BitsPerSample/8
- short int nbytesam2; //BlockAlign: NumChannels*BitsPerSample/8
- short int nbitsam2; //BitsPerSample: 16
- char adata[4]; //Subchunk2ID: "data"
- int ndata; //Subchunk2Size: numSamples*NumChannels*BitsPerSample/8
- } hdr;
-
- int npts=ntrperiod*12000;
-// qint16* buf=(qint16*)malloc(2*npts);
- char name[80];
- strcpy(name,fname.toLatin1());
- FILE* fp=fopen(name,"wb");
-
- if(fp != NULL) {
-// Write a WAV header
- hdr.ariff[0]='R';
- hdr.ariff[1]='I';
- hdr.ariff[2]='F';
- hdr.ariff[3]='F';
- hdr.nchunk=36 + 2*npts;
- hdr.awave[0]='W';
- hdr.awave[1]='A';
- hdr.awave[2]='V';
- hdr.awave[3]='E';
- hdr.afmt[0]='f';
- hdr.afmt[1]='m';
- hdr.afmt[2]='t';
- hdr.afmt[3]=' ';
- hdr.lenfmt=16;
- hdr.nfmt2=1;
- hdr.nchan2=1;
- hdr.nsamrate=12000;
- hdr.nbytesec=2*12000;
- hdr.nbytesam2=2;
- hdr.nbitsam2=16;
- hdr.adata[0]='d';
- hdr.adata[1]='a';
- hdr.adata[2]='t';
- hdr.adata[3]='a';
- hdr.ndata=2*npts;
-
- fwrite(&hdr,sizeof(hdr),1,fp);
-// memcpy(jt9com_.d2,buf,2*npts);
-// fwrite(buf,2,npts,fp);
- fwrite(jt9com_.d2,2,npts,fp);
- fclose(fp);
- }
-// free(buf);
-}
-
-//#define MAX_RANDOM 0x7fffffff
-
-/* Generate gaussian random float with mean=0 and std_dev=1 */
-float gran()
-{
- float fac,rsq,v1,v2;
- static float gset;
- static int iset;
-
- if(iset){
- /* Already got one */
- iset = 0;
- return gset;
- }
- /* Generate two evenly distributed numbers between -1 and +1
- * that are inside the unit circle
- */
- do {
- v1 = 2.0 * (float)rand() / RAND_MAX - 1;
- v2 = 2.0 * (float)rand() / RAND_MAX - 1;
- rsq = v1*v1 + v2*v2;
- } while(rsq >= 1.0 || rsq == 0.0);
- fac = sqrt(-2.0*log(rsq)/rsq);
- gset = v1*fac;
- iset++;
- return v2*fac;
-}
-
-int ptt(int nport, int ntx, int* iptt, int* nopen)
-{
-#ifdef WIN32
- static HANDLE hFile;
- char s[10];
- int i3=1,i4=1,i5=1,i6=1,i9=1,i00=1; //Defs to silence compiler warning
-
- if(nport==0) {
- *iptt=ntx;
- return 0;
- }
-
- if(ntx && (!(*nopen))) {
- sprintf(s,"\\\\.\\COM%d",nport);
- hFile=CreateFile(TEXT(s),GENERIC_WRITE,0,NULL,OPEN_EXISTING,
- FILE_ATTRIBUTE_NORMAL,NULL);
- if(hFile==INVALID_HANDLE_VALUE) {
- QString t;
- t.sprintf("Cannot open COM port %d for PTT\n",nport);
- return 1;
- }
- *nopen=1;
- }
-
- if(ntx && *nopen) {
- i3=EscapeCommFunction(hFile,SETRTS);
- i5=EscapeCommFunction(hFile,SETDTR);
- *iptt=1;
- }
-
- else {
- i4=EscapeCommFunction(hFile,CLRRTS);
- i6=EscapeCommFunction(hFile,CLRDTR);
- i9=EscapeCommFunction(hFile,CLRBREAK);
- i00=CloseHandle(hFile);
- *iptt=0;
- *nopen=0;
- }
- if((i3+i4+i5+i6+i9+i00)==-999) return 1; //Silence compiler warning
- return 0;
-#else
- int control=TIOCM_RTS | TIOCM_DTR;
-// int control = TIOCM_RTS;
- static int fd;
-
- if(*nopen==0) {
- fd=open("/dev/ttyUSB0",O_RDWR | O_NONBLOCK);
- if(fd<0) {
- return -1;
- }
- *nopen=1;
- }
-
- if(ntx) {
- ioctl(fd, TIOCMBIS, &control);
- *iptt=1;
- *nopen=1;
- } else {
- ioctl(fd, TIOCMBIC, &control);
- close(fd);
- *iptt=0;
- *nopen=0;
- }
- return 0;
-#endif
- if((nport+ntx+(*iptt)==-99999)) *nopen=0; //Silence compiler warning
- return 0;
-}
diff --git a/getfile.h b/getfile.h
deleted file mode 100644
index 2e255d1..0000000
--- a/getfile.h
+++ /dev/null
@@ -1,18 +0,0 @@
-#ifndef GETFILE_H
-#define GETFILE_H
-#include <QString>
-#include <QFile>
-#include <QDebug>
-#include "commons.h"
-
-void getfile(QString fname, int ntrperiod);
-float gran();
-//int ptt(int* nport, int* ntx, int* iptt);
-int ptt(int nport, int ntx, int* iptt, int* nopen);
-
-extern "C" {
-int ptt_(int nport, int ntx, int* iptt, int* nopen);
-}
-
-
-#endif // GETFILE_H
diff --git a/in.dat b/in.dat
deleted file mode 100644
index 5294129..0000000
--- a/in.dat
+++ /dev/null
@@ -1,16 +0,0 @@
- 35 36 22 8 31 11 14 55 20 36 55 13 24 15 56 38 16 28 61 58
- 15 26 45 8 41 53 37 57 59 60 29 29 41 46 44 35 52 61 24 26
- 16 20 53 35 2 6 9 27 47 28 57 6 15 9 16 10 56 9 63 46
- 9 15 3
- 74 61 44 233 29 245 254 64 119 64 250 111 38 145 53 29 140 194 119 99
- 55 86 48 110 142 95 48 120 61 66 252 252 245 88 62 41 124 249 246 68
- 250 249 65 64 140 142 88 190 237 90 240 52 79 216 55 31 112 135 66 44
- 99 57 68
- 54 61 26 5 13 60 3 56 30 58 57 4 16 43 28 43 6 61 13 19
- 56 8 4 9 45 32 9 7 14 52 4 38 40 27 3 26 51 54 40 29
- 36 63 34 43 3 48 36 49 46 30 8 20 40 59 29 28 17 11 8 19
- 11 63 5
- 38 25 35 8 28 0 0 60 60 25 0 31 28 52 14 24 9 30 18 54
- 49 55 48 15 27 54 26 22 30 27 1 1 4 31 35 29 23 2 2 27
- 0 1 25 32 21 84 28 19 5 60 2 27 15 9 39 23 42 12 29 17
- 16 50 49
diff --git a/jt9.txt b/jt9.txt
deleted file mode 100644
index ddbd86b..0000000
--- a/jt9.txt
+++ /dev/null
@@ -1,65 +0,0 @@
-JT9 is a mode designed for amateur QSOs at MF and LF. The mode uses
-the same 72-bit structured messages as JT65. Error control coding
-(ECC) uses a strong convolutional code with constraint length K=32,
-rate r=1/2, and a zero tail, leading to an encoded message length of
-(72+31)*2 = 206 information-carrying bits. Modulation is 9-FSK: 8
-tones for data, one for synchronization. Sixteen symbol intervals are
-used for synchronization, so a transmission requires a total of 207/3
-+ 16 = 85 channel symbols. Symbol durations tsym are approximately
-(TRperiod-8)/85, where TRperiod is the T/R sequence length in seconds.
-Exact symbol lengths are chosen so that nsps, the number of samples
-per symbol (at 12000 samples per second) is a number with no prime
-factor greater than 7. This choice makes for efficient FFTs. Tone
-spacing of the 9-FSK modulation is df=1/tsym=12000/nsps, equal to the
-keying rate. The total occupied bandwidth is 9*df. The generated
-signal has continuous phase, and there are no key clicks.
-
-Parameters of five JT9 sub-modes are summarized in the following
-table, along with S/N thresholds measured by simulation on an AWGN
-channel. Numbers following "JT9-" in the sub-mode names specify the
-T/R sequence length in minutes.
-
---------------------------------------------------------------------------
-Mode nsps nsps2 df tsym BW S/N* Tdec Tfree Factors
- 12000 1500 (Hz) (s) (Hz) (dB) (s) (s) of nsps nfft3
---------------------------------------------------------------------------
-JT9-1 6912 864 1.736 0.58 15.6 -26.9 52.5 7.5 2^8 3^3 2048
-JT9-2 15360 1920 0.781 1.28 7.0 -30.2 112.3 7.7 2^10 3 5 2048
-JT9-5 40960 5120 0.293 3.41 2.6 -34.4 293.6 6.4 2^13 5 6144
-JT9-10 82944 10368 0.145 6.91 1.3 -37.5 591.0 9.0 2^10 3^4 12288
-JT9-30 252000 31500 0.048 21.00 0.4 -42.3 1788.5 11.5 2^5 3^2 5^3 7 32768
---------------------------------------------------------------------------
-* Noise power measured in a 2500 Hz bandwidth.
-NB: nfft3 might be doubled and used with a sin^2 window.
-
-Transmitting
-------------
-1. Source encode the structured message to 72 bits
-2. Apply convolutional ECC (K=32, r=1/2) to yield (72+31)*2 = 206 bits
-3. Interleave to scramble the bit order
-4. Assemble 3-bit groups to make (206+1)/3 = 69 symbols
-5. Gray-code the symbol values
-6. Insert 16 sync symbols ==> 69+16=85 channel symbols, values 0-8
-
-
-Receiving
----------
-1. Apply noise blanking with the timf2 method
-2. Filter to 1000 Hz bandwidth and downsample (1/8) to 1500 Hz, saving
- complex data to array c0(2,700,000).
-3. Compute spectra at half-symbol steps. Use for waterfall display
- s(22000) and save in ss(184,22000) and savg(22000) for detecting
- sync vectors.
-4. At time Tdec, find sync vectors in ss(); get approx DF or list of DFs
-5. Do full-length FFT, NFFT1=96*nsps2, zero-padded as required.
-6. For each candidate signal, do inverse FFT of length 1536 (or 3072?).
- This yields 16 complex samples per symbol; sync tone should be
- close to zero frequency.
-7. Use afc65b method to get improved values of DF, DT.
-8. Tweak freq and time offset to 0.
-9. Compute 8-bin spectra of 69 data symbols: ssym(0:7,69). Re-order the
- bins to remove Gray code.
-10. Compute soft symbols for 206 bits (bit 207 is always 0).
-11. Remove interleaving
-12. Pack bits into bytes, send to Fano decoder
-13. If Fano succeeds, remove source encoding and display user message.
diff --git a/killbyname.cpp b/killbyname.cpp
deleted file mode 100644
index 240ad5a..0000000
--- a/killbyname.cpp
+++ /dev/null
@@ -1,284 +0,0 @@
-#include <windows.h>
-#include <tlhelp32.h>
-#include <iostream>
-
-int killbyname(const char *szToTerminate)
-// Created: 6/23/2000 (Ravi Kochhar)
-// Last modified: 3/10/2002 (RK)
-// Please report any problems or bugs to kochhar at physiology.wisc.edu
-// The latest version of this routine can be found at:
-// http://www.neurophys.wisc.edu/ravi/software/killproc/
-// Terminate the process "szToTerminate" if it is currently running
-// This works for Win/95/98/ME and also Win/NT/2000/XP
-// The process name is case-insensitive, i.e. "notepad.exe" and "NOTEPAD.EXE"
-// will both work (for szToTerminate)
-// Return codes are as follows:
-// 0 = Process was successfully terminated
-// 602 = Unable to terminate process for some other reason
-// 603 = Process was not currently running
-// 604 = No permission to terminate process
-// 605 = Unable to load PSAPI.DLL
-// 606 = Unable to identify system type
-// 607 = Unsupported OS
-// 632 = Invalid process name
-// 700 = Unable to get procedure address from PSAPI.DLL
-// 701 = Unable to get process list, EnumProcesses failed
-// 702 = Unable to load KERNEL32.DLL
-// 703 = Unable to get procedure address from KERNEL32.DLL
-// 704 = CreateToolhelp32Snapshot failed
-
-{
- BOOL bResult,bResultm;
- DWORD aiPID[1000],iCb=1000,iNumProc; //,iV2000=0;
- DWORD iCbneeded,i,iFound=0;
- char szName[MAX_PATH],szToTermUpper[MAX_PATH];
- HANDLE hProc,hSnapShot,hSnapShotm;
- OSVERSIONINFO osvi;
- HINSTANCE hInstLib;
-// int iLen,iLenP,indx;
- int iLenP,indx;
- HMODULE hMod;
- PROCESSENTRY32 procentry;
- MODULEENTRY32 modentry;
-
- // Transfer Process name into "szToTermUpper" and convert to upper case
- iLenP=strlen(szToTerminate);
- if(iLenP<1 || iLenP>MAX_PATH) return 632;
- for(indx=0;indx<iLenP;indx++)
- szToTermUpper[indx]=toupper(szToTerminate[indx]);
- szToTermUpper[iLenP]=0;
-
- // PSAPI Function Pointers.
- BOOL (WINAPI *lpfEnumProcesses)( DWORD *, DWORD cb, DWORD * );
- BOOL (WINAPI *lpfEnumProcessModules)( HANDLE, HMODULE *,
- DWORD, LPDWORD );
- DWORD (WINAPI *lpfGetModuleBaseName)( HANDLE, HMODULE,
- LPTSTR, DWORD );
-
- // ToolHelp Function Pointers.
- HANDLE (WINAPI *lpfCreateToolhelp32Snapshot)(DWORD,DWORD) ;
- BOOL (WINAPI *lpfProcess32First)(HANDLE,LPPROCESSENTRY32) ;
- BOOL (WINAPI *lpfProcess32Next)(HANDLE,LPPROCESSENTRY32) ;
- BOOL (WINAPI *lpfModule32First)(HANDLE,LPMODULEENTRY32) ;
- BOOL (WINAPI *lpfModule32Next)(HANDLE,LPMODULEENTRY32) ;
-
- // First check what version of Windows we're in
- osvi.dwOSVersionInfoSize = sizeof(OSVERSIONINFO);
- bResult=GetVersionEx(&osvi);
- if(!bResult) return 606; // Unable to identify system version
-
- // At Present we only support Win/NT/2000/XP or Win/9x/ME
- // Seems to work OK in Win7
- if((osvi.dwPlatformId != VER_PLATFORM_WIN32_NT) &&
- (osvi.dwPlatformId != VER_PLATFORM_WIN32_WINDOWS)) return 607;
-
- if(osvi.dwPlatformId==VER_PLATFORM_WIN32_NT)
- {
- // Win/NT or 2000 or XP
-
- // Load library and get the procedures explicitly. We do
- // this so that we don't have to worry about modules using
- // this code failing to load under Windows 9x, because
- // it can't resolve references to the PSAPI.DLL.
- hInstLib = LoadLibraryA("PSAPI.DLL");
- if(hInstLib == NULL) return 605;
-
- // Get procedure addresses.
- lpfEnumProcesses = (BOOL(WINAPI *)(DWORD *,DWORD,DWORD*))
- GetProcAddress( hInstLib, "EnumProcesses" ) ;
- lpfEnumProcessModules = (BOOL(WINAPI *)(HANDLE, HMODULE *,
- DWORD, LPDWORD)) GetProcAddress( hInstLib, "EnumProcessModules" ) ;
- lpfGetModuleBaseName =(DWORD (WINAPI *)(HANDLE, HMODULE, LPTSTR,
- DWORD )) GetProcAddress( hInstLib, "GetModuleBaseNameA" ) ;
-
- if(lpfEnumProcesses == NULL || lpfEnumProcessModules == NULL ||
- lpfGetModuleBaseName == NULL) {
- FreeLibrary(hInstLib);
- return 700;
- }
-
- bResult=lpfEnumProcesses(aiPID,iCb,&iCbneeded);
- if(!bResult) {
- // Unable to get process list, EnumProcesses failed
- FreeLibrary(hInstLib);
- return 701;
- }
-
- // How many processes are there?
- iNumProc=iCbneeded/sizeof(DWORD);
-
- // Get and match the name of each process
- for(i=0;i<iNumProc;i++) {
- // Get the (module) name for this process
- strcpy(szName,"Unknown");
- // First, get a handle to the process
- hProc=OpenProcess(PROCESS_QUERY_INFORMATION|PROCESS_VM_READ,FALSE,
- aiPID[i]);
- // Now, get the process name
- if(hProc) {
- if(lpfEnumProcessModules(hProc,&hMod,sizeof(hMod),&iCbneeded) ) {
-// iLen=lpfGetModuleBaseName(hProc,hMod,szName,MAX_PATH);
- lpfGetModuleBaseName(hProc,hMod,szName,MAX_PATH);
- }
- }
- CloseHandle(hProc);
- // We will match regardless of lower or upper case
- if(strcmp(_strupr(szName),szToTermUpper)==0) {
- // Process found, now terminate it
- iFound=1;
- // First open for termination
- hProc=OpenProcess(PROCESS_TERMINATE,FALSE,aiPID[i]);
- if(hProc) {
- if(TerminateProcess(hProc,0)) {
- // process terminated
- CloseHandle(hProc);
- FreeLibrary(hInstLib);
- return 0;
- } else {
- // Unable to terminate process
- CloseHandle(hProc);
- FreeLibrary(hInstLib);
- return 602;
- }
- } else {
- // Unable to open process for termination
- FreeLibrary(hInstLib);
- return 604;
- }
- }
- }
- }
-
- if(osvi.dwPlatformId==VER_PLATFORM_WIN32_WINDOWS)
- {
- // Win/95 or 98 or ME
-
- hInstLib = LoadLibraryA("Kernel32.DLL");
- if( hInstLib == NULL )
- return 702;
-
- // Get procedure addresses.
- // We are linking to these functions of Kernel32
- // explicitly, because otherwise a module using
- // this code would fail to load under Windows NT,
- // which does not have the Toolhelp32
- // functions in the Kernel 32.
- lpfCreateToolhelp32Snapshot=
- (HANDLE(WINAPI *)(DWORD,DWORD))
- GetProcAddress( hInstLib,
- "CreateToolhelp32Snapshot" ) ;
- lpfProcess32First=
- (BOOL(WINAPI *)(HANDLE,LPPROCESSENTRY32))
- GetProcAddress( hInstLib, "Process32First" ) ;
- lpfProcess32Next=
- (BOOL(WINAPI *)(HANDLE,LPPROCESSENTRY32))
- GetProcAddress( hInstLib, "Process32Next" ) ;
- lpfModule32First=
- (BOOL(WINAPI *)(HANDLE,LPMODULEENTRY32))
- GetProcAddress( hInstLib, "Module32First" ) ;
- lpfModule32Next=
- (BOOL(WINAPI *)(HANDLE,LPMODULEENTRY32))
- GetProcAddress( hInstLib, "Module32Next" ) ;
- if( lpfProcess32Next == NULL ||
- lpfProcess32First == NULL ||
- lpfModule32Next == NULL ||
- lpfModule32First == NULL ||
- lpfCreateToolhelp32Snapshot == NULL )
- {
- FreeLibrary(hInstLib);
- return 703;
- }
-
- // The Process32.. and Module32.. routines return names in all uppercase
-
- // Get a handle to a Toolhelp snapshot of all the systems processes.
-
- hSnapShot = lpfCreateToolhelp32Snapshot(
- TH32CS_SNAPPROCESS, 0 ) ;
- if( hSnapShot == INVALID_HANDLE_VALUE )
- {
- FreeLibrary(hInstLib);
- return 704;
- }
-
- // Get the first process' information.
- procentry.dwSize = sizeof(PROCESSENTRY32);
- bResult=lpfProcess32First(hSnapShot,&procentry);
-
- // While there are processes, keep looping and checking.
- while(bResult)
- {
- // Get a handle to a Toolhelp snapshot of this process.
- hSnapShotm = lpfCreateToolhelp32Snapshot(
- TH32CS_SNAPMODULE, procentry.th32ProcessID) ;
- if( hSnapShotm == INVALID_HANDLE_VALUE )
- {
- CloseHandle(hSnapShot);
- FreeLibrary(hInstLib);
- return 704;
- }
- // Get the module list for this process
- modentry.dwSize=sizeof(MODULEENTRY32);
- bResultm=lpfModule32First(hSnapShotm,&modentry);
-
- // While there are modules, keep looping and checking
- while(bResultm)
- {
- if(strcmp(modentry.szModule,szToTermUpper)==0)
- {
- // Process found, now terminate it
- iFound=1;
- // First open for termination
- hProc=OpenProcess(PROCESS_TERMINATE,FALSE,procentry.th32ProcessID);
- if(hProc)
- {
- if(TerminateProcess(hProc,0))
- {
- // process terminated
- CloseHandle(hSnapShotm);
- CloseHandle(hSnapShot);
- CloseHandle(hProc);
- FreeLibrary(hInstLib);
- return 0;
- }
- else
- {
- // Unable to terminate process
- CloseHandle(hSnapShotm);
- CloseHandle(hSnapShot);
- CloseHandle(hProc);
- FreeLibrary(hInstLib);
- return 602;
- }
- }
- else
- {
- // Unable to open process for termination
- CloseHandle(hSnapShotm);
- CloseHandle(hSnapShot);
- FreeLibrary(hInstLib);
- return 604;
- }
- }
- else
- { // Look for next modules for this process
- modentry.dwSize=sizeof(MODULEENTRY32);
- bResultm=lpfModule32Next(hSnapShotm,&modentry);
- }
- }
-
- //Keep looking
- CloseHandle(hSnapShotm);
- procentry.dwSize = sizeof(PROCESSENTRY32);
- bResult = lpfProcess32Next(hSnapShot,&procentry);
- }
- CloseHandle(hSnapShot);
- }
- if(iFound==0)
- {
- FreeLibrary(hInstLib);
- return 603;
- }
- FreeLibrary(hInstLib);
- return 0;
-}
diff --git a/lib/Makefile.MinGW b/lib/Makefile.MinGW
deleted file mode 100644
index e09924b..0000000
--- a/lib/Makefile.MinGW
+++ /dev/null
@@ -1,117 +0,0 @@
-# Makefile for MinGW on Windows
-# Windows re-direct:
-# C> make > junk1 2>&1
-
-CC = gcc
-FC = g95
-
-FFLAGS = -O2 -fbounds-check -Wall -Wno-precision-loss -fno-second-underscore
-CFLAGS = -I. -fbounds-check -mno-stack-arg-probe
-
-# Default rules
-%.o: %.c
- ${CC} ${CFLAGS} -c $<
-%.o: %.f
- ${FC} ${FFLAGS} -c $<
-%.o: %.F
- ${FC} ${FFLAGS} -c $<
-%.o: %.f90
- ${FC} ${FFLAGS} -c $<
-%.o: %.F90
- ${FC} ${FFLAGS} -c $<
-
-all: libjt9.a jt9sim.exe jt9.exe jt9code.exe jt65.exe
-
-OBJS1 = pctile.o graycode.o sort.o ssort.o \
- unpackmsg.o igray.o unpackcall.o unpackgrid.o \
- grid2k.o unpacktext.o getpfx2.o packmsg.o deg2grid.o \
- packtext.o getpfx1.o packcall.o k2grid.o packgrid.o \
- nchar.o four2a.o grid2deg.o pfxdump.o f77_wisdom.o \
- symspec.o analytic.o db.o genjt9.o \
- packbits.o unpackbits.o encode232.o interleave9.o \
- entail.o fano232.o gran.o sync9.o decode9.o \
- fil3.o decoder.o grid2n.o n2grid.o timer.o \
- softsym.o getlags.o afc9.o fchisq.o twkfreq.o downsam9.o \
- peakdt9.o symspec2.o stdmsg.o morse.o azdist.o geodist.o \
- fillcom.o chkss2.o zplot9.o flat2.o \
- jt65a.o symspec65.o flat65.o ccf65.o decode65a.o \
- filbig.o fil6521.o afc65b.o decode65b.o setup65.o \
- extract.o fchisq65.o demod64a.o chkhist.o interleave63.o ccf2.o \
- move.o indexx.o graycode65.o twkfreq65.o smo121.o \
- wrapkarn.o init_rs.o encode_rs.o decode_rs.o gen65.o
-
-libjt9.a: $(OBJS1)
- ar cr libjt9.a $(OBJS1)
- ranlib libjt9.a
-
-OBJS2 = jt9.o jt9a.o jt9b.o jt9c.o ipcomm.o sec_midn.o cutil.o
-LIBS2 = -L'c:/QtSDK/Desktop/Qt/4.7.4/mingw/lib' -lQtCore4
-jt9.exe: $(OBJS2) libjt9.a
- g++ -o jt9.exe $(OBJS2) $(LIBS2) libjt9.a ../libfftw3f_win.a \
- c:/MinGW/lib/libf95.a
- cp jt9.exe ../../wsjtx_install
-
-OBJS3 = jt9sim.o
-jt9sim.exe: $(OBJS3) libjt9.a
- $(FC) -o jt9sim.exe $(OBJS3) libjt9.a
-
-OBJS4 = jt9code.o
-jt9code.exe: $(OBJS4) libjt9.a
- $(FC) -o jt9code.exe $(OBJS4) libjt9.a
-
-OBJS5 = jt65.o
-jt65.exe: $(OBJS5) libjt9.a
- $(FC) -o jt65.exe $(OBJS5) libjt9.a ../libfftw3f_win.a
-
-INCPATH = -I'c:/QtSDK/Desktop/Qt/4.7.4/mingw/include/QtCore' \
- -I'c:/QtSDK/Desktop/Qt/4.7.4/mingw/include' \
- -I'c:/QtSDK/Desktop/Qt/4.7.4/mingw/include/ActiveQt' \
- -I'release' -I'.' -I'c:/QtSDK/Desktop/Qt/4.7.4/mingw/mkspecs/win32-g++'
-
-sync9.o: sync9.f90 jt9sync.f90
- $(FC) $(FFLAGS) -c sync9.f90
-
-spec9.o: spec9.f90 jt9sync.f90
- $(FC) $(FFLAGS) -c spec9.f90
-
-peakdt9.o: peakdt9.f90 jt9sync.f90
- $(FC) $(FFLAGS) -c peakdt9.f90
-
-jt9sim.o: jt9sim.f90 jt9sync.f90
- $(FC) $(FFLAGS) -c jt9sim.f90
-
-genjt9.o: genjt9.f90 jt9sync.f90
- $(FC) $(FFLAGS) -c genjt9.f90
-
-redsync.o: redsync.f90 jt9sync.f90
- $(FC) $(FFLAGS) -c redsync.f90
-
-unpackmsg.o: unpackmsg.f90
- $(FC) -c -O0 -fbounds-check -Wall -Wno-precision-loss unpackmsg.f90
-
-ipcomm.o: ipcomm.cpp
- g++ -c $(INCPATH) ipcomm.cpp
-
-sec_midn.o: sec_midn.f90
- $(FC) -c -fno-second-underscore sec_midn.f90
-
-#rig_control.o: rig_control.c
-# $(CC) -c -Wall -I..\..\..\hamlib-1.2.15.3\include rig_control.c
-
-tstrig.o: tstrig.c
- $(CC) -c -Wall -I..\..\..\hamlib-1.2.15.3\include tstrig.c
-
-init_rs.o: init_rs.c
- $(CC) -c -DBIGSYM=1 -o init_rs.o init_rs.c
-
-encode_rs.o: encode_rs.c
- $(CC) -c -DBIGSYM=1 -o encode_rs.o encode_rs.c
-
-decode_rs.o: decode_rs.c
- $(CC) -c -DBIGSYM=1 -o decode_rs.o decode_rs.c
-
-
-.PHONY : clean
-
-clean:
- rm -f *.o libjt9.a wsjtx.exe jt9sim.exe jt9.exe jt65.exe
diff --git a/lib/Makefile.linux b/lib/Makefile.linux
deleted file mode 100644
index 19e6096..0000000
--- a/lib/Makefile.linux
+++ /dev/null
@@ -1,104 +0,0 @@
-CC = gcc
-FC = gfortran
-
-FFLAGS = -O2 -fbounds-check -Wall -Wno-conversion -fno-second-underscore
-CFLAGS = -I. -fbounds-check -mno-stack-arg-probe
-
-# Default rules
-%.o: %.c
- ${CC} ${CFLAGS} -c $<
-%.o: %.f
- ${FC} ${FFLAGS} -c $<
-%.o: %.F
- ${FC} ${FFLAGS} -c $<
-%.o: %.f90
- ${FC} ${FFLAGS} -c $<
-%.o: %.F90
- ${FC} ${FFLAGS} -c $<
-
-all: libjt9.a jt9sim jt9 jt9code
-
-OBJS1 = pctile.o graycode.o sort.o ssort.o \
- unpackmsg.o igray.o unpackcall.o unpackgrid.o \
- grid2k.o unpacktext.o getpfx2.o packmsg.o deg2grid.o \
- packtext.o getpfx1.o packcall.o k2grid.o packgrid.o \
- nchar.o four2a.o grid2deg.o pfxdump.o f77_wisdom.o \
- symspec.o analytic.o db.o genjt9.o \
- packbits.o unpackbits.o encode232.o interleave9.o \
- entail.o fano232.o gran.o sync9.o decode9.o \
- fil3.o decoder.o grid2n.o n2grid.o timer.o \
- softsym.o peakdt9.o getlags.o afc9.o fchisq.o \
- twkfreq.o downsam9.o symspec2.o ipcomm.o sleep_msec.o \
- stdmsg.o sec_midn.o cutil.o azdist.o geodist.o morse.o \
- fillcom.o chkss2.o zplot9.o flat2.o \
- jt65a.o symspec65.o flat65.o ccf65.o decode65a.o \
- filbig.o fil6521.o afc65b.o decode65b.o setup65.o \
- extract.o fchisq65.o demod64a.o chkhist.o interleave63.o ccf2.o \
- move.o indexx.o graycode65.o twkfreq65.o smo121.o \
- wrapkarn.o init_rs.o encode_rs.o decode_rs.o gen65.o
-
-libjt9.a: $(OBJS1)
- ar cr libjt9.a $(OBJS1)
- ranlib libjt9.a
-
-OBJS2 = jt9.o jt9a.o jt9b.o jt9c.o
-
-jt9: $(OBJS2) libjt9.a
- g++ -o jt9 $(OBJS2) libjt9.a -lfftw3f -lgfortran -lQtCore
- cp jt9 ../../wsjtx_install
-
-OBJS3 = jt9sim.o
-jt9sim: $(OBJS3) libjt9.a
- $(FC) -o jt9sim $(OBJS3) libjt9.a
-
-OBJS4 = jt9code.o
-jt9code: $(OBJS4) libjt9.a
- $(FC) -o jt9code $(OBJS4) libjt9.a
-
-#INCPATH = -I'c:/QtSDK/Desktop/Qt/4.7.4/mingw/include/QtCore' \
-# -I'c:/QtSDK/Desktop/Qt/4.7.4/mingw/include' \
-# -I'c:/QtSDK/Desktop/Qt/4.7.4/mingw/include/ActiveQt' \
-# -I'release' -I'.' -I'c:/QtSDK/Desktop/Qt/4.7.4/mingw/mkspecs/win32-g++'
-
-INCPATH = -I'/usr/include/qt4' -I'/usr/include/qt4/QtCore'
-
-#jt9.o: jt9.f90
-# $(FC) -O0 -c jt9.f90
-
-sync9.o: sync9.f90 jt9sync.f90
- $(FC) $(FFLAGS) -c sync9.f90
-
-peakdf9.o: peakdf9.f90 jt9sync.f90
- $(FC) $(FFLAGS) -c peakdf9.f90
-
-peakdt9.o: peakdt9.f90 jt9sync.f90
- $(FC) $(FFLAGS) -c peakdt9.f90
-
-jt9sim.o: jt9sim.f90 jt9sync.f90
- $(FC) $(FFLAGS) -c jt9sim.f90
-
-genjt9.o: genjt9.f90 jt9sync.f90
- $(FC) $(FFLAGS) -c genjt9.f90
-
-redsync.o: redsync.f90 jt9sync.f90
- $(FC) $(FFLAGS) -c redsync.f90
-
-ipcomm.o: ipcomm.cpp
- g++ -c $(INCPATH) ipcomm.cpp
-
-sec_midn.o: sec_midn.f90
- $(FC) -c -fno-second-underscore sec_midn.f90
-
-init_rs.o: init_rs.c
- $(CC) -c -DBIGSYM=1 -o init_rs.o init_rs.c
-
-encode_rs.o: encode_rs.c
- $(CC) -c -DBIGSYM=1 -o encode_rs.o encode_rs.c
-
-decode_rs.o: decode_rs.c
- $(CC) -c -DBIGSYM=1 -o decode_rs.o decode_rs.c
-
-.PHONY : clean
-
-clean:
- rm -f *.o libjt9.a wsjtx jt9sim jt9 jt9code
diff --git a/lib/afc65b.f90 b/lib/afc65b.f90
deleted file mode 100644
index f78f275..0000000
--- a/lib/afc65b.f90
+++ /dev/null
@@ -1,59 +0,0 @@
-subroutine afc65b(cx,npts,fsample,nflip,a,ccfbest,dtbest)
-
-! Find delta f, f1, f2 ==> a(1:3)
-
- complex cx(npts)
- real a(5),deltaa(5)
-
- a(1)=0.
- a(2)=0.
- a(3)=0.
- a(4)=0.
- deltaa(1)=2.0
- deltaa(2)=2.0
- deltaa(3)=2.0
- deltaa(4)=0.05
- nterms=3 !Maybe 2 is enough?
-
-! Start the iteration
- chisqr=0.
- chisqr0=1.e6
- do iter=1,3 !One iteration is enough?
- do j=1,nterms
- chisq1=fchisq65(cx,npts,fsample,nflip,a,ccfmax,dtmax)
- fn=0.
- delta=deltaa(j)
-10 a(j)=a(j)+delta
- chisq2=fchisq65(cx,npts,fsample,nflip,a,ccfmax,dtmax)
- if(chisq2.eq.chisq1) go to 10
- if(chisq2.gt.chisq1) then
- delta=-delta !Reverse direction
- a(j)=a(j)+delta
- tmp=chisq1
- chisq1=chisq2
- chisq2=tmp
- endif
-20 fn=fn+1.0
- a(j)=a(j)+delta
- chisq3=fchisq65(cx,npts,fsample,nflip,a,ccfmax,dtmax)
- if(chisq3.lt.chisq2) then
- chisq1=chisq2
- chisq2=chisq3
- go to 20
- endif
-
-! Find minimum of parabola defined by last three points
- delta=delta*(1./(1.+(chisq1-chisq2)/(chisq3-chisq2))+0.5)
- a(j)=a(j)-delta
- deltaa(j)=deltaa(j)*fn/3.
- enddo
- chisqr=fchisq65(cx,npts,fsample,nflip,a,ccfmax,dtmax)
- if(chisqr/chisqr0.gt.0.9999) go to 30
- chisqr0=chisqr
- enddo
-
-30 ccfbest=ccfmax * (1378.125/fsample)**2
- dtbest=dtmax
-
- return
-end subroutine afc65b
diff --git a/lib/afc9.f90 b/lib/afc9.f90
deleted file mode 100644
index 1fbcf2f..0000000
--- a/lib/afc9.f90
+++ /dev/null
@@ -1,58 +0,0 @@
-subroutine afc9(c3,npts,fsample,a,syncpk)
-
- complex c3(0:npts-1)
- real a(3),deltaa(3)
-
- a(1)=0. !f0
- a(2)=0. !f1
- a(3)=0. !f2
- deltaa(1)=0.2
- deltaa(2)=0.01
- deltaa(3)=0.01
- nterms=3
-
-! Start the iteration
- chisqr=0.
- chisqr0=1.e6
- do iter=1,4 !One iteration is enough?
- do j=1,nterms
- chisq1=fchisq(c3,npts,fsample,a)
- fn=0.
- delta=deltaa(j)
-10 a(j)=a(j)+delta
- chisq2=fchisq(c3,npts,fsample,a)
- if(chisq2.eq.chisq1) go to 10
- if(chisq2.gt.chisq1) then
- delta=-delta !Reverse direction
- a(j)=a(j)+delta
- tmp=chisq1
- chisq1=chisq2
- chisq2=tmp
- endif
-20 fn=fn+1.0
- a(j)=a(j)+delta
- chisq3=fchisq(c3,npts,fsample,a)
- if(chisq3.lt.chisq2) then
- chisq1=chisq2
- chisq2=chisq3
- go to 20
- endif
-
-! Find minimum of parabola defined by last three points
- delta=delta*(1./(1.+(chisq1-chisq2)/(chisq3-chisq2))+0.5)
- a(j)=a(j)-delta
- deltaa(j)=deltaa(j)*fn/3.
-! write(*,4000) iter,j,a,deltaa,-chisq2
-!4000 format(i1,i2,6f10.4,f9.3)
- enddo
- chisqr=fchisq(c3,npts,fsample,a)
- if(chisqr/chisqr0.gt.0.9999) exit
- chisqr0=chisqr
- enddo
-
- syncpk=-chisqr
-! write(*,4001) a,deltaa,-chisq2
-!4001 format(3x,6f10.4,f9.3)
-
- return
-end subroutine afc9
diff --git a/lib/analytic.f90 b/lib/analytic.f90
deleted file mode 100644
index 33d5fc7..0000000
--- a/lib/analytic.f90
+++ /dev/null
@@ -1,25 +0,0 @@
-subroutine analytic(d,npts,nfft,s,c)
-
-! Convert real data to analytic signal
-
- parameter (NFFTMAX=128*1024)
- real d(npts)
- real s(npts)
- complex c(NFFTMAX)
-
- nh=nfft/2
- fac=2.0/nfft
- c(1:npts)=fac*d(1:npts)
- c(npts+1:nfft)=0.
- call four2a(c,nfft,1,-1,1) !Forward c2c FFT
-
- do i=1,nh
- s(i)=real(c(i))**2 + aimag(c(i))**2
- enddo
-
- c(1)=0.5*c(1)
- c(nh+2:nfft)=0.
- call four2a(c,nfft,1,1,1) !Inverse c2c FFT
-
- return
-end subroutine analytic
diff --git a/lib/azdist.f90 b/lib/azdist.f90
deleted file mode 100644
index 528801f..0000000
--- a/lib/azdist.f90
+++ /dev/null
@@ -1,107 +0,0 @@
-subroutine azdist(MyGrid,HisGrid,utch,nAz,nEl,nDmiles,nDkm,nHotAz,nHotABetter)
-
- character*6 MyGrid,HisGrid,mygrid0,hisgrid0
- real*8 utch,utch0
- logical HotABetter,IamEast
- real eltab(22),daztab(22)
- data eltab/18.,15.,13.,11.,9.,8.,7.,6.,5.3,4.7,4.,3.3,2.7, &
- 2.,1.5,1.,0.8,0.6,0.4,0.2,0.0,0.0/
- data daztab/21.,18.,16.,15.,14.,13.,12.,11.,10.7,10.3,10., &
- 10.,10.,10.,10.,10.,10.,9.,9.,9.,8.,8./
- data mygrid0/" "/,hisgrid0/" "/,utch0/-999.d0/
- save
-
- if(MyGrid.eq.HisGrid) then
- naz=0
- nel=0
- ndmiles=0
- ndkm=0
- nhotaz=0
- nhotabetter=1
- go to 999
- endif
-
- if(mygrid.eq.mygrid0 .and. hisgrid.eq.hisgrid0 .and. &
- abs(utch-utch0).lt.0.1666667d0) go to 900
- utch0=utch
- mygrid0=mygrid
- hisgrid0=hisgrid
- utchours=utch
-
- if(MyGrid(5:5).eq.' ') MyGrid(5:5)='m'
- if(MyGrid(6:6).eq.' ') MyGrid(6:6)='m'
- if(HisGrid(5:5).eq.' ') HisGrid(5:5)='m'
- if(HisGrid(6:6).eq.' ') HisGrid(6:6)='m'
-
- if(MyGrid.eq.HisGrid) then
- Az=0.
- Dmiles=0.
- Dkm=0.0
- El=0.
- HotA=0.
- HotB=0.
- HotABetter=.true.
- go to 900
- endif
-
- call grid2deg(MyGrid,dlong1,dlat1)
- call grid2deg(HisGrid,dlong2,dlat2)
- call geodist(dlat1,dlong1,dlat2,dlong2,Az,Baz,Dkm)
-
- ndkm=Dkm/100
- j=ndkm-4
- if(j.lt.1) j=1
- if(j.gt.21)j=21
- if(Dkm.lt.500.0) then
- El=18.0
- else
- u=(Dkm-100.0*ndkm)/100.0
- El=(1.0-u)*eltab(j) + u*eltab(j+1)
- endif
-
- daz=daztab(j) + u * (daztab(j+1)-daztab(j))
- Dmiles=Dkm/1.609344
-
- tmid=mod(UTChours-0.5*(dlong1+dlong2)/15.0+48.0,24.0)
- IamEast=.false.
- if(dlong1.lt.dlong2) IamEast=.true.
- if(dlong1.eq.dlong2 .and. dlat1.gt.dlat2) IamEast=.false.
- azEast=baz
- if(IamEast) azEast=az
- if((azEast.ge.45.0 .and. azEast.lt.135.0) .or. &
- (azEast.ge.225.0 .and. azEast.lt.315.0)) then
-! The path will be taken as "east-west".
- HotABetter=.true.
- if(abs(tmid-6.0).lt.6.0) HotABetter=.false.
- if((dlat1+dlat2)/2.0 .lt. 0.0) HotABetter=.not.HotABetter
- else
-! The path will be taken as "north-south".
- HotABetter=.false.
- if(abs(tmid-12.0).lt.6.0) HotABetter=.true.
- endif
- if(IamEast) then
- HotA = Az - daz
- HotB = Az + daz
- else
- HotA = Az + daz
- HotB = Az - daz
- endif
- if(HotA.lt.0.0) HotA=HotA+360.0
- if(HotA.gt.360.0) HotA=HotA-360.0
- if(HotB.lt.0.0) HotB=HotB+360.0
- if(HotB.gt.360.0) HotB=HotB-360.0
-
-900 continue
- naz=nint(Az)
- nel=nint(el)
- nDmiles=nint(Dmiles)
- nDkm=nint(Dkm)
- nHotAz=nint(HotB)
- nHotABetter=0
- if(HotABetter) then
- nHotAz=nint(HotA)
- nHotABetter=1
- endif
-
-999 return
-end subroutine azdist
diff --git a/lib/bpskmetrics.dat b/lib/bpskmetrics.dat
deleted file mode 100644
index 4073e57..0000000
--- a/lib/bpskmetrics.dat
+++ /dev/null
@@ -1,256 +0,0 @@
- -12.8 1.000 -9.966 1.000000 0.000000
- -12.7 1.000 -9.966 1.000000 0.000000
- -12.6 1.000 -9.966 1.000000 0.000000
- -12.5 1.000 -9.966 1.000000 0.000000
- -12.4 1.000 -9.966 1.000000 0.000000
- -12.3 1.000 -9.966 1.000000 0.000000
- -12.2 1.000 -9.966 1.000000 0.000000
- -12.1 1.000 -9.966 1.000000 0.000000
- -12.0 1.000 -9.966 1.000000 0.000000
- -11.9 1.000 -9.966 1.000000 0.000000
- -11.8 1.000 -9.966 1.000000 0.000000
- -11.7 1.000 -9.966 1.000000 0.000000
- -11.6 1.000 -9.966 1.000000 0.000000
- -11.5 1.000 -9.966 1.000000 0.000000
- -11.4 1.000 -9.966 1.000000 0.000000
- -11.3 1.000 -9.966 1.000000 0.000000
- -11.2 1.000 -9.966 1.000000 0.000000
- -11.1 1.000 -9.966 1.000000 0.000000
- -11.0 1.000 -9.966 1.000000 0.000000
- -10.9 1.000 -9.966 1.000000 0.000000
- -10.8 1.000 -9.966 1.000000 0.000000
- -10.7 1.000 -9.966 1.000000 0.000000
- -10.6 1.000 -9.966 1.000000 0.000000
- -10.5 1.000 -9.966 1.000000 0.000000
- -10.4 1.000 -9.966 1.000000 0.000000
- -10.3 1.000 -9.966 1.000000 0.000000
- -10.2 1.000 -9.966 1.000000 0.000000
- -10.1 1.000 -9.966 1.000000 0.000000
- -10.0 1.000 -9.966 1.000000 0.000000
- -9.9 1.000 -9.966 1.000000 0.000000
- -9.8 1.000 -9.966 1.000000 0.000000
- -9.7 1.000 -9.966 1.000000 0.000000
- -9.6 1.000 -9.966 1.000000 0.000000
- -9.5 1.000 -9.966 1.000000 0.000000
- -9.4 1.000 -9.966 1.000000 0.000000
- -9.3 1.000 -9.966 1.000000 0.000000
- -9.2 1.000 -9.966 1.000000 0.000000
- -9.1 1.000 -9.966 1.000000 0.000000
- -9.0 1.000 -9.966 1.000000 0.000000
- -8.9 1.000 -9.966 1.000000 0.000000
- -8.8 1.000 -9.966 1.000000 0.000000
- -8.7 1.000 -9.966 1.000000 0.000000
- -8.6 1.000 -9.966 1.000000 0.000000
- -8.5 1.000 -9.966 1.000000 0.000000
- -8.4 1.000 -9.966 1.000000 0.000000
- -8.3 1.000 -9.966 1.000000 0.000000
- -8.2 1.000 -9.966 1.000000 0.000000
- -8.1 1.000 -9.966 1.000000 0.000000
- -8.0 1.000 -9.966 1.000000 0.000000
- -7.9 1.000 -9.966 1.000000 0.000000
- -7.8 1.000 -9.966 1.000000 0.000000
- -7.7 1.000 -9.966 1.000000 0.000000
- -7.6 1.000 -9.966 1.000000 0.000000
- -7.5 1.000 -9.966 1.000000 0.000000
- -7.4 1.000 -9.966 1.000000 0.000000
- -7.3 1.000 -9.966 1.000000 0.000000
- -7.2 1.000 -9.966 1.000000 0.000000
- -7.1 1.000 -9.966 1.000000 0.000000
- -7.0 1.000 -9.966 1.000000 0.000000
- -6.9 1.000 -9.966 1.000000 0.000000
- -6.8 1.000 -9.966 1.000000 0.000000
- -6.7 1.000 -9.966 1.000000 0.000000
- -6.6 1.000 -9.966 1.000000 0.000000
- -6.5 1.000 -9.966 1.000000 0.000000
- -6.4 1.000 -9.966 1.000000 0.000000
- -6.3 1.000 -9.966 1.000000 0.000000
- -6.2 1.000 -9.966 1.000000 0.000000
- -6.1 1.000 -9.966 1.000000 0.000000
- -6.0 1.000 -9.966 1.000000 0.000000
- -5.9 1.000 -9.966 1.000000 0.000000
- -5.8 1.000 -9.966 1.000000 0.000000
- -5.7 1.000 -9.966 1.000000 0.000000
- -5.6 1.000 -9.966 1.000000 0.000000
- -5.5 1.000 -9.966 1.000000 0.000000
- -5.4 1.000 -9.966 1.000000 0.000000
- -5.3 1.000 -9.966 1.000000 0.000000
- -5.2 1.000 -9.966 1.000000 0.000000
- -5.1 1.000 -9.966 1.000000 0.000000
- -5.0 1.000 -9.966 1.000000 0.000000
- -4.9 1.000 -9.966 1.000000 0.000000
- -4.8 1.000 -9.966 1.000000 0.000000
- -4.7 1.000 -9.966 1.000000 0.000000
- -4.6 1.000 -9.966 1.000000 0.000000
- -4.5 1.000 -9.966 1.000000 0.000000
- -4.4 1.000 -9.966 1.000000 0.000000
- -4.3 1.000 -9.966 1.000000 0.000000
- -4.2 1.000 -9.966 1.000000 0.000000
- -4.1 1.000 -9.966 1.000000 0.000000
- -4.0 1.000 -9.966 1.000000 0.000000
- -3.9 1.000 -9.966 1.000000 0.000000
- -3.8 1.000 -9.966 1.000000 0.000000
- -3.7 1.000 -9.966 1.000000 0.000000
- -3.6 1.000 -9.966 1.000000 0.000000
- -3.5 1.000 -9.966 1.000000 0.000000
- -3.4 1.000 -9.966 1.000000 0.000000
- -3.3 1.000 -9.966 1.000000 0.000000
- -3.2 1.000 -9.966 1.000000 0.000000
- -3.1 1.000 -9.966 1.000000 0.000000
- -3.0 1.000 -9.966 1.000000 0.000000
- -2.9 1.000 -9.966 1.000000 0.000000
- -2.8 1.000 -9.966 0.999955 0.000045
- -2.7 1.000 -9.966 0.999968 0.000032
- -2.6 1.000 -9.966 0.999909 0.000091
- -2.5 1.000 -9.966 0.999983 0.000017
- -2.4 1.000 -9.966 0.999937 0.000063
- -2.3 1.000 -9.966 0.999914 0.000086
- -2.2 1.000 -9.966 0.999813 0.000187
- -2.1 1.000 -9.966 0.999775 0.000225
- -2.0 1.000 -9.966 0.999671 0.000329
- -1.9 0.999 -9.966 0.999531 0.000469
- -1.8 0.999 -9.308 0.999211 0.000789
- -1.7 0.998 -8.893 0.998948 0.001052
- -1.6 0.998 -8.191 0.998290 0.001710
- -1.5 0.996 -7.655 0.997519 0.002481
- -1.4 0.994 -7.037 0.996192 0.003808
- -1.3 0.992 -6.513 0.994525 0.005475
- -1.2 0.988 -5.931 0.991804 0.008196
- -1.1 0.982 -5.359 0.987816 0.012184
- -1.0 0.974 -4.789 0.981916 0.018084
- -0.9 0.961 -4.217 0.973110 0.026890
- -0.8 0.942 -3.672 0.960785 0.039215
- -0.7 0.915 -3.123 0.942613 0.057387
- -0.6 0.874 -2.582 0.916477 0.083523
- -0.5 0.816 -2.062 0.880296 0.119704
- -0.4 0.734 -1.573 0.831905 0.168095
- -0.3 0.619 -1.109 0.768168 0.231832
- -0.2 0.465 -0.690 0.690103 0.309897
- -0.1 0.260 -0.317 0.598759 0.401241
- 0.0 0.000 0.000 0.500000 0.500000
- 0.1 -0.317 0.260 0.401241 0.598759
- 0.2 -0.690 0.465 0.309897 0.690103
- 0.3 -1.109 0.619 0.231832 0.768168
- 0.4 -1.573 0.734 0.168095 0.831905
- 0.5 -2.062 0.816 0.119704 0.880296
- 0.6 -2.582 0.874 0.083523 0.916477
- 0.7 -3.123 0.915 0.057387 0.942613
- 0.8 -3.672 0.942 0.039215 0.960785
- 0.9 -4.217 0.961 0.026890 0.973110
- 1.0 -4.789 0.974 0.018084 0.981916
- 1.1 -5.359 0.982 0.012184 0.987816
- 1.2 -5.931 0.988 0.008196 0.991804
- 1.3 -6.513 0.992 0.005475 0.994525
- 1.4 -7.037 0.994 0.003808 0.996192
- 1.5 -7.655 0.996 0.002481 0.997519
- 1.6 -8.191 0.998 0.001710 0.998290
- 1.7 -8.893 0.998 0.001052 0.998948
- 1.8 -9.308 0.999 0.000789 0.999211
- 1.9 -9.966 0.999 0.000469 0.999531
- 2.0 -9.966 1.000 0.000329 0.999671
- 2.1 -9.966 1.000 0.000225 0.999775
- 2.2 -9.966 1.000 0.000187 0.999813
- 2.3 -9.966 1.000 0.000086 0.999914
- 2.4 -9.966 1.000 0.000063 0.999937
- 2.5 -9.966 1.000 0.000017 0.999983
- 2.6 -9.966 1.000 0.000091 0.999909
- 2.7 -9.966 1.000 0.000032 0.999968
- 2.8 -9.966 1.000 0.000045 0.999955
- 2.9 -9.966 1.000 0.000000 1.000000
- 3.0 -9.966 1.000 0.000000 1.000000
- 3.1 -9.966 1.000 0.000000 1.000000
- 3.2 -9.966 1.000 0.000000 1.000000
- 3.3 -9.966 1.000 0.000000 1.000000
- 3.4 -9.966 1.000 0.000000 1.000000
- 3.5 -9.966 1.000 0.000000 1.000000
- 3.6 -9.966 1.000 0.000000 1.000000
- 3.7 -9.966 1.000 0.000000 1.000000
- 3.8 -9.966 1.000 0.000000 1.000000
- 3.9 -9.966 1.000 0.000000 1.000000
- 4.0 -9.966 1.000 0.000000 1.000000
- 4.1 -9.966 1.000 0.000000 1.000000
- 4.2 -9.966 1.000 0.000000 1.000000
- 4.3 -9.966 1.000 0.000000 1.000000
- 4.4 -9.966 1.000 0.000000 1.000000
- 4.5 -9.966 1.000 0.000000 1.000000
- 4.6 -9.966 1.000 0.000000 1.000000
- 4.7 -9.966 1.000 0.000000 1.000000
- 4.8 -9.966 1.000 0.000000 1.000000
- 4.9 -9.966 1.000 0.000000 1.000000
- 5.0 -9.966 1.000 0.000000 1.000000
- 5.1 -9.966 1.000 0.000000 1.000000
- 5.2 -9.966 1.000 0.000000 1.000000
- 5.3 -9.966 1.000 0.000000 1.000000
- 5.4 -9.966 1.000 0.000000 1.000000
- 5.5 -9.966 1.000 0.000000 1.000000
- 5.6 -9.966 1.000 0.000000 1.000000
- 5.7 -9.966 1.000 0.000000 1.000000
- 5.8 -9.966 1.000 0.000000 1.000000
- 5.9 -9.966 1.000 0.000000 1.000000
- 6.0 -9.966 1.000 0.000000 1.000000
- 6.1 -9.966 1.000 0.000000 1.000000
- 6.2 -9.966 1.000 0.000000 1.000000
- 6.3 -9.966 1.000 0.000000 1.000000
- 6.4 -9.966 1.000 0.000000 1.000000
- 6.5 -9.966 1.000 0.000000 1.000000
- 6.6 -9.966 1.000 0.000000 1.000000
- 6.7 -9.966 1.000 0.000000 1.000000
- 6.8 -9.966 1.000 0.000000 1.000000
- 6.9 -9.966 1.000 0.000000 1.000000
- 7.0 -9.966 1.000 0.000000 1.000000
- 7.1 -9.966 1.000 0.000000 1.000000
- 7.2 -9.966 1.000 0.000000 1.000000
- 7.3 -9.966 1.000 0.000000 1.000000
- 7.4 -9.966 1.000 0.000000 1.000000
- 7.5 -9.966 1.000 0.000000 1.000000
- 7.6 -9.966 1.000 0.000000 1.000000
- 7.7 -9.966 1.000 0.000000 1.000000
- 7.8 -9.966 1.000 0.000000 1.000000
- 7.9 -9.966 1.000 0.000000 1.000000
- 8.0 -9.966 1.000 0.000000 1.000000
- 8.1 -9.966 1.000 0.000000 1.000000
- 8.2 -9.966 1.000 0.000000 1.000000
- 8.3 -9.966 1.000 0.000000 1.000000
- 8.4 -9.966 1.000 0.000000 1.000000
- 8.5 -9.966 1.000 0.000000 1.000000
- 8.6 -9.966 1.000 0.000000 1.000000
- 8.7 -9.966 1.000 0.000000 1.000000
- 8.8 -9.966 1.000 0.000000 1.000000
- 8.9 -9.966 1.000 0.000000 1.000000
- 9.0 -9.966 1.000 0.000000 1.000000
- 9.1 -9.966 1.000 0.000000 1.000000
- 9.2 -9.966 1.000 0.000000 1.000000
- 9.3 -9.966 1.000 0.000000 1.000000
- 9.4 -9.966 1.000 0.000000 1.000000
- 9.5 -9.966 1.000 0.000000 1.000000
- 9.6 -9.966 1.000 0.000000 1.000000
- 9.7 -9.966 1.000 0.000000 1.000000
- 9.8 -9.966 1.000 0.000000 1.000000
- 9.9 -9.966 1.000 0.000000 1.000000
- 10.0 -9.966 1.000 0.000000 1.000000
- 10.1 -9.966 1.000 0.000000 1.000000
- 10.2 -9.966 1.000 0.000000 1.000000
- 10.3 -9.966 1.000 0.000000 1.000000
- 10.4 -9.966 1.000 0.000000 1.000000
- 10.5 -9.966 1.000 0.000000 1.000000
- 10.6 -9.966 1.000 0.000000 1.000000
- 10.7 -9.966 1.000 0.000000 1.000000
- 10.8 -9.966 1.000 0.000000 1.000000
- 10.9 -9.966 1.000 0.000000 1.000000
- 11.0 -9.966 1.000 0.000000 1.000000
- 11.1 -9.966 1.000 0.000000 1.000000
- 11.2 -9.966 1.000 0.000000 1.000000
- 11.3 -9.966 1.000 0.000000 1.000000
- 11.4 -9.966 1.000 0.000000 1.000000
- 11.5 -9.966 1.000 0.000000 1.000000
- 11.6 -9.966 1.000 0.000000 1.000000
- 11.7 -9.966 1.000 0.000000 1.000000
- 11.8 -9.966 1.000 0.000000 1.000000
- 11.9 -9.966 1.000 0.000000 1.000000
- 12.0 -9.966 1.000 0.000000 1.000000
- 12.1 -9.966 1.000 0.000000 1.000000
- 12.2 -9.966 1.000 0.000000 1.000000
- 12.3 -9.966 1.000 0.000000 1.000000
- 12.4 -9.966 1.000 0.000000 1.000000
- 12.5 -9.966 1.000 0.000000 1.000000
- 12.6 -9.966 1.000 0.000000 1.000000
- 12.7 -9.966 1.000 0.000000 1.000000
diff --git a/lib/ccf2.f90 b/lib/ccf2.f90
deleted file mode 100644
index 4e74a52..0000000
--- a/lib/ccf2.f90
+++ /dev/null
@@ -1,45 +0,0 @@
-subroutine ccf2(ss,nz,nflip,ccfbest,lagpk)
-
- parameter (LAGMAX=60)
-! parameter (LAGMAX=200)
- real ss(nz)
- real ccf(-LAGMAX:LAGMAX)
- integer npr(126)
-
-! The JT65 pseudo-random sync pattern:
- data npr/ &
- 1,0,0,1,1,0,0,0,1,1,1,1,1,1,0,1,0,1,0,0, &
- 0,1,0,1,1,0,0,1,0,0,0,1,1,1,0,0,1,1,1,1, &
- 0,1,1,0,1,1,1,1,0,0,0,1,1,0,1,0,1,0,1,1, &
- 0,0,1,1,0,1,0,1,0,1,0,0,1,0,0,0,0,0,0,1, &
- 1,0,0,0,0,0,0,0,1,1,0,1,0,0,1,0,1,1,0,1, &
- 0,1,0,1,0,0,1,1,0,0,1,0,0,1,0,0,0,0,1,1, &
- 1,1,1,1,1,1/
- save
-
- ccfbest=0.
- lag1=-LAGMAX
- lag2=LAGMAX
- do lag=lag1,lag2
- s0=0.
- s1=0.
- do i=1,126
- j=2*(8*i + 43) + lag
- if(j.ge.1 .and. j.le.nz-8) then
- x=ss(j)+ss(j+8) !Add two half-symbol contributions
- if(npr(i).eq.0) then
- s0=s0 + x
- else
- s1=s1 + x
- endif
- endif
- enddo
- ccf(lag)=nflip*(s1-s0)
- if(ccf(lag).gt.ccfbest) then
- ccfbest=ccf(lag)
- lagpk=lag
- endif
- enddo
-
- return
-end subroutine ccf2
diff --git a/lib/ccf65.f90 b/lib/ccf65.f90
deleted file mode 100644
index 9e667df..0000000
--- a/lib/ccf65.f90
+++ /dev/null
@@ -1,117 +0,0 @@
-subroutine ccf65(ss,nhsym,ssmax,sync1,dt1,flipk,syncshort,snr2,dt2)
-
- parameter (NFFT=512,NH=NFFT/2)
- real ss(322) !Input: half-symbol normalized powers
- real s(NFFT) !CCF = ss*pr
- complex cs(0:NH) !Complex FT of s
- real s2(NFFT) !CCF = ss*pr2
- complex cs2(0:NH) !Complex FT of s2
- real pr(NFFT) !JT65 pseudo-random sync pattern
- complex cpr(0:NH) !Complex FT of pr
- real pr2(NFFT) !JT65 shorthand pattern
- complex cpr2(0:NH) !Complex FT of pr2
- real tmp1(322)
- real ccf(-11:54)
- logical first
- integer npr(126)
- data first/.true./
- equivalence (s,cs),(pr,cpr),(s2,cs2),(pr2,cpr2)
- save
-
-! The JT65 pseudo-random sync pattern:
- data npr/ &
- 1,0,0,1,1,0,0,0,1,1,1,1,1,1,0,1,0,1,0,0, &
- 0,1,0,1,1,0,0,1,0,0,0,1,1,1,0,0,1,1,1,1, &
- 0,1,1,0,1,1,1,1,0,0,0,1,1,0,1,0,1,0,1,1, &
- 0,0,1,1,0,1,0,1,0,1,0,0,1,0,0,0,0,0,0,1, &
- 1,0,0,0,0,0,0,0,1,1,0,1,0,0,1,0,1,1,0,1, &
- 0,1,0,1,0,0,1,1,0,0,1,0,0,1,0,0,0,0,1,1, &
- 1,1,1,1,1,1/
-
- if(first) then
-! Initialize pr, pr2; compute cpr, cpr2.
- fac=1.0/NFFT
- do i=1,NFFT
- pr(i)=0.
- pr2(i)=0.
- k=2*mod((i-1)/8,2)-1
- if(i.le.NH) pr2(i)=fac*k
- enddo
- do i=1,126
- j=2*i
- pr(j)=fac*(2*npr(i)-1)
-! Not sure why, but it works significantly better without the following line:
-! pr(j-1)=pr(j)
- enddo
- call four2a(cpr,NFFT,1,-1,0)
- call four2a(cpr2,NFFT,1,-1,0)
- first=.false.
- endif
-
-! Look for JT65 sync pattern and shorthand square-wave pattern.
- ccfbest=0.
- ccfbest2=0.
- do i=1,nhsym-1
- s(i)=min(ssmax,ss(i)+ss(i+1))
-! s(i)=ss(i)+ss(i+1)
- enddo
-
- call pctile(s,nhsym-1,50,base)
- s(1:nhsym-1)=s(1:nhsym-1)-base
- s(nhsym:NFFT)=0.
- call four2a(cs,NFFT,1,-1,0) !Real-to-complex FFT
- do i=0,NH
-! cs2(i)=cs(i)*conjg(cpr2(i)) !Mult by complex FFT of pr2
- cs(i)=cs(i)*conjg(cpr(i)) !Mult by complex FFT of pr
- enddo
- call four2a(cs,NFFT,1,1,-1) !Complex-to-real inv-FFT
-! call four2a(cs2,NFFT,1,1,-1) !Complex-to-real inv-FFT
-
- do lag=-11,54 !Check for best JT65 sync
- j=lag
- if(j.lt.1) j=j+NFFT
- ccf(lag)=s(j)
-! if(abs(ccf(lag)).gt.ccfbest) then
- if(ccf(lag).gt.ccfbest) then !No inverted sync for use at HF
-! ccfbest=abs(ccf(lag))
- ccfbest=ccf(lag)
- lagpk=lag
- flipk=1.0
-! if(ccf(lag).lt.0.0) flipk=-1.0
- endif
- enddo
-
-! do lag=-11,54 !Check for best shorthand
-! ccf2=s2(lag+28)
-! if(ccf2.gt.ccfbest2) then
-! ccfbest2=ccf2
-! lagpk2=lag
-! endif
-! enddo
-
-! Find rms level on baseline of "ccfblue", for normalization.
- sum=0.
- do lag=-11,54
- if(abs(lag-lagpk).gt.1) sum=sum + ccf(lag)
- enddo
- base=sum/50.0
- sq=0.
- do lag=-11,54
- if(abs(lag-lagpk).gt.1) sq=sq + (ccf(lag)-base)**2
- enddo
- rms=sqrt(sq/49.0)
- sync1=ccfbest/rms - 4.0
- dt1=lagpk*(2048.0/11025.0) - 2.5
-
-! Find base level for normalizing snr2.
- do i=1,nhsym
- tmp1(i)=ss(i)
- enddo
- call pctile(tmp1,nhsym,40,base)
- snr2=0.398107*ccfbest2/base !### empirical
- syncshort=0.5*ccfbest2/rms - 4.0 !### better normalizer than rms?
-! dt2=(2.5 + lagpk2*(2048.0/11025.0))
- dt2=0.
-
- return
-end subroutine ccf65
diff --git a/lib/char.h b/lib/char.h
deleted file mode 100644
index cc477ec..0000000
--- a/lib/char.h
+++ /dev/null
@@ -1,57 +0,0 @@
-/* Include file to configure the RS codec for character symbols
- *
- * Copyright 2002, Phil Karn, KA9Q
- * May be used under the terms of the GNU General Public License (GPL)
- */
-#define DTYPE unsigned char
-
-/* Reed-Solomon codec control block */
-struct rs {
- int mm; /* Bits per symbol */
- int nn; /* Symbols per block (= (1<<mm)-1) */
- DTYPE *alpha_to; /* log lookup table */
- DTYPE *index_of; /* Antilog lookup table */
- DTYPE *genpoly; /* Generator polynomial */
- int nroots; /* Number of generator roots = number of parity symbols */
- int fcr; /* First consecutive root, index form */
- int prim; /* Primitive element, index form */
- int iprim; /* prim-th root of 1, index form */
- int pad; /* Padding bytes in shortened block */
-};
-
-static inline int modnn(struct rs *rs,int x){
- while (x >= rs->nn) {
- x -= rs->nn;
- x = (x >> rs->mm) + (x & rs->nn);
- }
- return x;
-}
-#define MODNN(x) modnn(rs,x)
-
-#define MM (rs->mm)
-#define NN (rs->nn)
-#define ALPHA_TO (rs->alpha_to)
-#define INDEX_OF (rs->index_of)
-#define GENPOLY (rs->genpoly)
-#define NROOTS (rs->nroots)
-#define FCR (rs->fcr)
-#define PRIM (rs->prim)
-#define IPRIM (rs->iprim)
-#define PAD (rs->pad)
-#define A0 (NN)
-
-#define ENCODE_RS encode_rs_char
-#define DECODE_RS decode_rs_char
-#define INIT_RS init_rs_char
-#define FREE_RS free_rs_char
-
-void ENCODE_RS(void *p,DTYPE *data,DTYPE *parity);
-int DECODE_RS(void *p,DTYPE *data,int *eras_pos,int no_eras);
-void *INIT_RS(int symsize,int gfpoly,int fcr,
- int prim,int nroots,int pad);
-void FREE_RS(void *p);
-
-
-
-
-
diff --git a/lib/chkhist.f90 b/lib/chkhist.f90
deleted file mode 100644
index 6aa4a80..0000000
--- a/lib/chkhist.f90
+++ /dev/null
@@ -1,21 +0,0 @@
-subroutine chkhist(mrsym,nmax,ipk)
-
- integer mrsym(63)
- integer hist(0:63)
-
- hist=0
- do j=1,63
- i=mrsym(j)
- hist(i)=hist(i)+1
- enddo
-
- nmax=0
- do i=0,63
- if(hist(i).gt.nmax) then
- nmax=hist(i)
- ipk=i+1
- endif
- enddo
-
- return
-end subroutine chkhist
diff --git a/lib/chkmsg.f90 b/lib/chkmsg.f90
deleted file mode 100644
index ade13bc..0000000
--- a/lib/chkmsg.f90
+++ /dev/null
@@ -1,31 +0,0 @@
-subroutine chkmsg(message,cok,nspecial,flip)
-
- character message*22,cok*3
-
- nspecial=0
- flip=1.0
- cok=" "
-
- do i=22,1,-1
- if(message(i:i).ne.' ') go to 10
- enddo
- i=22
-
-10 if(i.ge.11) then
- if((message(i-3:i).eq.' OOO') .or. (message(20:22).eq.' OO')) then
- cok='OOO'
- flip=-1.0
- if(message(20:22).eq.' OO') then
- message=message(1:19)
- else
- message=message(1:i-4)
- endif
- endif
- endif
-
- if(message(1:2).eq.'RO') nspecial=2
- if(message(1:3).eq.'RRR') nspecial=3
- if(message(1:2).eq.'73') nspecial=4
-
- return
-end subroutine chkmsg
diff --git a/lib/chkss2.f90 b/lib/chkss2.f90
deleted file mode 100644
index 12b2a2e..0000000
--- a/lib/chkss2.f90
+++ /dev/null
@@ -1,24 +0,0 @@
-subroutine chkss2(ss2,freq,drift,schk)
-
- real ss2(0:8,85)
- real s(0:8,85)
- real s1(0:5)
- include 'jt9sync.f90'
-
- ave=sum(ss2)/(9*85)
- if(freq+drift.eq.-999999.0) ave=0. !To silence compiler warning
- s=ss2/ave-1.0
-
-! call zplot9(s,freq,drift)
- s1=0.
- do lag=0,5
- do i=1,16
- j=ii(i)+lag
- if(j.le.85) s1(lag)=s1(lag) + s(0,j)
- enddo
- enddo
- schk=s1(0)/16.0
-
- return
-end subroutine chkss2
-
diff --git a/lib/constants.f90 b/lib/constants.f90
deleted file mode 100644
index 2acf6bb..0000000
--- a/lib/constants.f90
+++ /dev/null
@@ -1,5 +0,0 @@
- parameter (NTMAX=120)
- parameter (NMAX=NTMAX*12000) !Total sample intervals per 30 minutes
- parameter (NDMAX=NTMAX*1500) !Sample intervals at 1500 Hz rate
- parameter (NSMAX=6827) !Max length of saved spectra
- parameter (MAXFFT3=16384)
diff --git a/lib/conv232.f90 b/lib/conv232.f90
deleted file mode 100644
index 3a347e1..0000000
--- a/lib/conv232.f90
+++ /dev/null
@@ -1,38 +0,0 @@
-! Layland-Lushbaugh polynomials for a K=32, r=1/2 convolutional code,
-! and 8-bit parity lookup table.
-
- data npoly1/-221228207/,npoly2/-463389625/
- integer*1 partab(0:255)
- data partab/ &
- 0, 1, 1, 0, 1, 0, 0, 1, &
- 1, 0, 0, 1, 0, 1, 1, 0, &
- 1, 0, 0, 1, 0, 1, 1, 0, &
- 0, 1, 1, 0, 1, 0, 0, 1, &
- 1, 0, 0, 1, 0, 1, 1, 0, &
- 0, 1, 1, 0, 1, 0, 0, 1, &
- 0, 1, 1, 0, 1, 0, 0, 1, &
- 1, 0, 0, 1, 0, 1, 1, 0, &
- 1, 0, 0, 1, 0, 1, 1, 0, &
- 0, 1, 1, 0, 1, 0, 0, 1, &
- 0, 1, 1, 0, 1, 0, 0, 1, &
- 1, 0, 0, 1, 0, 1, 1, 0, &
- 0, 1, 1, 0, 1, 0, 0, 1, &
- 1, 0, 0, 1, 0, 1, 1, 0, &
- 1, 0, 0, 1, 0, 1, 1, 0, &
- 0, 1, 1, 0, 1, 0, 0, 1, &
- 1, 0, 0, 1, 0, 1, 1, 0, &
- 0, 1, 1, 0, 1, 0, 0, 1, &
- 0, 1, 1, 0, 1, 0, 0, 1, &
- 1, 0, 0, 1, 0, 1, 1, 0, &
- 0, 1, 1, 0, 1, 0, 0, 1, &
- 1, 0, 0, 1, 0, 1, 1, 0, &
- 1, 0, 0, 1, 0, 1, 1, 0, &
- 0, 1, 1, 0, 1, 0, 0, 1, &
- 0, 1, 1, 0, 1, 0, 0, 1, &
- 1, 0, 0, 1, 0, 1, 1, 0, &
- 1, 0, 0, 1, 0, 1, 1, 0, &
- 0, 1, 1, 0, 1, 0, 0, 1, &
- 1, 0, 0, 1, 0, 1, 1, 0, &
- 0, 1, 1, 0, 1, 0, 0, 1, &
- 0, 1, 1, 0, 1, 0, 0, 1, &
- 1, 0, 0, 1, 0, 1, 1, 0/
diff --git a/lib/cutil.c b/lib/cutil.c
deleted file mode 100644
index 69a526b..0000000
--- a/lib/cutil.c
+++ /dev/null
@@ -1,93 +0,0 @@
-#include <stdio.h>
-#include <stdlib.h>
-#include <unistd.h>
-#include <sys/types.h>
-#include <sys/stat.h>
-#include <fcntl.h>
-// #include <sys/times.h>
-// #include <time.h>
-// #include <sys/time.h>
-#include "sleep.h"
-#include "timeval.h"
-
-/* FORTRAN: fd = close(filedes) */
-int close_(int *filedes)
-{
-return(close(*filedes));
-}
-/* FORTRAN: fd = open(filnam,mode) */
-int open_(char filnam[], int *mode)
-{
- return(open(filnam,*mode));
-}
-/* FORTRAN: fd = creat(filnam,mode) */
-int creat_(char filnam[],int *mode)
-{
- return(creat(filnam,*mode));
-}
-/* FORTRAN: nread = read(fd,buf,n) */
-int read_(int *fd, char buf[], int *n)
-{
- return(read(*fd,buf,*n));
-}
-/* FORTRAN: nwrt = write(fd,buf,n) */
-int write_(int *fd, char buf[], int *n)
-{
- return(write(*fd,buf,*n));
-}
-/* FORTRAN: ns = lseek(fd,offset,origin) */
-int lseek_(int *fd,int *offset, int *origin)
-{
- return(lseek(*fd,*offset,*origin));
-}
-/* times(2) */
-//int times_(struct tms *buf)
-//{
-// return (times(buf));
-//}
-/* ioperm(2) */
-//ioperm_(from,num,turn_on)
-//unsigned long *from,*num,*turn_on;
-//{
-// return (ioperm(*from,*num,*turn_on));
-// return (i386_get_ioperm(*from,*num,*turn_on));
-//}
-
-/* usleep(3) */
-void usleep_(unsigned long *microsec)
-{
- usleep(*microsec);
-}
-
-/* returns random numbers between 0 and 32767 to FORTRAN program */
-int iran_(int *arg)
-{
- return (rand());
-}
-
-int exit_(int *n)
-{
- printf("\n\n");
- exit(*n);
-}
-
-/*
-struct tm *
-gmtime_r_(const time_t *clock, struct tm *result)
-{
- gmtime_r(clock, result);
-}
-*/
-
-time_t time_(void)
-{
- return time(0);
-}
-
-/* hrtime() */
-double hrtime_(void)
-{
- struct timeval tv;
- gettimeofday(&tv,NULL);
- return(tv.tv_sec+1.e-6*tv.tv_usec);
-}
diff --git a/lib/db.f90 b/lib/db.f90
deleted file mode 100644
index aa58f43..0000000
--- a/lib/db.f90
+++ /dev/null
@@ -1,5 +0,0 @@
-real function db(x)
- db=-99.0
- if(x.gt.1.259e-10) db=10.0*log10(x)
- return
-end function db
diff --git a/lib/decode65a.f90 b/lib/decode65a.f90
deleted file mode 100644
index ea61d35..0000000
--- a/lib/decode65a.f90
+++ /dev/null
@@ -1,95 +0,0 @@
-subroutine decode65a(dd,npts,newdat,f0,nflip,mode65,sync2,a,dt, &
- nbmkv,nhist,decoded)
-
-! Apply AFC corrections to a candidate JT65 signal, then decode it.
-
- parameter (NMAX=60*12000) !Samples per 60 s
- real*4 dd(NMAX) !92 MB: raw data from Linrad timf2
- complex cx(NMAX/8) !Data at 1378.125 samples/s
- complex c5x(NMAX/32) !Data at 344.53125 Hz
- complex c5a(512)
- real s2(66,126)
- real a(5)
- logical first
- character decoded*22
- data first/.true./,jjjmin/1000/,jjjmax/-1000/
- data nhz0/-9999999/
- save
-
-! Mix sync tone to baseband, low-pass filter, downsample to 1378.125 Hz
- dt00=dt
- call timer('filbig ',0)
- call filbig(dd,npts,f0,newdat,cx,n5,sq0)
- call timer('filbig ',1)
-
-! NB: cx has sample rate 12000*77125/672000 = 1378.125 Hz
-
-! Find best DF, f1, f2, and DT. Start by downsampling to 344.53125 Hz
- call timer('fil6521 ',0)
-! Add some zeros at start of c5 arrays -- empirical fix for negative DT's
- nadd=1089
- c5x(:nadd)=0.
- call fil6521(cx,n5,c5x(nadd+1),n6)
- n6=n6+nadd
- call timer('fil6521 ',1)
-
- fsample=1378.125/4.
- a(5)=dt00
- i0=nint((a(5)+0.5)*fsample) - 2 + nadd
- if(i0.lt.1) then
-! write(23,*) 'i0 too small in decode1a:',i0,f0,a(5),fsample,nadd
-! flush(23)
- i0=1
- endif
- nz=n6+1-i0
-
-! We're looking only at sync tone here... so why not downsample by another
-! factor of 1/8, say? Should be a significant execution speed-up.
- call timer('afc65b ',0)
-! Best fit for DF, f1, and f2
- call afc65b(c5x(i0),nz,fsample,nflip,a,ccfbest,dtbest)
- call timer('afc65b ',1)
-
- sync2=3.7e-4*ccfbest/sq0 !Constant is empirical
-
-! Apply AFC corrections to the time-domain signal
-! Now we are back to using the 1378.125 Hz sample rate, enough to
-! accommodate the full JT65C bandwidth.
-
- call timer('twkfreq ',0)
- call twkfreq65(cx,n5,a)
- call timer('twkfreq ',1)
-
-! Compute spectrum for each half symbol.
-! Adding or subtracting a small number (e.g., 5) to j may make it decode.\
-! NB: might want to try computing full-symbol spectra (nfft=512, even for
-! submodes B and C).
-
- nsym=126
- nfft=512
- j=(dt00+dtbest+2.685)*1378.125
- if(j.lt.0) j=0
-
- call timer('sh_ffts ',0)
- do k=1,nsym
- do i=1,nfft
- j=j+1
- c5a(i)=cx(j)
- enddo
- call four2a(c5a,nfft,1,1,1)
- do i=1,66
- jj=i
- if(mode65.eq.2) jj=2*i-1
- if(mode65.eq.4) jj=4*i-3
- s2(i,k)=real(c5a(jj))**2 + aimag(c5a(jj))**2
- enddo
- enddo
- call timer('sh_ffts ',1)
-
- call timer('dec65b ',0)
- call decode65b(s2,nflip,mode65,nbmkv,nhist,decoded)
- dt=dt00 + dtbest + 1.7
- call timer('dec65b ',1)
-
- return
-end subroutine decode65a
diff --git a/lib/decode65b.f90 b/lib/decode65b.f90
deleted file mode 100644
index 729a218..0000000
--- a/lib/decode65b.f90
+++ /dev/null
@@ -1,36 +0,0 @@
-subroutine decode65b(s2,nflip,mode65,nbmkv,nhist,decoded)
-
- real s2(66,126)
- real s3(64,63)
- logical first,ltext
- character decoded*22
- common/prcom/pr(126),mdat(126),mref(126,2),mdat2(126),mref2(126,2)
- data first/.true./
- save
-
- if(first) call setup65
- first=.false.
-
- do j=1,63
- k=mdat(j) !Points to data symbol
- if(nflip.lt.0) k=mdat2(j)
- do i=1,64
- s3(i,j)=s2(i+2,k)
- enddo
- k=mdat2(j) !Points to data symbol
- if(nflip.lt.0) k=mdat(j)
- enddo
-
- nadd=mode65
- call extract(s3,nadd,ncount,nhist,decoded,ltext,nbmkv) !Extract the message
-! Suppress "birdie messages" and other garbage decodes:
- if(decoded(1:7).eq.'000AAA ') ncount=-1
- if(decoded(1:7).eq.'0L6MWK ') ncount=-1
- if(nflip.lt.0 .and. ltext) ncount=-1
- if(ncount.lt.0) then
- nbmkv=0
- decoded=' '
- endif
-
- return
-end subroutine decode65b
diff --git a/lib/decode9.f90 b/lib/decode9.f90
deleted file mode 100644
index 06809eb..0000000
--- a/lib/decode9.f90
+++ /dev/null
@@ -1,85 +0,0 @@
-subroutine decode9(i1SoftSymbols,limit,nlim,msg)
-
-! Decoder for JT9
-! Input: i1SoftSymbols(207) - Single-bit soft symbols
-! Output: msg - decoded message (blank if erasure)
-
- character*22 msg
- integer*4 i4DecodedBytes(9)
- integer*4 i4Decoded6BitWords(12)
- integer*1 i1DecodedBytes(13) !72 bits and zero tail as 8-bit bytes
- integer*1 i1SoftSymbols(207)
- integer*1 i1DecodedBits(72)
-
- real*4 xx0(0:255)
-
- logical first
- integer*4 mettab(0:255,0:1)
- data first/.true./
- data xx0/ & !Metric table
- 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, &
- 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, &
- 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, &
- 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, &
- 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, &
- 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, &
- 0.988, 1.000, 0.991, 0.993, 1.000, 0.995, 1.000, 0.991, &
- 1.000, 0.991, 0.992, 0.991, 0.990, 0.990, 0.992, 0.996, &
- 0.990, 0.994, 0.993, 0.991, 0.992, 0.989, 0.991, 0.987, &
- 0.985, 0.989, 0.984, 0.983, 0.979, 0.977, 0.971, 0.975, &
- 0.974, 0.970, 0.970, 0.970, 0.967, 0.962, 0.960, 0.957, &
- 0.956, 0.953, 0.942, 0.946, 0.937, 0.933, 0.929, 0.920, &
- 0.917, 0.911, 0.903, 0.895, 0.884, 0.877, 0.869, 0.858, &
- 0.846, 0.834, 0.821, 0.806, 0.790, 0.775, 0.755, 0.737, &
- 0.713, 0.691, 0.667, 0.640, 0.612, 0.581, 0.548, 0.510, &
- 0.472, 0.425, 0.378, 0.328, 0.274, 0.212, 0.146, 0.075, &
- 0.000,-0.079,-0.163,-0.249,-0.338,-0.425,-0.514,-0.606, &
- -0.706,-0.796,-0.895,-0.987,-1.084,-1.181,-1.280,-1.376, &
- -1.473,-1.587,-1.678,-1.790,-1.882,-1.992,-2.096,-2.201, &
- -2.301,-2.411,-2.531,-2.608,-2.690,-2.829,-2.939,-3.058, &
- -3.164,-3.212,-3.377,-3.463,-3.550,-3.768,-3.677,-3.975, &
- -4.062,-4.098,-4.186,-4.261,-4.472,-4.621,-4.623,-4.608, &
- -4.822,-4.870,-4.652,-4.954,-5.108,-5.377,-5.544,-5.995, &
- -5.632,-5.826,-6.304,-6.002,-6.559,-6.369,-6.658,-7.016, &
- -6.184,-7.332,-6.534,-6.152,-6.113,-6.288,-6.426,-6.313, &
- -9.966,-6.371,-9.966,-7.055,-9.966,-6.629,-6.313,-9.966, &
- -5.858,-9.966,-9.966,-9.966,-9.966,-9.966,-9.966,-9.966, &
- -9.966,-9.966,-9.966,-9.966,-9.966,-9.966,-9.966,-9.966, &
- -9.966,-9.966,-9.966,-9.966,-9.966,-9.966,-9.966,-9.966, &
- -9.966,-9.966,-9.966,-9.966,-9.966,-9.966,-9.966,-9.966, &
- -9.966,-9.966,-9.966,-9.966,-9.966,-9.966,-9.966,-9.966, &
- -9.966,-9.966,-9.966,-9.966,-9.966,-9.966,-9.966,-9.966/
- save
-
- if(first) then
-! Get the metric table
- bias=0.5
- scale=10
- do i=0,255
- mettab(i,0)=nint(scale*(xx0(i)-bias))
- if(i.ge.1) mettab(256-i,1)=mettab(i,0)
- enddo
- first=.false.
- endif
-
- msg=' '
- nbits=72
- ndelta=17
- call fano232(i1SoftSymbols,nbits+31,mettab,ndelta,limit,i1DecodedBytes, &
- ncycles,metric,ierr)
-
- nlim=ncycles/(nbits+31)
- if(ncycles.lt.(nbits*limit)) then
- nbytes=(nbits+7)/8
- do i=1,nbytes
- n=i1DecodedBytes(i)
- i4DecodedBytes(i)=iand(n,255)
- enddo
- call unpackbits(i4DecodedBytes,nbytes,8,i1DecodedBits)
- call packbits(i1DecodedBits,12,6,i4Decoded6BitWords)
- call unpackmsg(i4Decoded6BitWords,msg) !Unpack decoded msg
- if(index(msg,'000AAA ').gt.0) msg=' '
- endif
-
- return
-end subroutine decode9
diff --git a/lib/decode_rs.c b/lib/decode_rs.c
deleted file mode 100644
index ac85edd..0000000
--- a/lib/decode_rs.c
+++ /dev/null
@@ -1,263 +0,0 @@
-/* Reed-Solomon decoder
- * Copyright 2002 Phil Karn, KA9Q
- * May be used under the terms of the GNU General Public License (GPL)
- */
-
-#ifdef DEBUG
-#include <stdio.h>
-#endif
-
-#include <string.h>
-
-//#define NULL ((void *)0)
-#define min(a,b) ((a) < (b) ? (a) : (b))
-
-#ifdef FIXED
-#include "fixed.h"
-#elif defined(BIGSYM)
-#include "int.h"
-#else
-#include "char.h"
-#endif
-
-int DECODE_RS(
-#ifdef FIXED
-DTYPE *data, int *eras_pos, int no_eras,int pad){
-#else
-void *p,DTYPE *data, int *eras_pos, int no_eras){
- struct rs *rs = (struct rs *)p;
-#endif
- int deg_lambda, el, deg_omega;
- int i, j, r,k;
- DTYPE u,q,tmp,num1,num2,den,discr_r;
- DTYPE lambda[NROOTS+1], s[NROOTS]; /* Err+Eras Locator poly
- * and syndrome poly */
- DTYPE b[NROOTS+1], t[NROOTS+1], omega[NROOTS+1];
- DTYPE root[NROOTS], reg[NROOTS+1], loc[NROOTS];
- int syn_error, count;
-
-#ifdef FIXED
- /* Check pad parameter for validity */
- if(pad < 0 || pad >= NN)
- return -1;
-#endif
-
- /* form the syndromes; i.e., evaluate data(x) at roots of g(x) */
- for(i=0;i<NROOTS;i++)
- s[i] = data[0];
-
- for(j=1;j<NN-PAD;j++){
- for(i=0;i<NROOTS;i++){
- if(s[i] == 0){
- s[i] = data[j];
- } else {
- s[i] = data[j] ^ ALPHA_TO[MODNN(INDEX_OF[s[i]] + (FCR+i)*PRIM)];
- }
- }
- }
-
- /* Convert syndromes to index form, checking for nonzero condition */
- syn_error = 0;
- for(i=0;i<NROOTS;i++){
- syn_error |= s[i];
- s[i] = INDEX_OF[s[i]];
- }
-
- if (!syn_error) {
- /* if syndrome is zero, data[] is a codeword and there are no
- * errors to correct. So return data[] unmodified
- */
- count = 0;
- goto finish;
- }
- memset(&lambda[1],0,NROOTS*sizeof(lambda[0]));
- lambda[0] = 1;
-
- if (no_eras > 0) {
- /* Init lambda to be the erasure locator polynomial */
- lambda[1] = ALPHA_TO[MODNN(PRIM*(NN-1-eras_pos[0]))];
- for (i = 1; i < no_eras; i++) {
- u = MODNN(PRIM*(NN-1-eras_pos[i]));
- for (j = i+1; j > 0; j--) {
- tmp = INDEX_OF[lambda[j - 1]];
- if(tmp != A0)
- lambda[j] ^= ALPHA_TO[MODNN(u + tmp)];
- }
- }
-
-#if DEBUG >= 1
- /* Test code that verifies the erasure locator polynomial just constructed
- Needed only for decoder debugging. */
-
- /* find roots of the erasure location polynomial */
- for(i=1;i<=no_eras;i++)
- reg[i] = INDEX_OF[lambda[i]];
-
- count = 0;
- for (i = 1,k=IPRIM-1; i <= NN; i++,k = MODNN(k+IPRIM)) {
- q = 1;
- for (j = 1; j <= no_eras; j++)
- if (reg[j] != A0) {
- reg[j] = MODNN(reg[j] + j);
- q ^= ALPHA_TO[reg[j]];
- }
- if (q != 0)
- continue;
- /* store root and error location number indices */
- root[count] = i;
- loc[count] = k;
- count++;
- }
- if (count != no_eras) {
- printf("count = %d no_eras = %d\n lambda(x) is WRONG\n",count,no_eras);
- count = -1;
- goto finish;
- }
-#if DEBUG >= 2
- printf("\n Erasure positions as determined by roots of Eras Loc Poly:\n");
- for (i = 0; i < count; i++)
- printf("%d ", loc[i]);
- printf("\n");
-#endif
-#endif
- }
- for(i=0;i<NROOTS+1;i++)
- // printf("%d %d %d\n",i,lambda[i],INDEX_OF[lambda[i]]);
- b[i] = INDEX_OF[lambda[i]];
-
- /*
- * Begin Berlekamp-Massey algorithm to determine error+erasure
- * locator polynomial
- */
- r = no_eras;
- el = no_eras;
- while (++r <= NROOTS) { /* r is the step number */
- /* Compute discrepancy at the r-th step in poly-form */
- discr_r = 0;
- for (i = 0; i < r; i++){
- if ((lambda[i] != 0) && (s[r-i-1] != A0)) {
- discr_r ^= ALPHA_TO[MODNN(INDEX_OF[lambda[i]] + s[r-i-1])];
- }
- }
- discr_r = INDEX_OF[discr_r]; /* Index form */
- if (discr_r == A0) {
- /* 2 lines below: B(x) <-- x*B(x) */
- memmove(&b[1],b,NROOTS*sizeof(b[0]));
- b[0] = A0;
- } else {
- /* 7 lines below: T(x) <-- lambda(x) - discr_r*x*b(x) */
- t[0] = lambda[0];
- for (i = 0 ; i < NROOTS; i++) {
- if(b[i] != A0)
- t[i+1] = lambda[i+1] ^ ALPHA_TO[MODNN(discr_r + b[i])];
- else
- t[i+1] = lambda[i+1];
- }
- if (2 * el <= r + no_eras - 1) {
- el = r + no_eras - el;
- /*
- * 2 lines below: B(x) <-- inv(discr_r) *
- * lambda(x)
- */
- for (i = 0; i <= NROOTS; i++)
- b[i] = (lambda[i] == 0) ? A0 : MODNN(INDEX_OF[lambda[i]] - discr_r + NN);
- } else {
- /* 2 lines below: B(x) <-- x*B(x) */
- memmove(&b[1],b,NROOTS*sizeof(b[0]));
- b[0] = A0;
- }
- memcpy(lambda,t,(NROOTS+1)*sizeof(t[0]));
- }
- }
-
- /* Convert lambda to index form and compute deg(lambda(x)) */
- deg_lambda = 0;
- for(i=0;i<NROOTS+1;i++){
- lambda[i] = INDEX_OF[lambda[i]];
- if(lambda[i] != A0)
- deg_lambda = i;
- }
- /* Find roots of the error+erasure locator polynomial by Chien search */
- memcpy(®[1],&lambda[1],NROOTS*sizeof(reg[0]));
- count = 0; /* Number of roots of lambda(x) */
- for (i = 1,k=IPRIM-1; i <= NN; i++,k = MODNN(k+IPRIM)) {
- q = 1; /* lambda[0] is always 0 */
- for (j = deg_lambda; j > 0; j--){
- if (reg[j] != A0) {
- reg[j] = MODNN(reg[j] + j);
- q ^= ALPHA_TO[reg[j]];
- }
- }
- if (q != 0)
- continue; /* Not a root */
- /* store root (index-form) and error location number */
-#if DEBUG>=2
- printf("count %d root %d loc %d\n",count,i,k);
-#endif
- root[count] = i;
- loc[count] = k;
- /* If we've already found max possible roots,
- * abort the search to save time
- */
- if(++count == deg_lambda)
- break;
- }
- if (deg_lambda != count) {
- /*
- * deg(lambda) unequal to number of roots => uncorrectable
- * error detected
- */
- count = -1;
- goto finish;
- }
- /*
- * Compute err+eras evaluator poly omega(x) = s(x)*lambda(x) (modulo
- * x**NROOTS). in index form. Also find deg(omega).
- */
- deg_omega = deg_lambda-1;
- for (i = 0; i <= deg_omega;i++){
- tmp = 0;
- for(j=i;j >= 0; j--){
- if ((s[i - j] != A0) && (lambda[j] != A0))
- tmp ^= ALPHA_TO[MODNN(s[i - j] + lambda[j])];
- }
- omega[i] = INDEX_OF[tmp];
- }
-
- /*
- * Compute error values in poly-form. num1 = omega(inv(X(l))), num2 =
- * inv(X(l))**(FCR-1) and den = lambda_pr(inv(X(l))) all in poly-form
- */
- for (j = count-1; j >=0; j--) {
- num1 = 0;
- for (i = deg_omega; i >= 0; i--) {
- if (omega[i] != A0)
- num1 ^= ALPHA_TO[MODNN(omega[i] + i * root[j])];
- }
- num2 = ALPHA_TO[MODNN(root[j] * (FCR - 1) + NN)];
- den = 0;
-
- /* lambda[i+1] for i even is the formal derivative lambda_pr of lambda[i] */
- for (i = min(deg_lambda,NROOTS-1) & ~1; i >= 0; i -=2) {
- if(lambda[i+1] != A0)
- den ^= ALPHA_TO[MODNN(lambda[i+1] + i * root[j])];
- }
-#if DEBUG >= 1
- if (den == 0) {
- printf("\n ERROR: denominator = 0\n");
- count = -1;
- goto finish;
- }
-#endif
- /* Apply error to data */
- if (num1 != 0 && loc[j] >= PAD) {
- data[loc[j]-PAD] ^= ALPHA_TO[MODNN(INDEX_OF[num1] + INDEX_OF[num2] + NN - INDEX_OF[den])];
- }
- }
- finish:
- if(eras_pos != NULL){
- for(i=0;i<count;i++)
- eras_pos[i] = loc[i];
- }
- return count;
-}
diff --git a/lib/decoder.f90 b/lib/decoder.f90
deleted file mode 100644
index 83e63a2..0000000
--- a/lib/decoder.f90
+++ /dev/null
@@ -1,173 +0,0 @@
-subroutine decoder(ss,id2)
-
-! Decoder for JT9.
-
- include 'constants.f90'
- real ss(184,NSMAX)
- character*22 msg
- character*20 datetime
- real*4 ccfred(NSMAX)
- real*4 red2(NSMAX)
- logical ccfok(NSMAX)
- logical done(NSMAX)
- logical done65
- integer*2 id2(NTMAX*12000)
- real*4 dd(NTMAX*12000)
- integer*1 i1SoftSymbols(207)
- common/npar/nutc,ndiskdat,ntrperiod,nfqso,newdat,npts8,nfa,nfb,ntol, &
- kin,nzhsym,nsave,nagain,ndepth,ntxmode,nmode,datetime
- common/tracer/limtrace,lu
- save
-
- call system_clock(iclock0,iclock_rate,iclock_max) !###
- nfreqs0=0
- nfreqs1=0
- ndecodes0=0
- ndecodes1=0
-
- open(13,file='decoded.txt',status='unknown')
- open(22,file='kvasd.dat',access='direct',recl=1024,status='unknown')
-
- npts65=52*12000
- ntol65=20
- done65=.false.
- if(nmode.ge.65 .and. ntxmode.eq.65) then
- if(newdat.ne.0) dd(1:npts65)=id2(1:npts65)
- call jt65a(dd,npts65,newdat,nutc,nfa,nfqso,ntol65,nagain,ndecoded)
- done65=.true.
- endif
-
- if(nmode.eq.65) go to 800
-
- nsynced=0
- ndecoded=0
- nsps=0
-
- nsps=6912 !Params for JT9-1
- df3=1500.0/2048.0
-
- tstep=0.5*nsps/12000.0 !Half-symbol step (seconds)
- done=.false.
-
- nf0=0
- ia=max(1,nint((nfa-nf0)/df3))
- ib=min(NSMAX,nint((nfb-nf0)/df3))
- lag1=-(2.5/tstep + 0.9999)
- lag2=5.0/tstep + 0.9999
- if(newdat.ne.0) then
- call timer('sync9 ',0)
- call sync9(ss,nzhsym,lag1,lag2,ia,ib,ccfred,red2,ipk)
- call timer('sync9 ',1)
- endif
-
- nsps8=nsps/8
- df8=1500.0/nsps8
- dblim=db(864.0/nsps8) - 26.2
-
- do nqd=1,0,-1
- limit=1000
- ccflim=4.0
- red2lim=1.6
- schklim=2.2
- if(ndepth.eq.2) then
- limit=10000
- ccflim=3.5
- endif
- if(ndepth.ge.3 .or. nqd.eq.1) then
- limit=100000
- ccflim=2.5
- endif
- ccfok=.false.
-
- if(nqd.eq.1) then
- nfa1=nfqso-ntol
- nfb1=nfqso+ntol
- ia=max(1,nint((nfa1-nf0)/df3))
- ib=min(NSMAX,nint((nfb1-nf0)/df3))
- ccfok(ia:ib)=(ccfred(ia:ib).gt.(ccflim-2.0)) .and. &
- (red2(ia:ib).gt.(red2lim-1.0))
- ia1=ia
- ib1=ib
- else
- nfa1=nfa
- nfb1=nfb
- ia=max(1,nint((nfa1-nf0)/df3))
- ib=min(NSMAX,nint((nfb1-nf0)/df3))
- do i=ia,ib
- ccfok(i)=ccfred(i).gt.ccflim .and. red2(i).gt.red2lim
- enddo
- ccfok(ia1:ib1)=.false.
- endif
-
- fgood=0.
- do i=ia,ib
- if(done(i) .or. (.not.ccfok(i))) cycle
- f=(i-1)*df3
- if(nqd.eq.1 .or. &
- (ccfred(i).ge.ccflim .and. abs(f-fgood).gt.10.0*df8)) then
-
- if(nqd.eq.0) nfreqs0=nfreqs0+1
- if(nqd.eq.1) nfreqs1=nfreqs1+1
-
- call timer('softsym ',0)
- fpk=nf0 + df3*(i-1)
-
- call softsym(id2,npts8,nsps8,newdat,fpk,syncpk,snrdb,xdt, &
- freq,drift,schk,i1SoftSymbols)
- call timer('softsym ',1)
-
-! write(71,3001) nqd,i,f,fpk,ccfred(i),red2(i),schk
-!3001 format(2i6,2f8.1,3f6.1)
-! call flush(71)
-
- if(schk.lt.schklim) cycle
-
- call timer('decode9 ',0)
- call decode9(i1SoftSymbols,limit,nlim,msg)
- call timer('decode9 ',1)
-
- sync=(syncpk+1)/4.0
- if(sync.lt.0.0 .or. snrdb.lt.dblim-2.0) sync=0.0
- nsync=sync
- if(nsync.gt.10) nsync=10
- nsnr=nint(snrdb)
- ndrift=nint(drift/df3)
-
- if(msg.ne.' ') then
- if(nqd.eq.0) ndecodes0=ndecodes0+1
- if(nqd.eq.1) ndecodes1=ndecodes1+1
-
- write(*,1000) nutc,nsnr,xdt,nint(freq),msg
-1000 format(i4.4,i4,f5.1,i5,1x,'@',1x,a22)
- write(13,1002) nutc,nsync,nsnr,xdt,freq,ndrift,msg
-1002 format(i4.4,i4,i5,f6.1,f8.0,i4,3x,a22,' JT9')
-
- iaa=max(1,i-1)
- ibb=min(NSMAX,i+22)
- fgood=f
- nsynced=1
- ndecoded=1
- ccfok(iaa:ibb)=.false.
- done(iaa:ibb)=.true.
- call flush(6)
- endif
- endif
- enddo
- call flush(6)
- if(nagain.ne.0) exit
- enddo
-
- if(nmode.ge.65 .and. (.not.done65)) then
- if(newdat.ne.0) dd(1:npts65)=id2(1:npts65)
- call jt65a(dd,npts65,newdat,nutc,nfa,nfqso,ntol65,nagain,ndecoded)
- endif
-
-!### JT65 is not yet producing info for nsynced, ndecoded.
-800 write(*,1010) nsynced,ndecoded
-1010 format('<DecodeFinished>',2i4)
- call flush(6)
- close(13)
- close(22)
-
- return
-end subroutine decoder
diff --git a/lib/deep24.f90 b/lib/deep24.f90
deleted file mode 100644
index 70a69ae..0000000
--- a/lib/deep24.f90
+++ /dev/null
@@ -1,182 +0,0 @@
-subroutine deep24(sym,neme,flip,mycall,hiscall,hisgrid,decoded,qual)
-
-! Have barely begun converting this from JT65 to JT4
-
- parameter (MAXCALLS=7000,MAXRPT=63)
- real*4 sym(206)
- character callsign*12,grid*4,message*22,hisgrid*6,c*1,ceme*3
- character*12 mycall,hiscall
- character mycall0*12,hiscall0*12,hisgrid0*6
- character*22 decoded
- character*22 testmsg(2*MAXCALLS + 2 + MAXRPT)
- character*15 callgrid(MAXCALLS)
- character*180 line
- character*4 rpt(MAXRPT)
- integer ncode(206)
- real*4 code(206,2*MAXCALLS + 2 + MAXRPT)
- real pp(2*MAXCALLS + 2 + MAXRPT)
-! common/c3com/ mcall3a
-
- data neme0/-99/
- data rpt/'-01','-02','-03','-04','-05', &
- '-06','-07','-08','-09','-10', &
- '-11','-12','-13','-14','-15', &
- '-16','-17','-18','-19','-20', &
- '-21','-22','-23','-24','-25', &
- '-26','-27','-28','-29','-30', &
- 'R-01','R-02','R-03','R-04','R-05', &
- 'R-06','R-07','R-08','R-09','R-10', &
- 'R-11','R-12','R-13','R-14','R-15', &
- 'R-16','R-17','R-18','R-19','R-20', &
- 'R-21','R-22','R-23','R-24','R-25', &
- 'R-26','R-27','R-28','R-29','R-30', &
- 'RO','RRR','73'/
- save
-
- if(mycall.eq.mycall0 .and. hiscall.eq.hiscall0 .and. &
- hisgrid.eq.hisgrid0 .and. mcall3a.eq.0 .and. neme.eq.neme0) go to 30
-
- mcall3a=0
- rewind 23
- k=0
- icall=0
- do n=1,MAXCALLS
- if(n.eq.1) then
- callsign=hiscall
- do i=4,12
- if(ichar(callsign(i:i)).eq.0) callsign(i:i)=' '
- enddo
- grid=hisgrid(1:4)
- if(ichar(grid(3:3)).eq.0) grid(3:3)=' '
- if(ichar(grid(4:4)).eq.0) grid(4:4)=' '
- else
- read(23,1002,end=20) line
-1002 format (A80)
- if(line(1:4).eq.'ZZZZ') go to 20
- if(line(1:2).eq.'//') go to 10
- i1=index(line,',')
- if(i1.lt.4) go to 10
- i2=index(line(i1+1:),',')
- if(i2.lt.5) go to 10
- i2=i2+i1
- i3=index(line(i2+1:),',')
- if(i3.lt.1) i3=index(line(i2+1:),' ')
- i3=i2+i3
- callsign=line(1:i1-1)
- grid=line(i1+1:i2-1)
- ceme=line(i2+1:i3-1)
- if(neme.eq.1 .and. ceme.ne.'EME') go to 10
- endif
-
- icall=icall+1
- j1=index(mycall,' ') - 1
- if(j1.le.-1) j1=12
- if(j1.lt.3) j1=6
- j2=index(callsign,' ') - 1
- if(j2.le.-1) j2=12
- if(j2.lt.3) j2=6
- j3=index(mycall,'/') ! j3>0 means compound mycall
- j4=index(callsign,'/') ! j4>0 means compound hiscall
- callgrid(icall)=callsign(1:j2)
-
- mz=1
-! Allow MyCall + HisCall + rpt (?)
- if(n.eq.1 .and. j3.lt.1 .and. j4.lt.1 .and. &
- flip.gt.0.0 .and. callsign(1:6).ne.' ') mz=MAXRPT+1
- do m=1,mz
- if(m.gt.1) grid=rpt(m-1)
- if(j3.lt.1 .and.j4.lt.1) callgrid(icall)=callsign(1:j2)//' '//grid
- message=mycall(1:j1)//' '//callgrid(icall)
- k=k+1
- testmsg(k)=message
- call encode4(message,ncode)
- code(1:206,k)=2*ncode(1:206)-1
- if(n.ge.2) then
-! Insert CQ message
- if(j4.lt.1) callgrid(icall)=callsign(1:j2)//' '//grid
- message='CQ '//callgrid(icall)
- k=k+1
- testmsg(k)=message
- call encode4(message,ncode)
- code(1:206,k)=2*ncode(1:206)-1
- endif
- enddo
-10 continue
- enddo
-
-20 continue
- ntot=k
- neme0=neme
-
-30 mycall0=mycall
- hiscall0=hiscall
- hisgrid0=hisgrid
-
- sq=0.
- do j=1,206
- sq=sq + sym(j)**2
- enddo
- rms=sqrt(sq/206.0)
- sym=sym/rms
-
- p1=-1.e30
- p2=-1.e30
- do k=1,ntot
- pp(k)=0.
-! Test all messages if flip=+1; skip the CQ messages if flip=-1.
- if(flip.gt.0.0 .or. testmsg(k)(1:3).ne.'CQ ') then
- p=0.
- do j=1,206
- i=code(j,k)+1
- p=p + code(j,k)*sym(j)
- enddo
- pp(k)=p
- if(p.gt.p1) then
- p1=p
- ip1=k
- endif
- endif
- enddo
-
- do i=1,ntot
- if(pp(i).gt.p2 .and. pp(i).ne.p1) p2=pp(i)
- enddo
-
-! ### DO NOT REMOVE ###
-! rewind 77
-! write(77,*) p1,p2
-! ### Works OK without it (in both Windows and Linux) if compiled
-! ### without optimization. However, in Windows this is a colossal
-! ### pain because of the way F2PY wants to run the compile step.
-
-
- bias=1.1*p2
-! if(mode65.eq.1) bias=max(1.12*p2,0.335)
-! if(mode65.eq.2) bias=max(1.08*p2,0.405)
-! if(mode65.ge.4) bias=max(1.04*p2,0.505)
-
- if(p2.eq.p1 .and. p1.ne.-1.e30) stop 'Error in deep24'
- qual=10.0*(p1-bias)
-
- decoded=' '
- c=' '
-
- if(qual.gt.1.0) then
- if(qual.lt.6.0) c='?'
- decoded=testmsg(ip1)
- else
- qual=0.
- endif
- decoded(22:22)=c
-
-! Make sure everything is upper case.
- do i=1,22
- if(decoded(i:i).ge.'a' .and. decoded(i:i).le.'z') &
- decoded(i:i)=char(ichar(decoded(i:i))-32)
- enddo
-
-! write(*,3010) p1,p2,p1-p2,p1/p2,qual,decoded
-!3010 format('DS:',5f9.1,2x,a22)
-
- return
-end subroutine deep24
diff --git a/lib/deg2grid.f90 b/lib/deg2grid.f90
deleted file mode 100644
index 4fdc2af..0000000
--- a/lib/deg2grid.f90
+++ /dev/null
@@ -1,30 +0,0 @@
-subroutine deg2grid(dlong0,dlat,grid)
-
- real dlong !West longitude (deg)
- real dlat !Latitude (deg)
- character grid*6
-
- dlong=dlong0
- if(dlong.lt.-180.0) dlong=dlong+360.0
- if(dlong.gt.180.0) dlong=dlong-360.0
-
-! Convert to units of 5 min of longitude, working east from 180 deg.
- nlong=int(60.0*(180.0-dlong)/5.0)
- n1=nlong/240 !20-degree field
- n2=(nlong-240*n1)/24 !2 degree square
- n3=nlong-240*n1-24*n2 !5 minute subsquare
- grid(1:1)=char(ichar('A')+n1)
- grid(3:3)=char(ichar('0')+n2)
- grid(5:5)=char(ichar('a')+n3)
-
-! Convert to units of 2.5 min of latitude, working north from -90 deg.
- nlat=int(60.0*(dlat+90)/2.5)
- n1=nlat/240 !10-degree field
- n2=(nlat-240*n1)/24 !1 degree square
- n3=nlat-240*n1-24*n2 !2.5 minuts subsquare
- grid(2:2)=char(ichar('A')+n1)
- grid(4:4)=char(ichar('0')+n2)
- grid(6:6)=char(ichar('a')+n3)
-
- return
-end subroutine deg2grid
diff --git a/lib/demod64a.f90 b/lib/demod64a.f90
deleted file mode 100644
index 9d1a379..0000000
--- a/lib/demod64a.f90
+++ /dev/null
@@ -1,73 +0,0 @@
-subroutine demod64a(s3,nadd,mrsym,mrprob,mr2sym,mr2prob,ntest,nlow)
-
-! Demodulate the 64-bin spectra for each of 63 symbols in a frame.
-
-! Parameters
-! nadd number of spectra already summed
-! mrsym most reliable symbol value
-! mr2sym second most likely symbol value
-! mrprob probability that mrsym was the transmitted value
-! mr2prob probability that mr2sym was the transmitted value
-
- implicit real*8 (a-h,o-z)
- real*4 s3(64,63)
- real*8 fs(64)
- integer mrsym(63),mrprob(63),mr2sym(63),mr2prob(63)
-! common/mrscom/ mrs(63),mrs2(63)
-
- if(nadd.eq.-999) return
- afac=1.1 * float(nadd)**0.64
- scale=255.999
-
-! Compute average spectral value
- sum=0.
- do j=1,63
- do i=1,64
- sum=sum+s3(i,j)
- enddo
- enddo
- ave=sum/(64.*63.)
- i1=1 !Silence warning
- i2=1
-
-! Compute probabilities for most reliable symbol values
- do j=1,63
- s1=-1.e30
- fsum=0.
- do i=1,64
- x=min(afac*s3(i,j)/ave,50.d0)
- fs(i)=exp(x)
- fsum=fsum+fs(i)
- if(s3(i,j).gt.s1) then
- s1=s3(i,j)
- i1=i !Most reliable
- endif
- enddo
-
- s2=-1.e30
- do i=1,64
- if(i.ne.i1 .and. s3(i,j).gt.s2) then
- s2=s3(i,j)
- i2=i !Second most reliable
- endif
- enddo
- p1=fs(i1)/fsum !Normalized probabilities
- p2=fs(i2)/fsum
- mrsym(j)=i1-1
- mr2sym(j)=i2-1
- mrprob(j)=scale*p1
- mr2prob(j)=scale*p2
-! mrs(j)=i1
-! mrs2(j)=i2
- enddo
-
- sum=0.
- nlow=0
- do j=1,63
- sum=sum+mrprob(j)
- if(mrprob(j).le.5) nlow=nlow+1
- enddo
- ntest=sum/63
-
- return
-end subroutine demod64a
diff --git a/lib/downsam9.f90 b/lib/downsam9.f90
deleted file mode 100644
index 851d497..0000000
--- a/lib/downsam9.f90
+++ /dev/null
@@ -1,66 +0,0 @@
-subroutine downsam9(id2,npts8,nsps8,newdat,nspsd,fpk,c2,nz2)
-
-!Downsample from id2() into C2() so as to yield nspsd samples per symbol,
-!mixing from fpk down to zero frequency.
-
- include 'constants.f90'
- parameter (NMAX1=1024*1920)
- integer*2 id2(0:8*npts8-1)
- real*4 x1(0:NMAX1-1)
- complex c1(0:NMAX1/2)
- complex c2(0:4096-1)
- real s(5000)
- equivalence (c1,x1)
- save
-
- nfft1=1024*nsps8 !Forward FFT length
- df1=12000.0/nfft1
- npts=8*npts8
-
- if(newdat.eq.1) then
- fac=6.963e-6 !Why this weird constant?
- do i=0,npts-1
- x1(i)=fac*id2(i)
- enddo
- x1(npts:nfft1-1)=0. !Zero the rest of x1
- call timer('fft_forw',0)
- call four2a(c1,nfft1,1,-1,0) !Forward FFT, r2c
- call timer('fft_forw',1)
-
- nadd=1.0/df1
- s=0.
- do i=1,5000
- j=(i-1)/df1
- do n=1,nadd
- j=j+1
- s(i)=s(i)+real(c1(j))**2 + aimag(c1(j))**2
- enddo
- enddo
- endif
-
- ndown=8*nsps8/nspsd !Downsample factor
- nfft2=nfft1/ndown !Backward FFT length
- nh2=nfft2/2
- nf=nint(fpk)
- i0=fpk/df1
-
- nw=100
- ia=max(1,nf-nw)
- ib=min(5000,nf+nw)
- call timer('pctile_1',0)
- call pctile(s(ia),ib-ia+1,40,avenoise)
- call timer('pctile_1',1)
-
- fac=sqrt(1.0/avenoise)
- do i=0,nfft2-1
- j=i0+i
- if(i.gt.nh2) j=j-nfft2
- c2(i)=fac*c1(j)
- enddo
- call timer('fft_back',0)
- call four2a(c2,nfft2,1,1,1) !FFT back to time domain
- call timer('fft_back',1)
- nz2=8*npts8/ndown
-
- return
-end subroutine downsam9
diff --git a/lib/encode232.f90 b/lib/encode232.f90
deleted file mode 100644
index bc904b4..0000000
--- a/lib/encode232.f90
+++ /dev/null
@@ -1,33 +0,0 @@
-subroutine encode232(dat,nsym,symbol)
-
-! Convolutional encoder for a K=32, r=1/2 code.
-
- integer*1 dat(13) !User data, packed 8 bits per byte
- integer*1 symbol(500) !Channel symbols, one bit per byte
- integer*1 i1
- include 'conv232.f90'
-
- nstate=0
- k=0
- do j=1,nsym
- do i=7,0,-1
- i1=dat(j)
- i4=i1
- if (i4.lt.0) i4=i4+256
- nstate=ior(ishft(nstate,1),iand(ishft(i4,-i),1))
- n=iand(nstate,npoly1)
- n=ieor(n,ishft(n,-16))
- k=k+1
- symbol(k)=partab(iand(ieor(n,ishft(n,-8)),255))
- n=iand(nstate,npoly2)
- n=ieor(n,ishft(n,-16))
- k=k+1
- symbol(k)=partab(iand(ieor(n,ishft(n,-8)),255))
- if(k.ge.nsym) go to 100
- enddo
- enddo
-
-100 continue
-
- return
-end subroutine encode232
diff --git a/lib/encode4.f90 b/lib/encode4.f90
deleted file mode 100644
index 64b9dfc..0000000
--- a/lib/encode4.f90
+++ /dev/null
@@ -1,20 +0,0 @@
-subroutine encode4(message,ncode)
-
- parameter (MAXCALLS=7000,MAXRPT=63)
- integer ncode(206)
- character*22 message !Message to be generated
- character*3 cok !' ' or 'OOO'
- integer dgen(13)
- integer*1 data0(13),symbol(216)
- logical text
-
- call chkmsg(message,cok,nspecial,flip)
- call packmsg(message,dgen,text) !Pack 72-bit message into 12 six-bit symbols
- call entail(dgen,data0)
- call encode232(data0,206,symbol) !Convolutional encoding
- call interleave24(symbol,1) !Apply JT4 interleaving
- do i=1,206
- ncode(i)=symbol(i)
- enddo
-
-end subroutine encode4
diff --git a/lib/encode_rs.c b/lib/encode_rs.c
deleted file mode 100644
index 911bc36..0000000
--- a/lib/encode_rs.c
+++ /dev/null
@@ -1,52 +0,0 @@
-/* Reed-Solomon encoder
- * Copyright 2002, Phil Karn, KA9Q
- * May be used under the terms of the GNU General Public License (GPL)
- */
-#include <string.h>
-
-#ifdef FIXED
-#include "fixed.h"
-#elif defined(BIGSYM)
-#include "int.h"
-#else
-#include "char.h"
-#endif
-
-void ENCODE_RS(
-#ifdef FIXED
-DTYPE *data, DTYPE *bb,int pad){
-#else
-void *p,DTYPE *data, DTYPE *bb){
- struct rs *rs = (struct rs *)p;
-#endif
- int i, j;
- DTYPE feedback;
-
-#ifdef FIXED
- /* Check pad parameter for validity */
- if(pad < 0 || pad >= NN)
- return;
-#endif
-
- memset(bb,0,NROOTS*sizeof(DTYPE));
-
- for(i=0;i<NN-NROOTS-PAD;i++){
- feedback = INDEX_OF[data[i] ^ bb[0]];
- if(feedback != A0){ /* feedback term is non-zero */
-#ifdef UNNORMALIZED
- /* This line is unnecessary when GENPOLY[NROOTS] is unity, as it must
- * always be for the polynomials constructed by init_rs()
- */
- feedback = MODNN(NN - GENPOLY[NROOTS] + feedback);
-#endif
- for(j=1;j<NROOTS;j++)
- bb[j] ^= ALPHA_TO[MODNN(feedback + GENPOLY[NROOTS-j])];
- }
- /* Shift */
- memmove(&bb[0],&bb[1],sizeof(DTYPE)*(NROOTS-1));
- if(feedback != A0)
- bb[NROOTS-1] = ALPHA_TO[MODNN(feedback + GENPOLY[0])];
- else
- bb[NROOTS-1] = 0;
- }
-}
diff --git a/lib/entail.f90 b/lib/entail.f90
deleted file mode 100644
index 1228a75..0000000
--- a/lib/entail.f90
+++ /dev/null
@@ -1,30 +0,0 @@
-subroutine entail(dgen,data0)
-
-! Move 72-bit packed data from 6-bit to 8-bit symbols and add a zero tail.
- integer dgen(13)
- integer*1 data0(13)
-
- i4=0
- k=0
- m=0
- do i=1,12
- n=dgen(i)
- do j=1,6
- k=k+1
- i4=i4+i4+iand(1,ishft(n,j-6))
- i4=iand(i4,255)
- if(k.eq.8) then
- m=m+1
- if(i4.gt.127) i4=i4-256
- data0(m)=i4
- k=0
- endif
- enddo
- enddo
- do m=10,13
- data0(m)=0
- enddo
-
- return
-end subroutine entail
-
diff --git a/lib/extract.F90 b/lib/extract.F90
deleted file mode 100644
index 2b580f6..0000000
--- a/lib/extract.F90
+++ /dev/null
@@ -1,103 +0,0 @@
-subroutine extract(s3,nadd,ncount,nhist,decoded,ltext,nbmkv)
-
- real s3(64,63)
- character decoded*22
- integer era(51),dat4(12),indx(64)
- integer mrsym(63),mr2sym(63),mrprob(63),mr2prob(63)
- logical nokv,ltext
- data nokv/.false./,nsec1/0/
- save
-
- nbmkv=0
- nfail=0
-1 continue
- call demod64a(s3,nadd,mrsym,mrprob,mr2sym,mr2prob,ntest,nlow)
- if(ntest.lt.50 .or. nlow.gt.20) then
- ncount=-999 !Flag bad data
- go to 900
- endif
- call chkhist(mrsym,nhist,ipk)
-
- if(nhist.ge.20) then
- nfail=nfail+1
- call pctile(s3,4032,50,base) ! ### or, use ave from demod64a
- do j=1,63
- s3(ipk,j)=base
- enddo
- if(nfail.gt.30) then
- decoded=' '
- ncount=-1
- go to 900
- endif
- go to 1
- endif
-
- call graycode65(mrsym,63,-1)
- call interleave63(mrsym,-1)
- call interleave63(mrprob,-1)
-
-! Decode using Berlekamp-Massey algorithm
- nemax=30 !Max BM erasures
- call indexx(63,mrprob,indx)
- do i=1,nemax
- j=indx(i)
- if(mrprob(j).gt.120) then
- ne2=i-1
- go to 2
- endif
- era(i)=j-1
- enddo
- ne2=nemax
-2 decoded=' '
- do nerase=0,ne2,2
- call rs_decode(mrsym,era,nerase,dat4,ncount)
- if(ncount.ge.0) then
- call unpackmsg(dat4,decoded)
- if(iand(dat4(10),8).ne.0) ltext=.true.
- nbmkv=1
- go to 900
- endif
- enddo
-
-! Berlekamp-Massey algorithm failed, try Koetter-Vardy
-
- if(nokv) go to 900
-
- maxe=8 !Max KV errors in 12 most reliable symbols
-! xlambda=12.0
- xlambda=7.99
- call graycode65(mr2sym,63,-1)
- call interleave63(mr2sym,-1)
- call interleave63(mr2prob,-1)
-
- nsec1=nsec1+1
- write(22,rec=1) nsec1,xlambda,maxe,200,mrsym,mrprob,mr2sym,mr2prob
- call flush(22)
- call timer('kvasd ',0)
-#ifdef UNIX
- iret=system('./kvasd -q > dev_null')
-#else
- iret=system('kvasd -q > dev_null')
-#endif
- call timer('kvasd ',1)
- if(iret.ne.0) then
- if(.not.nokv) write(*,1000)
-1000 format('Error in KV decoder, or no KV decoder present.')
- nokv=.true.
- go to 900
- endif
-
- read(22,rec=2,err=900) nsec2,ncount,dat4
- j=nsec2 !Silence compiler warning
- decoded=' '
- ltext=.false.
- if(ncount.ge.0) then
- call unpackmsg(dat4,decoded) !Unpack the user message
- if(iand(dat4(10),8).ne.0) ltext=.true.
- nbmkv=2
- endif
-
-900 continue
-
- return
-end subroutine extract
diff --git a/lib/extract4.f90 b/lib/extract4.f90
deleted file mode 100644
index 0622946..0000000
--- a/lib/extract4.f90
+++ /dev/null
@@ -1,61 +0,0 @@
-subroutine extract4(sym,nadd,ncount,decoded)
-
- real sym(207)
- character decoded*22, submode*1
- character*72 c72
- integer*1 symbol(207)
- integer*1 data1(13) !Decoded data (8-bit bytes)
- integer data4a(9) !Decoded data (8-bit bytes)
- integer data4(12) !Decoded data (6-bit bytes)
- integer mettab(0:255,0:1) !Metric table
- logical first
- data first/.true./
- save first,mettab
-
- if(first) then
- call getmet24(mode,mettab)
- first=.false.
- endif
-
- do j=1,207
- r=sym(j) + 128.
- if(r.gt.255.0) r=255.0
- if(r.lt.0.0) r=0.0
- i4=nint(r)
- if(i4.gt.127) i4=i4-256
- symbol(j)=i4
- enddo
-
- nbits=72+31
- ndelta=50
- limit=100000
- ncycles=0
- ncount=-1
- decoded=' '
- submode=' '
-
- call interleave24(symbol(2),-1) !Remove the interleaving
- call fano232(symbol(2),nbits,mettab,ndelta,limit,data1,ncycles,metric,ncount)
- nlim=ncycles/nbits
-
- if(ncount.ge.0) then
- do i=1,9
- i4=data1(i)
- if(i4.lt.0) i4=i4+256
- data4a(i)=i4
- enddo
- write(c72,1100) (data4a(i),i=1,9)
-1100 format(9b8.8)
- read(c72,1102) data4
-1102 format(12b6)
-
- call unpackmsg(data4,decoded)
- submode=char(ichar('A')+ich-1)
- if(decoded(1:6).eq.'000AAA') then
- decoded='***WRONG MODE?***'
- ncount=-1
- endif
- endif
-
- return
-end subroutine extract4
diff --git a/lib/f77_wisdom.f90 b/lib/f77_wisdom.f90
deleted file mode 100644
index 39bdff8..0000000
--- a/lib/f77_wisdom.f90
+++ /dev/null
@@ -1,45 +0,0 @@
-subroutine write_char(c, iunit)
- character c
- integer iunit
- write(iunit,1000) c
-1000 format(a,$)
-end subroutine write_char
-
-subroutine export_wisdom_to_file(iunit)
- integer iunit
- external write_char
-! call dfftw_export_wisdom(write_char, iunit)
- call sfftw_export_wisdom(write_char, iunit)
-end subroutine export_wisdom_to_file
-
-subroutine read_char(ic, iunit)
- integer ic
- integer iunit
- character*256 buf
- save buf
- integer ibuf
- data ibuf/257/
- save ibuf
- if (ibuf .lt. 257) then
- ic = ichar(buf(ibuf:ibuf))
- ibuf = ibuf + 1
- return
- endif
- read(iunit,1000,end=10) buf
-1000 format(a256)
- ic = ichar(buf(1:1))
- ibuf = 2
- return
-10 ic = -1
- ibuf = 257
- rewind iunit
- return
-end subroutine read_char
-
-subroutine import_wisdom_from_file(isuccess, iunit)
- integer isuccess
- integer iunit
- external read_char
-! call dfftw_import_wisdom(isuccess, read_char, iunit)
- call sfftw_import_wisdom(isuccess, read_char, iunit)
-end subroutine import_wisdom_from_file
diff --git a/lib/fano232.f90 b/lib/fano232.f90
deleted file mode 100644
index 1e12950..0000000
--- a/lib/fano232.f90
+++ /dev/null
@@ -1,140 +0,0 @@
-subroutine fano232(symbol,nbits,mettab,ndelta,maxcycles,dat, &
- ncycles,metric,ierr)
-
-! Sequential decoder for K=32, r=1/2 convolutional code using
-! the Fano algorithm. Translated from C routine for same purpose
-! written by Phil Karn, KA9Q.
-
- parameter (MAXBITS=103)
- parameter (MAXBYTES=(MAXBITS+7)/8)
- integer*1 symbol(0:2*MAXBITS-1) !Soft symbols (as unsigned i*1)
- integer*1 dat(MAXBYTES) !Decoded user data, 8 bits per byte
- integer mettab(0:255,0:1) !Metric table
-
-! These were the "node" structure in Karn's C code:
- integer nstate(0:MAXBITS-1) !Encoder state of next node
- integer gamma(0:MAXBITS-1) !Cumulative metric to this node
- integer metrics(0:3,0:MAXBITS-1) !Metrics indexed by all possible Tx syms
- integer tm(0:1,0:MAXBITS-1) !Sorted metrics for current hypotheses
- integer ii(0:MAXBITS-1) !Current branch being tested
-
- logical noback
- include 'conv232.f90' !Polynomials defined here
-
- ntail=nbits-31
-
-! Compute all possible branch metrics for each symbol pair.
-! This is the only place we actually look at the raw input symbols
- i4a=0
- i4b=0
- do np=0,nbits-1
- j=2*np
- i4a=symbol(j)
- i4b=symbol(j+1)
- if (i4a.lt.0) i4a=i4a+256
- if (i4b.lt.0) i4b=i4b+256
- metrics(0,np) = mettab(i4a,0) + mettab(i4b,0)
- metrics(1,np) = mettab(i4a,0) + mettab(i4b,1)
- metrics(2,np) = mettab(i4a,1) + mettab(i4b,0)
- metrics(3,np) = mettab(i4a,1) + mettab(i4b,1)
- enddo
-
- np=0
- nstate(np)=0
-
- n=iand(nstate(np),npoly1) !Compute and sort branch metrics
- n=ieor(n,ishft(n,-16)) !from the root node
- lsym=partab(iand(ieor(n,ishft(n,-8)),255))
- n=iand(nstate(np),npoly2)
- n=ieor(n,ishft(n,-16))
- lsym=lsym+lsym+partab(iand(ieor(n,ishft(n,-8)),255))
- m0=metrics(lsym,np)
- m1=metrics(ieor(3,lsym),np)
- if(m0.gt.m1) then
- tm(0,np)=m0 !0-branch has better metric
- tm(1,np)=m1
- else
- tm(0,np)=m1 !1-branch is better
- tm(1,np)=m0
- nstate(np)=nstate(np) + 1 !Set low bit
- endif
-
- ii(np)=0 !Start with best branch
- gamma(np)=0
- nt=0
-
- do i=1,nbits*maxcycles !Start the Fano decoder
- ngamma=gamma(np) + tm(ii(np),np) !Look forward
- if(ngamma.ge.nt) then
-! Node is acceptable. If first time visiting this node, tighten threshold:
- if(gamma(np).lt.(nt+ndelta)) nt=nt + ndelta * ((ngamma-nt)/ndelta)
- gamma(np+1)=ngamma !Move forward
- nstate(np+1)=ishft(nstate(np),1)
- np=np+1
- if(np.eq.nbits-1) go to 100 !We're done!
-
- n=iand(nstate(np),npoly1)
- n=ieor(n,ishft(n,-16))
- lsym=partab(iand(ieor(n,ishft(n,-8)),255))
- n=iand(nstate(np),npoly2)
- n=ieor(n,ishft(n,-16))
- lsym=lsym+lsym+partab(iand(ieor(n,ishft(n,-8)),255))
-
- if(np.ge.ntail) then
- tm(0,np)=metrics(lsym,np) !We're in the tail, now all zeros
- else
- m0=metrics(lsym,np)
- m1=metrics(ieor(3,lsym),np)
- if(m0.gt.m1) then
- tm(0,np)=m0 !0-branch has better metric
- tm(1,np)=m1
- else
- tm(0,np)=m1 !1-branch is better
- tm(1,np)=m0
- nstate(np)=nstate(np) + 1 !Set low bit
- endif
- endif
- ii(np)=0 !Start with best branch
- else
- do while(.true.)
- noback=.false. !Threshold violated, can't go forward
- if(np.eq.0) noback=.true.
- if(np.gt.0) then
- if(gamma(np-1).lt.nt) noback=.true.
- endif
-
- if(noback) then !Can't back up, either
- nt=nt-ndelta !Relax threshold and look forward again
- if(ii(np).ne.0) then
- ii(np)=0
- nstate(np)=ieor(nstate(np),1)
- endif
- exit
- endif
-
- np=np-1 !Back up
- if(np.lt.ntail .and. ii(np).ne.1) then
- ii(np)=ii(np)+1 !Search the next best branch
- nstate(np)=ieor(nstate(np),1)
- exit
- endif
- enddo
- endif
- enddo
- i=nbits*maxcycles
-
-100 metric=gamma(np) !Final path metric
- nbytes=(nbits+7)/8 !Copy decoded data to user's buffer
- np=7
- do j=1,nbytes-1
- i4a=nstate(np)
- dat(j)=i4a
- np=np+8
- enddo
- dat(nbytes)=0
- ncycles=i+1
- ierr=0
- if(i.ge.maxcycles*nbits) ierr=-1
-
- return
-end subroutine fano232
diff --git a/lib/fchisq.f90 b/lib/fchisq.f90
deleted file mode 100644
index 1dece10..0000000
--- a/lib/fchisq.f90
+++ /dev/null
@@ -1,41 +0,0 @@
-real function fchisq(c3,npts,fsample,a)
-
- parameter (NMAX=85*16)
- complex c3(npts)
- complex c4(NMAX)
- real a(3)
- complex z
- data a1,a2,a3/99.,99.,99./
- include 'jt9sync.f90'
- save
-
- if(a(1).ne.a1 .or. a(2).ne.a2 .or. a(3).ne.a3) then
- a1=a(1)
- a2=a(2)
- a3=a(3)
- call twkfreq(c3,c4,npts,fsample,a)
- endif
-
-! Get sync power.
- nspsd=16
- sum1=0.
- sum0=0.
- k=-1
- do i=1,85
- z=0.
- do j=1,nspsd
- k=k+1
- z=z+c4(k+1)
- enddo
- pp=real(z)**2 + aimag(z)**2
- if(isync(i).eq.1) then
- sum1=sum1+pp
- else
- sum0=sum0+pp
- endif
- enddo
- sync=(sum1/16.0)/(sum0/69.0) - 1.0
- fchisq=-sync
-
- return
-end function fchisq
diff --git a/lib/fchisq65.f90 b/lib/fchisq65.f90
deleted file mode 100644
index b91444e..0000000
--- a/lib/fchisq65.f90
+++ /dev/null
@@ -1,68 +0,0 @@
-real function fchisq65(cx,npts,fsample,nflip,a,ccfmax,dtmax)
-
- parameter (NMAX=60*12000) !Samples per 60 s
- complex cx(npts)
- real a(5)
- complex w,wstep,z
- real ss(3000)
- complex csx(0:NMAX/8)
- data twopi/6.283185307/a1,a2,a3/99.,99.,99./
- save
-
- call timer('fchisq65',0)
- baud=11025.0/4096.0
- nsps=nint(fsample/baud) !Samples per symbol
- nsph=nsps/2 !Samples per half-symbol
- ndiv=16 !Output ss() steps per symbol
- nout=ndiv*npts/nsps
- dtstep=1.0/(ndiv*baud) !Time per output step
-
- if(a(1).ne.a1 .or. a(2).ne.a2 .or. a(3).ne.a3) then
- a1=a(1)
- a2=a(2)
- a3=a(3)
-
-! Mix and integrate the complex signal
- csx(0)=0.
- w=1.0
- x0=0.5*(npts+1)
- s=2.0/npts
- do i=1,npts
- x=s*(i-x0)
- if(mod(i,100).eq.1) then
- p2=1.5*x*x - 0.5
- dphi=(a(1) + x*a(2) + p2*a(3)) * (twopi/fsample)
- wstep=cmplx(cos(dphi),sin(dphi))
- endif
- w=w*wstep
- csx(i)=csx(i-1) + w*cx(i)
- enddo
- endif
-
-! Compute 1/2-symbol powers at 1/16-symbol steps.
- fac=1.e-4
-
- do i=1,nout
- j=i*nsps/ndiv
- k=j-nsph
- ss(i)=0.
- if(k.ge.1) then
- z=csx(j)-csx(k)
- ss(i)=fac*(real(z)**2 + aimag(z)**2)
- endif
- enddo
-
- ccfmax=0.
- call timer('ccf2 ',0)
- call ccf2(ss,nout,nflip,ccf,lagpk)
- call timer('ccf2 ',1)
- if(ccf.gt.ccfmax) then
- ccfmax=ccf
- dtmax=lagpk*dtstep
- endif
- fchisq65=-ccfmax
-
- call timer('fchisq65',1)
-
- return
-end function fchisq65
diff --git a/lib/fftw3.f90 b/lib/fftw3.f90
deleted file mode 100644
index 440ccc2..0000000
--- a/lib/fftw3.f90
+++ /dev/null
@@ -1,64 +0,0 @@
- INTEGER FFTW_R2HC
- PARAMETER (FFTW_R2HC=0)
- INTEGER FFTW_HC2R
- PARAMETER (FFTW_HC2R=1)
- INTEGER FFTW_DHT
- PARAMETER (FFTW_DHT=2)
- INTEGER FFTW_REDFT00
- PARAMETER (FFTW_REDFT00=3)
- INTEGER FFTW_REDFT01
- PARAMETER (FFTW_REDFT01=4)
- INTEGER FFTW_REDFT10
- PARAMETER (FFTW_REDFT10=5)
- INTEGER FFTW_REDFT11
- PARAMETER (FFTW_REDFT11=6)
- INTEGER FFTW_RODFT00
- PARAMETER (FFTW_RODFT00=7)
- INTEGER FFTW_RODFT01
- PARAMETER (FFTW_RODFT01=8)
- INTEGER FFTW_RODFT10
- PARAMETER (FFTW_RODFT10=9)
- INTEGER FFTW_RODFT11
- PARAMETER (FFTW_RODFT11=10)
- INTEGER FFTW_FORWARD
- PARAMETER (FFTW_FORWARD=-1)
- INTEGER FFTW_BACKWARD
- PARAMETER (FFTW_BACKWARD=+1)
- INTEGER FFTW_MEASURE
- PARAMETER (FFTW_MEASURE=0)
- INTEGER FFTW_DESTROY_INPUT
- PARAMETER (FFTW_DESTROY_INPUT=1)
- INTEGER FFTW_UNALIGNED
- PARAMETER (FFTW_UNALIGNED=2)
- INTEGER FFTW_CONSERVE_MEMORY
- PARAMETER (FFTW_CONSERVE_MEMORY=4)
- INTEGER FFTW_EXHAUSTIVE
- PARAMETER (FFTW_EXHAUSTIVE=8)
- INTEGER FFTW_PRESERVE_INPUT
- PARAMETER (FFTW_PRESERVE_INPUT=16)
- INTEGER FFTW_PATIENT
- PARAMETER (FFTW_PATIENT=32)
- INTEGER FFTW_ESTIMATE
- PARAMETER (FFTW_ESTIMATE=64)
- INTEGER FFTW_ESTIMATE_PATIENT
- PARAMETER (FFTW_ESTIMATE_PATIENT=128)
- INTEGER FFTW_BELIEVE_PCOST
- PARAMETER (FFTW_BELIEVE_PCOST=256)
- INTEGER FFTW_DFT_R2HC_ICKY
- PARAMETER (FFTW_DFT_R2HC_ICKY=512)
- INTEGER FFTW_NONTHREADED_ICKY
- PARAMETER (FFTW_NONTHREADED_ICKY=1024)
- INTEGER FFTW_NO_BUFFERING
- PARAMETER (FFTW_NO_BUFFERING=2048)
- INTEGER FFTW_NO_INDIRECT_OP
- PARAMETER (FFTW_NO_INDIRECT_OP=4096)
- INTEGER FFTW_ALLOW_LARGE_GENERIC
- PARAMETER (FFTW_ALLOW_LARGE_GENERIC=8192)
- INTEGER FFTW_NO_RANK_SPLITS
- PARAMETER (FFTW_NO_RANK_SPLITS=16384)
- INTEGER FFTW_NO_VRANK_SPLITS
- PARAMETER (FFTW_NO_VRANK_SPLITS=32768)
- INTEGER FFTW_NO_VRECURSE
- PARAMETER (FFTW_NO_VRECURSE=65536)
- INTEGER FFTW_NO_SIMD
- PARAMETER (FFTW_NO_SIMD=131072)
diff --git a/lib/fil3.f90 b/lib/fil3.f90
deleted file mode 100644
index 0d66061..0000000
--- a/lib/fil3.f90
+++ /dev/null
@@ -1,159 +0,0 @@
-subroutine fil3(x1,n1,c2,n2)
-
-! FIR real-to-complex filter designed using ScopeFIR
-!
-!-----------------------------------------------
-! fsample (Hz) 12000 Input sample rate
-! Ntaps 113 Number of filter taps
-! fc (Hz) 500 Cutoff frequency
-! fstop (Hz) 750 Lower limit of stopband
-! Ripple (dB) 0.2 Ripple in passband
-! Stop Atten (dB) 50 Stopband attenuation
-! fmix (HZ) 1500 Mixing frequency
-! fout (Hz) 1500 Output sample rate
-
-! Resulting passband is 1000 - 2000 Hz
-
-! Suggest calling with n1 = 8*n2 + 105, where n2 is the desired number
-! of 1500 Hz output samples.
-
- parameter (NTAPS=113)
- parameter (NH=NTAPS/2)
- parameter (NDOWN=8) !Downsample ratio = 1/8
- real x1(n1)
- complex z
- complex c2(n1/NDOWN)
-
-! Filter coefficients:
- complex ca(-NH:NH)
- data ca/ &
- (-0.001818142144, 0.000000000000), &
- (-0.000664066641,-0.000664066640), &
- (-0.000000000000,-0.001044063550), &
- ( 0.000737290018,-0.000737290010), &
- ( 0.000908957610,-0.000000000000), &
- ( 0.000444156615, 0.000444156610), &
- (-0.000000000000, 0.000202701460), &
- ( 0.000244876473,-0.000244876470), &
- ( 0.000978154552, 0.000000000000), &
- ( 0.001155650277, 0.001155650270), &
- ( 0.000000000000, 0.002243121590), &
- (-0.001927618608, 0.001927618600), &
- (-0.003006201675, 0.000000000000), &
- (-0.002134087852,-0.002134087850), &
- ( 0.000000000000,-0.002717699570), &
- ( 0.001478946738,-0.001478946730), &
- ( 0.001162489032, 0.000000000000), &
- (-0.000005589545,-0.000005589540), &
- (-0.000000000000,-0.001321554800), &
- ( 0.001873767954,-0.001873767950), &
- ( 0.003843608784,-0.000000000000), &
- ( 0.003356874940, 0.003356874940), &
- (-0.000000000000, 0.005218967040), &
- (-0.003640348011, 0.003640348010), &
- (-0.004470167307, 0.000000000000), &
- (-0.002247131477,-0.002247131470), &
- (-0.000000000000,-0.001335998900), &
- (-0.000647656208, 0.000647656200), &
- (-0.003386100636, 0.000000000000), &
- (-0.004114456189,-0.004114456180), &
- ( 0.000000000000,-0.007939147960), &
- ( 0.006692816134,-0.006692816130), &
- ( 0.010145641899, 0.000000000000), &
- ( 0.006920770724, 0.006920770720), &
- ( 0.000000000000, 0.008285915750), &
- (-0.003992321524, 0.003992321520), &
- (-0.001995842303, 0.000000000000), &
- ( 0.001704388774, 0.001704388770), &
- (-0.000000000000, 0.007202515550), &
- (-0.008426458377, 0.008426458370), &
- (-0.016028350845, 0.000000000000), &
- (-0.013430355885,-0.013430355880), &
- (-0.000000000000,-0.020297455950), &
- ( 0.013791263729,-0.013791263720), &
- ( 0.016298136197,-0.000000000000), &
- ( 0.007443596155, 0.007443596150), &
- (-0.000000000000, 0.002223837360), &
- ( 0.005924356866,-0.005924356860), &
- ( 0.020854478160, 0.000000000000), &
- ( 0.024471928130, 0.024471928130), &
- ( 0.000000000000, 0.048909701460), &
- (-0.044508219241, 0.044508219240), &
- (-0.075874892030, 0.000000000000), &
- (-0.061450241075,-0.061450241070), &
- ( 0.000000000000,-0.095332017640), &
- ( 0.071148679982,-0.071148679980), &
- ( 0.102420526192, 0.000000000000), &
- ( 0.071148679982, 0.071148679980), &
- ( 0.000000000000, 0.095332017640), &
- (-0.061450241075, 0.061450241070), &
- (-0.075874892030, 0.000000000000), &
- (-0.044508219241,-0.044508219240), &
- ( 0.000000000000,-0.048909701460), &
- ( 0.024471928130,-0.024471928130), &
- ( 0.020854478160, 0.000000000000), &
- ( 0.005924356866, 0.005924356860), &
- (-0.000000000000,-0.002223837360), &
- ( 0.007443596155,-0.007443596150), &
- ( 0.016298136197,-0.000000000000), &
- ( 0.013791263729, 0.013791263720), &
- (-0.000000000000, 0.020297455950), &
- (-0.013430355885, 0.013430355880), &
- (-0.016028350845, 0.000000000000), &
- (-0.008426458377,-0.008426458370), &
- (-0.000000000000,-0.007202515550), &
- ( 0.001704388774,-0.001704388770), &
- (-0.001995842303, 0.000000000000), &
- (-0.003992321524,-0.003992321520), &
- ( 0.000000000000,-0.008285915750), &
- ( 0.006920770724,-0.006920770720), &
- ( 0.010145641899, 0.000000000000), &
- ( 0.006692816134, 0.006692816130), &
- ( 0.000000000000, 0.007939147960), &
- (-0.004114456189, 0.004114456180), &
- (-0.003386100636, 0.000000000000), &
- (-0.000647656208,-0.000647656200), &
- (-0.000000000000, 0.001335998900), &
- (-0.002247131477, 0.002247131470), &
- (-0.004470167307, 0.000000000000), &
- (-0.003640348011,-0.003640348010), &
- (-0.000000000000,-0.005218967040), &
- ( 0.003356874940,-0.003356874940), &
- ( 0.003843608784,-0.000000000000), &
- ( 0.001873767954, 0.001873767950), &
- (-0.000000000000, 0.001321554800), &
- (-0.000005589545, 0.000005589540), &
- ( 0.001162489032, 0.000000000000), &
- ( 0.001478946738, 0.001478946730), &
- ( 0.000000000000, 0.002717699570), &
- (-0.002134087852, 0.002134087850), &
- (-0.003006201675, 0.000000000000), &
- (-0.001927618608,-0.001927618600), &
- ( 0.000000000000,-0.002243121590), &
- ( 0.001155650277,-0.001155650270), &
- ( 0.000978154552, 0.000000000000), &
- ( 0.000244876473, 0.000244876470), &
- (-0.000000000000,-0.000202701460), &
- ( 0.000444156615,-0.000444156610), &
- ( 0.000908957610,-0.000000000000), &
- ( 0.000737290018, 0.000737290010), &
- (-0.000000000000, 0.001044063550), &
- (-0.000664066641, 0.000664066640), &
- (-0.001818142144, 0.000000000000)/
- save ca
-
- n2=(n1-NTAPS+NDOWN)/NDOWN
- k0=NH-NDOWN+1
-
-! Loop over all output samples
- do i=1,n2
- z=0.
- k=k0 + NDOWN*i
- do j=-NH,NH
- z=z + x1(j+k)*ca(j)
- enddo
- c2(i)=z
- enddo
-
- return
-end subroutine fil3
diff --git a/lib/fil61.f90 b/lib/fil61.f90
deleted file mode 100644
index faf62a3..0000000
--- a/lib/fil61.f90
+++ /dev/null
@@ -1,64 +0,0 @@
-12000 61 250 750 0.2 50, mix at 1500
-
-
--0.000000000000 0.001944450121
--0.000668730681 0.000668730681
--0.000974850191 -0.000000000000
--0.000581679123 -0.000581679123
- 0.000000000000 -0.000439648787
--0.000148911451 0.000148911451
--0.001140891736 -0.000000000000
--0.001653102965 -0.001653102965
- 0.000000000000 -0.003749915818
- 0.003740834397 -0.003740834397
- 0.006834087490 0.000000000000
- 0.005812808655 0.005812808655
--0.000000000000 0.009262713933
--0.006900370427 0.006900370427
--0.009503248519 -0.000000000000
--0.005874581677 -0.005874581677
- 0.000000000000 -0.006017530719
- 0.001785268072 -0.001785268072
--0.002214736448 -0.000000000000
--0.005777038427 -0.005777038427
- 0.000000000000 -0.015228682747
- 0.016402831440 -0.016402831440
- 0.031806920774 0.000000000000
- 0.028800401613 0.028800401613
--0.000000000000 0.049589395998
--0.041000303659 0.041000303659
--0.065514139214 -0.000000000000
--0.050781544715 -0.050781544715
- 0.000000000000 -0.076562341482
- 0.056225821996 -0.056225821996
- 0.080516569816 0.000000000000
- 0.056225821996 0.056225821996
--0.000000000000 0.076562341482
--0.050781544715 0.050781544715
--0.065514139214 -0.000000000000
--0.041000303659 -0.041000303659
- 0.000000000000 -0.049589395998
- 0.028800401613 -0.028800401613
- 0.031806920774 0.000000000000
- 0.016402831440 0.016402831440
--0.000000000000 0.015228682747
--0.005777038427 0.005777038427
--0.002214736448 -0.000000000000
- 0.001785268072 0.001785268072
--0.000000000000 0.006017530719
--0.005874581677 0.005874581677
--0.009503248519 -0.000000000000
--0.006900370427 -0.006900370427
- 0.000000000000 -0.009262713933
- 0.005812808655 -0.005812808655
- 0.006834087490 0.000000000000
- 0.003740834397 0.003740834397
--0.000000000000 0.003749915818
--0.001653102965 0.001653102965
--0.001140891736 -0.000000000000
--0.000148911451 -0.000148911451
--0.000000000000 0.000439648787
--0.000581679123 0.000581679123
--0.000974850191 -0.000000000000
--0.000668730681 -0.000668730681
- 0.000000000000 -0.001944450121
diff --git a/lib/fil6521.f90 b/lib/fil6521.f90
deleted file mode 100644
index 6e78e63..0000000
--- a/lib/fil6521.f90
+++ /dev/null
@@ -1,44 +0,0 @@
-subroutine fil6521(c1,n1,c2,n2)
-
-! FIR lowpass filter designed using ScopeFIR
-
-! Pass #1 Pass #2
-! -----------------------------------------------
-! fsample (Hz) 1378.125 Input sample rate
-! Ntaps 21 Number of filter taps
-! fc (Hz) 40 Cutoff frequency
-! fstop (Hz) 172.266 Lower limit of stopband
-! Ripple (dB) 0.1 Ripple in passband
-! Stop Atten (dB) 38 Stopband attenuation
-! fout (Hz) 344.531 Output sample rate
-
- parameter (NTAPS=21)
- parameter (NH=NTAPS/2)
- parameter (NDOWN=4) !Downsample ratio = 1/4
- complex c1(n1)
- complex c2(n1/NDOWN)
-
-! Filter coefficients:
- real a(-NH:NH)
- data a/ &
- -0.011958606980,-0.013888627387,-0.015601306443,-0.010602249570, &
- 0.003804023436, 0.028320058273, 0.060903935217, 0.096841904411, &
- 0.129639871228, 0.152644580853, 0.160917511283, 0.152644580853, &
- 0.129639871228, 0.096841904411, 0.060903935217, 0.028320058273, &
- 0.003804023436,-0.010602249570,-0.015601306443,-0.013888627387, &
- -0.011958606980/
-
- n2=(n1-NTAPS+NDOWN)/NDOWN
- k0=NH-NDOWN+1
-
-! Loop over all output samples
- do i=1,n2
- c2(i)=0.
- k=k0 + NDOWN*i
- do j=-NH,NH
- c2(i)=c2(i) + c1(j+k)*a(j)
- enddo
- enddo
-
- return
-end subroutine fil6521
diff --git a/lib/filbig.f90 b/lib/filbig.f90
deleted file mode 100644
index cb59b2f..0000000
--- a/lib/filbig.f90
+++ /dev/null
@@ -1,127 +0,0 @@
-subroutine filbig(dd,npts,f0,newdat,c4a,n4,sq0)
-
-! Filter and downsample the real data in array dd(npts), sampled at 12000 Hz.
-! Output is complex, sampled at 1378.125 Hz.
-
- parameter (NSZ=3413)
- parameter (NFFT1=672000,NFFT2=77175)
- parameter (NZ2=1000)
- real*4 dd(npts) !Input data
- complex ca(NFFT1) !FFT of input
- complex c4a(NFFT2) !Output data
- real*4 s(NZ2)
- real*8 df
- real halfpulse(8) !Impulse response of filter (one sided)
- complex cfilt(NFFT2) !Filter (complex; imag = 0)
- real rfilt(NFFT2) !Filter (real)
- integer*8 plan1,plan2,plan3
- logical first
- include 'fftw3.f90'
- equivalence (rfilt,cfilt)
- data first/.true./,npatience/0/
- data halfpulse/114.97547150,36.57879257,-20.93789101, &
- 5.89886379,1.59355187,-2.49138308,0.60910773,-0.04248129/
- common/refspec/dfref,ref(NSZ)
- save
-
- if(npts.lt.0) go to 900 !Clean up at end of program
-
- if(first) then
- nflags=FFTW_ESTIMATE
- if(npatience.eq.1) nflags=FFTW_ESTIMATE_PATIENT
- if(npatience.eq.2) nflags=FFTW_MEASURE
- if(npatience.eq.3) nflags=FFTW_PATIENT
- if(npatience.eq.4) nflags=FFTW_EXHAUSTIVE
-! Plan the FFTs just once
- call timer('FFTplans ',0)
- call sfftw_plan_dft_1d(plan1,nfft1,ca,ca,FFTW_BACKWARD,nflags)
- call sfftw_plan_dft_1d(plan2,nfft2,c4a,c4a,FFTW_FORWARD,nflags)
- call sfftw_plan_dft_1d(plan3,nfft2,cfilt,cfilt,FFTW_BACKWARD,nflags)
- call timer('FFTplans ',1)
-
-! Convert impulse response to filter function
- do i=1,nfft2
- cfilt(i)=0.
- enddo
- fac=0.00625/nfft1
- cfilt(1)=fac*halfpulse(1)
- do i=2,8
- cfilt(i)=fac*halfpulse(i)
- cfilt(nfft2+2-i)=fac*halfpulse(i)
- enddo
- call timer('FFTfilt ',0)
- call sfftw_execute(plan3)
- call timer('FFTfilt ',1)
-
- base=cfilt(nfft2/2+1)
- do i=1,nfft2
- rfilt(i)=real(cfilt(i))-base
- enddo
-
- df=12000.d0/nfft1
- first=.false.
- endif
-
-! When new data comes along, we need to compute a new "big FFT"
-! If we just have a new f0, continue with the existing data in ca.
-
- if(newdat.ne.0) then
- nz=min(npts,nfft1)
- ca(1:nz)=dd(1:nz)
- ca(nz+1:)=0. !### Should change this to r2c FFT ###
- call timer('FFTbig ',0)
- call sfftw_execute(plan1)
- call timer('FFTbig ',1)
-
- do i=1,NFFT1/2 !Flatten the spectrum
- j=nint(i*df/dfref)
- if(j.lt.1) j=1
- if(j.gt.NSZ) j=NSZ
- fac=sqrt(min(30.0,1.0/ref(j)))
- ca(i)=fac * ca(i)
- enddo
- endif
-
-! NB: f0 is the frequency at which we want our filter centered.
-! i0 is the bin number in ca closest to f0.
-
- i0=nint(f0/df) + 1
- nh=nfft2/2
- do i=1,nh !Copy data into c4a and apply
- j=i0+i-1 !the filter function
- if(j.ge.1 .and. j.le.nfft1) then
- c4a(i)=rfilt(i)*ca(j)
- else
- c4a(i)=0.
- endif
- enddo
- do i=nh+1,nfft2
- j=i0+i-1-nfft2
- if(j.lt.1) j=j+nfft1 !nfft1 was nfft2
- c4a(i)=rfilt(i)*ca(j)
- enddo
-
- nadd=nfft2/NZ2
- i=0
- do j=1,NZ2
- s(j)=0.
- do n=1,nadd
- i=i+1
- s(j)=s(j) + real(c4a(i))**2 + aimag(c4a(i))**2
- enddo
- enddo
- call pctile(s,NZ2,30,sq0)
-
-! Do the short reverse transform, to go back to time domain.
- call timer('FFTsmall',0)
- call sfftw_execute(plan2)
- call timer('FFTsmall',1)
- n4=min(npts/8,nfft2)
- return
-
-900 call sfftw_destroy_plan(plan1)
- call sfftw_destroy_plan(plan2)
- call sfftw_destroy_plan(plan3)
-
- return
-end subroutine filbig
diff --git a/lib/fillcom.f90 b/lib/fillcom.f90
deleted file mode 100644
index 03fbb2c..0000000
--- a/lib/fillcom.f90
+++ /dev/null
@@ -1,25 +0,0 @@
-subroutine fillcom(nutc0,ndepth0,nrxfreq)
- character*20 datetime
- common/npar/nutc,ndiskdat,ntrperiod,nfqso,newdat,npts8,nfa,nfb,ntol, &
- kin,nzhsym,nsave,nagain,ndepth,ntxmode,nmode,datetime
- save
-
- nutc=nutc0
- ndiskdat=1
- ntrperiod=60
- nfqso=nrxfreq
- newdat=1
- npts8=74736
- nfa=2700
- nfb=4007
- ntol=3
- kin=1024
- nzhsym=173
- nsave=0
- ndepth=ndepth0
- ntxmode=9
- nmode=9+65
- datetime="2013-Apr-16 15:13"
-
- return
-end subroutine fillcom
diff --git a/lib/flat1.f90 b/lib/flat1.f90
deleted file mode 100644
index 526ab9b..0000000
--- a/lib/flat1.f90
+++ /dev/null
@@ -1,30 +0,0 @@
-subroutine flat1(psavg,s2,nh,nsteps,nhmax,nsmax)
-
- real psavg(nh)
- real s2(nhmax,nsmax)
- real x(8192),tmp(33)
-
- nsmo=33
- ia=nsmo/2 + 1
- ib=nh - nsmo/2 - 1
- do i=ia,ib
- call pctile(psavg(i-nsmo/2),nsmo,50,x(i))
- enddo
- do i=1,ia-1
- x(i)=x(ia)
- enddo
- do i=ib+1,nh
- x(i)=x(ib)
- enddo
-
- do i=1,nh
- psavg(i)=psavg(i)/x(i)
- do j=1,nsteps
- s2(i,j)=s2(i,j)/x(i)
- enddo
- enddo
-
- return
-end subroutine flat1
-
-
diff --git a/lib/flat2.f90 b/lib/flat2.f90
deleted file mode 100644
index cebd989..0000000
--- a/lib/flat2.f90
+++ /dev/null
@@ -1,18 +0,0 @@
-subroutine flat2(s,nz,ref)
-
- parameter (NSMAX=6827)
- real s(NSMAX)
- real ref(NSMAX)
-
- nsmo=10
- ia=nsmo+1
- ib=nz-nsmo-1
- do i=ia,ib
- call pctile(s(i-nsmo),2*nsmo+1,5,ref(i))
- enddo
-
- ref(:ia-1)=ref(ia)
- ref(ib+1:)=ref(ib)
-
- return
-end subroutine flat2
diff --git a/lib/flat65.f90 b/lib/flat65.f90
deleted file mode 100644
index 7aa106c..0000000
--- a/lib/flat65.f90
+++ /dev/null
@@ -1,25 +0,0 @@
-subroutine flat65(ss,nhsym,maxhsym,nsz,ref)
-
- real stmp(nsz)
- real ss(maxhsym,nsz)
- real ref(nsz)
-
- npct=28 !Somewhat arbitrary
- do i=1,nsz
- call pctile(ss(1,i),nhsym,npct,stmp(i))
- enddo
-
- nsmo=33
- ia=nsmo/2 + 1
- ib=nsz - nsmo/2 - 1
- do i=ia,ib
- call pctile(stmp(i-nsmo/2),nsmo,npct,ref(i))
- enddo
- ref(:ia-1)=ref(ia)
- ref(ib+1:)=ref(ib)
- ref=4.0*ref
-
- return
-end subroutine flat65
-
-
diff --git a/lib/four2a.f90 b/lib/four2a.f90
deleted file mode 100644
index c095629..0000000
--- a/lib/four2a.f90
+++ /dev/null
@@ -1,90 +0,0 @@
-subroutine four2a(a,nfft,ndim,isign,iform)
-
-! IFORM = 1, 0 or -1, as data is
-! complex, real, or the first half of a complex array. Transform
-! values are returned in array DATA. They are complex, real, or
-! the first half of a complex array, as IFORM = 1, -1 or 0.
-
-! The transform of a real array (IFORM = 0) dimensioned N(1) by N(2)
-! by ... will be returned in the same array, now considered to
-! be complex of dimensions N(1)/2+1 by N(2) by .... Note that if
-! IFORM = 0 or -1, N(1) must be even, and enough room must be
-! reserved. The missing values may be obtained by complex conjugation.
-
-! The reverse transformation of a half complex array dimensioned
-! N(1)/2+1 by N(2) by ..., is accomplished by setting IFORM
-! to -1. In the N array, N(1) must be the true N(1), not N(1)/2+1.
-! The transform will be real and returned to the input array.
-
- parameter (NPMAX=100)
- parameter (NSMALL=16384)
- complex a(nfft)
- complex aa(NSMALL)
- integer nn(NPMAX),ns(NPMAX),nf(NPMAX)
- integer*8 plan(NPMAX),nl(NPMAX),nloc
- data nplan/0/,npatience/1/
-! data nplan/0/,npatience/0/
- include 'fftw3.f90'
- save plan,nplan,nn,ns,nf,nl
-
- if(nfft.lt.0) go to 999
-
- nloc=loc(a)
- do i=1,nplan
- if(nfft.eq.nn(i) .and. isign.eq.ns(i) .and. &
- iform.eq.nf(i) .and. nloc.eq.nl(i)) go to 10
- enddo
- if(nplan.ge.NPMAX) stop 'Too many FFTW plans requested.'
- nplan=nplan+1
- i=nplan
- nn(i)=nfft
- ns(i)=isign
- nf(i)=iform
- nl(i)=nloc
-
-! Planning: FFTW_ESTIMATE, FFTW_ESTIMATE_PATIENT, FFTW_MEASURE,
-! FFTW_PATIENT, FFTW_EXHAUSTIVE
- nflags=FFTW_ESTIMATE
- if(npatience.eq.1) nflags=FFTW_ESTIMATE_PATIENT
- if(npatience.eq.2) nflags=FFTW_MEASURE
- if(npatience.eq.3) nflags=FFTW_PATIENT
- if(npatience.eq.4) nflags=FFTW_EXHAUSTIVE
-
- if(nfft.le.NSMALL) then
- jz=nfft
- if(iform.eq.0) jz=nfft/2
- do j=1,jz
- aa(j)=a(j)
- enddo
- endif
- if(isign.eq.-1 .and. iform.eq.1) then
- call sfftw_plan_dft_1d(plan(i),nfft,a,a,FFTW_FORWARD,nflags)
- else if(isign.eq.1 .and. iform.eq.1) then
- call sfftw_plan_dft_1d(plan(i),nfft,a,a,FFTW_BACKWARD,nflags)
- else if(isign.eq.-1 .and. iform.eq.0) then
- call sfftw_plan_dft_r2c_1d(plan(i),nfft,a,a,nflags)
- else if(isign.eq.1 .and. iform.eq.-1) then
- call sfftw_plan_dft_c2r_1d(plan(i),nfft,a,a,nflags)
- else
- stop 'Unsupported request in four2a'
- endif
- i=nplan
- if(nfft.le.NSMALL) then
- jz=nfft
- if(iform.eq.0) jz=nfft/2
- do j=1,jz
- a(j)=aa(j)
- enddo
- endif
-
-10 continue
- call sfftw_execute(plan(i))
- return
-
-999 do i=1,nplan
-! The test is only to silence a compiler warning:
- if(ndim.ne.-999) call sfftw_destroy_plan(plan(i))
- enddo
-
- return
-end subroutine four2a
diff --git a/lib/gen24.f90 b/lib/gen24.f90
deleted file mode 100644
index e2aaa77..0000000
--- a/lib/gen24.f90
+++ /dev/null
@@ -1,86 +0,0 @@
-subroutine gen24(message,mode4,samfac,ntxdf,iwave,nwave,sendingsh,msgsent,nmsg)
-
-! Encode a JT4 message into a wavefile.
-
- parameter (NMAX=60*11025) !Max length of wave file
- character*22 message !Message to be generated
- character*22 msgsent !Message as it will be received
- character*3 cok !' ' or 'OOO'
- real*8 t,dt,phi,f,f0,dfgen,dphi,pi,twopi,samfac,tsymbol
- integer*2 iwave(NMAX) !Generated wave file
- integer sendingsh
- integer dgen(13)
- integer*1 data0(13),symbol(216)
- logical first
- include 'prcom2.f'
- data first/.true./
- save
-
- nsym=207 !Symbols per transmission
- if(first) then
- do i=1,nsym
- pr2(i)=2*npr2(i)-1
- enddo
- pi=4.d0*atan(1.d0)
- twopi=2.d0*pi
- first=.false.
- endif
-
- call chkmsg(message,cok,nspecial,flip)
- call packmsg(message,dgen) !Pack 72-bit message into 12 six-bit symbols
- call entail(dgen,data0)
- call unpackmsg(dgen,msgsent)
-
- nbytes=(72+31+7)/8
- call encode(data0,nbytes,symbol(2)) !Convolutional encoding
- symbol(1)=0 !Reference phase
- sendingsh=0
- if(iand(dgen(10),8).ne.0) sendingsh=-1 !Plain text flag
- call interleave24(symbol(2),1) !Apply JT4 interleaving
-
-! Set up necessary constants
- tsymbol=2520.d0/11025.d0
- dt=1.d0/(samfac*11025.d0)
- f0=118*11025.d0/1024 + ntxdf
- dfgen=11025.d0/2520 !4.375 Hz
- t=0.d0
- phi=0.d0
- j0=0
- ndata=(nsym*11025.d0*samfac*tsymbol)/2
- ndata=2*ndata
- do i=1,ndata
- t=t+dt
- j=int(t/tsymbol) + 1 !Symbol number, 1-207
- if(j.ne.j0) then
- f=f0 + (npr2(j)+2*symbol(j)-1.5) * dfgen * mode4
- if(flip.lt.0.0) f=f0+((1-npr2(j))+2*symbol(j)-1.5)*dfgen*mode4
- dphi=twopi*dt*f
- j0=j
- endif
- phi=phi+dphi
- iwave(i)=32767.0*sin(phi)
- enddo
-
- do j=1,5512 !Put another 0.5 sec of silence at end
- i=i+1
- iwave(i)=0
- enddo
- nwave=i
-
- if(flip.lt.0.0) then
- do i=22,1,-1
- if(msgsent(i:i).ne.' ') goto 10
- enddo
-10 msgsent=msgsent(1:i)//' OOO'
- endif
- do i=22,1,-1
- if(msgsent(i:i).ne.' ') goto 20
- enddo
-20 nmsg=i
-
-! write(*,3002) (symbol(i),i=1,207)
-! 3002 format(70i1)
-
- return
-end subroutine gen24
-
diff --git a/lib/gen65.f90 b/lib/gen65.f90
deleted file mode 100644
index 8580238..0000000
--- a/lib/gen65.f90
+++ /dev/null
@@ -1,65 +0,0 @@
-subroutine gen65(msg0,ichk,msgsent,itone,itext)
-
-! Encodes a JT65 message to yieild itone(1:126)
-! Temporarily, does not implement EME shorthands
-
- character*22 msg0
- character*22 message !Message to be generated
- character*22 msgsent !Message as it will be received
- integer itone(126)
-! character*3 cok !' ' or 'OOO'
- integer dgen(13)
- integer sent(63)
- logical text
- integer nprc(126)
- data nprc/1,0,0,1,1,0,0,0,1,1,1,1,1,1,0,1,0,1,0,0, &
- 0,1,0,1,1,0,0,1,0,0,0,1,1,1,0,0,1,1,1,1, &
- 0,1,1,0,1,1,1,1,0,0,0,1,1,0,1,0,1,0,1,1, &
- 0,0,1,1,0,1,0,1,0,1,0,0,1,0,0,0,0,0,0,1, &
- 1,0,0,0,0,0,0,0,1,1,0,1,0,0,1,0,1,1,0,1, &
- 0,1,0,1,0,0,1,1,0,0,1,0,0,1,0,0,0,0,1,1, &
- 1,1,1,1,1,1/
- save
-
- message=msg0
- do i=1,22
- if(ichar(message(i:i)).eq.0) then
- message(i:)=' '
- exit
- endif
- enddo
-
- do i=1,22 !Strip leading blanks
- if(message(1:1).ne.' ') exit
- message=message(i+1:)
- enddo
-
- nspecial=0
-! call chkmsg(message,cok,nspecial,flip)
- if(nspecial.eq.0) then
- call packmsg(message,dgen,text) !Pack message into 72 bits
- itext=0
- if(text) itext=1
- call unpackmsg(dgen,msgsent) !Unpack to get message sent
- if(ichk.ne.0) go to 999 !Return if checking only
-
- call rs_encode(dgen,sent) !Apply Reed-Solomon code
- call interleave63(sent,1) !Apply interleaving
- call graycode65(sent,63,1) !Apply Gray code
- nsym=126 !Symbols per transmission
- else
- nsym=32
- endif
-
- k=0
- do j=1,nsym
- if(nprc(j).eq.0) then
- k=k+1
- itone(j)=sent(k)+2
- else
- itone(j)=0
- endif
- enddo
-
-999 return
-end subroutine gen65
diff --git a/lib/genjt9.f90 b/lib/genjt9.f90
deleted file mode 100644
index 90427e1..0000000
--- a/lib/genjt9.f90
+++ /dev/null
@@ -1,58 +0,0 @@
-subroutine genjt9(msg0,ichk,msgsent,i4tone,itext)
-
-! Encodes a JT9 message and returns msgsent, the message as it will
-! be decoded, and an integer array i4tone(85) of 9-FSK tone values
-! in the range 0-8.
-
- character*22 msg0
- character*22 message !Message to be generated
- character*22 msgsent !Message as it will be received
- integer*4 i4Msg6BitWords(13) !72-bit message as 6-bit words
- integer*1 i1Msg8BitBytes(13) !72 bits and zero tail as 8-bit bytes
- integer*1 i1EncodedBits(207) !Encoded information-carrying bits
- integer*1 i1ScrambledBits(207) !Encoded bits after interleaving
- integer*4 i4DataSymbols(69) !Data symbols (values 0-7)
- integer*4 i4GrayCodedSymbols(69) !Gray-coded symbols (values 0-7)
- integer*4 i4tone(85) !Tone #s, data and sync (values 0-8)
- logical text
- include 'jt9sync.f90'
- save
-
- message=msg0
- do i=1,22
- if(ichar(message(i:i)).eq.0) then
- message(i:)=' '
- exit
- endif
- enddo
-
- do i=1,22 !Strip leading blanks
- if(message(1:1).ne.' ') exit
- message=message(i+1:)
- enddo
-
- call packmsg(message,i4Msg6BitWords,text) !Pack message into 12 6-bit bytes
- itext=0
- if(text) itext=1
- call unpackmsg(i4Msg6BitWords,msgsent) !Unpack to get msgsent
- if(ichk.ne.0) go to 999
- call entail(i4Msg6BitWords,i1Msg8BitBytes) !Add tail, convert to 8-bit bytes
- nsym2=206
- call encode232(i1Msg8BitBytes,nsym2,i1EncodedBits) !Encode K=32, r=1/2
- call interleave9(i1EncodedBits,1,i1ScrambledBits) !Interleave the bits
- call packbits(i1ScrambledBits,nsym2,3,i4DataSymbols) !Pack 3-bits into words
- call graycode(i4DataSymbols,69,1,i4GrayCodedSymbols) !Apply Gray code
-
-! Insert sync symbols at ntone=0 and add 1 to the data-tone numbers.
- j=0
- do i=1,85
- if(isync(i).eq.1) then
- i4tone(i)=0
- else
- j=j+1
- i4tone(i)=i4GrayCodedSymbols(j)+1
- endif
- enddo
-
-999 return
-end subroutine genjt9
diff --git a/lib/genmet.f90 b/lib/genmet.f90
deleted file mode 100644
index 0682bf8..0000000
--- a/lib/genmet.f90
+++ /dev/null
@@ -1,88 +0,0 @@
-program genmet
-
-! Generate metric table for M-FSK modulation.
-
- character*12 arg
- real*4 r(0:255)
- integer hist(2,-128:128)
- data hist/514*0/,idum/-1/
-
- lim(x)=min(127,max(-128,nint(scale*x)))
-
- nargs=iargc()
- if(nargs.ne.5) then
- print*,'Usage: genmet ncoh nadd m0 snr iters'
- go to 999
- endif
- call getarg(1,arg)
- read(arg,*) ncoh
- call getarg(2,arg)
- read(arg,*) nadd
- call getarg(3,arg)
- read(arg,*) m0
- call getarg(4,arg)
- read(arg,*) snr
- call getarg(5,arg)
- read(arg,*) iters
-
- ntones=2**m0
- xm0=m0
- scale=5.0
- fac=sqrt(1.0/nadd)
- s=sqrt(10.0**(0.1*snr))
- hist=0
- nerr=0
-
- do iter=1,iters
- do i=0,ntones-1
- r(i)=0.
- do n=1,nadd
- x1=0.707*gran()
- y1=0.707*gran()
- if(i.eq.0) x1=x1+s
- if(ncoh.eq.0) r(i)=r(i) + x1*x1 + y1*y1
- if(ncoh.ne.0) r(i)=r(i) + x1
- enddo
- r(i)=fac*r(i)
- enddo
- do m=0,m0-1
- n=2**m
- r1=0.
- r2=0.
- do i=0,ntones-1
- if(iand(i,n).ne.0) r1=max(r1,r(i))
- if(iand(i,n).eq.0) r2=max(r2,r(i))
- enddo
- don=r2-r1
- doff=r1-r2
- if(don.lt.0.0) nerr=nerr+1
- j1=lim(doff)
- hist(1,j1)=hist(1,j1)+1
- j2=lim(don)
- hist(2,j2)=hist(2,j2)+1
- enddo
- enddo
-
- do i=-128,127
- write(13,1010) i/scale,hist(1,i)/(xm0*iters),hist(2,i)/(xm0*iters)
-1010 format(f8.3,2f12.9)
- enddo
-
- ber=nerr/(xm0*iters)
- write(*,1020) nadd,m0,snr,ber
-1020 format('nadd:',i3,' m0:',i2,' snr: 'f5.1,' BER:',f8.3)
-
- xln2=log(2.0)
- do i=-128,127
- p1=hist(2,i)/(xm0*iters)
- p0=hist(1,i)/(xm0*iters)
- if(p0+p1.eq.0.0 .and. i.lt.0) p0=1.e-6
- if(p0+p1.eq.0.0 .and. i.gt.0) p1=1.e-6
- xlhd0=log(max(0.001,2.0*p0/(p0+p1)))/xln2
- xlhd1=log(max(0.001,2.0*p1/(p0+p1)))/xln2
- write(14,1012) i/scale,xlhd0,xlhd1,p0/(p0+p1),p1/(p0+p1)
-1012 format(f7.1,2f8.3,2f9.6)
- enddo
-
-999 end program genmet
-
diff --git a/lib/geodist.f90 b/lib/geodist.f90
deleted file mode 100644
index 2ca7553..0000000
--- a/lib/geodist.f90
+++ /dev/null
@@ -1,96 +0,0 @@
-subroutine geodist(Eplat,Eplon,Stlat,Stlon,Az,Baz,Dist)
- implicit none
- real eplat, eplon, stlat, stlon, az, baz, dist
-
-! JHT: In actual fact, I use the first two arguments for "My Location",
-! the second two for "His location"; West longitude is positive.
-
-! Taken directly from:
-! Thomas, P.D., 1970, Spheroidal geodesics, reference systems,
-! & local geometry, U.S. Naval Oceanographi!Office SP-138,
-! 165 pp.
-! assumes North Latitude and East Longitude are positive
-
-! EpLat, EpLon = End point Lat/Long
-! Stlat, Stlon = Start point lat/long
-! Az, BAz = direct & reverse azimuith
-! Dist = Dist (km); Deg = central angle, discarded
-
- real BOA, F, P1R, P2R, L1R, L2R, DLR, T1R, T2R, TM, &
- DTM, STM, CTM, SDTM,CDTM, KL, KK, SDLMR, L, &
- CD, DL, SD, T, U, V, D, X, E, Y, A, FF64, TDLPM, &
- HAPBR, HAMBR, A1M2, A2M1
-
- real AL,BL,D2R,Pi2
-
- data AL/6378206.4/ ! Clarke 1866 ellipsoid
- data BL/6356583.8/
-! real pi /3.14159265359/
- data D2R/0.01745329251994/ ! degrees to radians conversion factor
- data Pi2/6.28318530718/
-
- BOA = BL/AL
- F = 1.0 - BOA
-! Convert st/end pts to radians
- P1R = Eplat * D2R
- P2R = Stlat * D2R
- L1R = Eplon * D2R
- L2R = StLon * D2R
- DLR = L2R - L1R ! DLR = Delta Long in Rads
- T1R = ATan(BOA * Tan(P1R))
- T2R = ATan(BOA * Tan(P2R))
- TM = (T1R + T2R) / 2.0
- DTM = (T2R - T1R) / 2.0
- STM = Sin(TM)
- CTM = Cos(TM)
- SDTM = Sin(DTM)
- CDTM = Cos(DTM)
- KL = STM * CDTM
- KK = SDTM * CTM
- SDLMR = Sin(DLR/2.0)
- L = SDTM * SDTM + SDLMR * SDLMR * (CDTM * CDTM - STM * STM)
- CD = 1.0 - 2.0 * L
- DL = ACos(CD)
- SD = Sin(DL)
- T = DL/SD
- U = 2.0 * KL * KL / (1.0 - L)
- V = 2.0 * KK * KK / L
- D = 4.0 * T * T
- X = U + V
- E = -2.0 * CD
- Y = U - V
- A = -D * E
- FF64 = F * F / 64.0
- Dist = AL*SD*(T -(F/4.0)*(T*X-Y)+FF64*(X*(A+(T-(A+E) &
- /2.0)*X)+Y*(-2.0*D+E*Y)+D*X*Y))/1000.0
- TDLPM = Tan((DLR+(-((E*(4.0-X)+2.0*Y)*((F/2.0)*T+FF64* &
- (32.0*T+(A-20.0*T)*X-2.0*(D+2.0)*Y))/4.0)*Tan(DLR)))/2.0)
- HAPBR = ATan2(SDTM,(CTM*TDLPM))
- HAMBR = Atan2(CDTM,(STM*TDLPM))
- A1M2 = Pi2 + HAMBR - HAPBR
- A2M1 = Pi2 - HAMBR - HAPBR
-
-1 If ((A1M2 .ge. 0.0) .AND. (A1M2 .lt. Pi2)) GOTO 5
- If (A1M2 .lt. Pi2) GOTO 4
- A1M2 = A1M2 - Pi2
- GOTO 1
-4 A1M2 = A1M2 + Pi2
- GOTO 1
-
-! All of this gens the proper az, baz (forward and back azimuth)
-
-5 If ((A2M1 .ge. 0.0) .AND. (A2M1 .lt. Pi2)) GOTO 9
- If (A2M1 .lt. Pi2) GOTO 8
- A2M1 = A2M1 - Pi2
- GOTO 5
-8 A2M1 = A2M1 + Pi2
- GOTO 5
-
-9 Az = A1M2 / D2R
- BAZ = A2M1 / D2R
-
-!Fix the mirrored coords here.
-
- az = 360.0 - az
- baz = 360.0 - baz
-end subroutine geodist
diff --git a/lib/getlags.f90 b/lib/getlags.f90
deleted file mode 100644
index 0d1f5d6..0000000
--- a/lib/getlags.f90
+++ /dev/null
@@ -1,27 +0,0 @@
-subroutine getlags(nsps8,lag0,lag1,lag2)
- if(nsps8.eq.864) then
- lag1=39
- lag2=291
- lag0=123
- else if(nsps8.eq.1920) then
- lag1=70
- lag2=184
- lag0=108
- else if(nsps8.eq.5120) then
- lag1=84
- lag2=129
- lag0=99
- else if(nsps8.eq.10368) then
- lag1=91
- lag2=112
- lag0=98
- else if(nsps8.eq.31500) then
- lag1=93
- lag2=102
- lag0=96
- else
- stop 'Error in getlags'
- endif
-
- return
-end subroutine getlags
diff --git a/lib/getmet24.f90 b/lib/getmet24.f90
deleted file mode 100644
index f35a90a..0000000
--- a/lib/getmet24.f90
+++ /dev/null
@@ -1,52 +0,0 @@
-subroutine getmet24(mode,mettab)
-
-! Return appropriate metric table for soft-decision convolutional decoder.
-
-! Metric table (RxSymbol,TxSymbol)
- integer mettab(0:255,0:1)
- real*4 xx0(0:255)
- data xx0/ &
- 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, &
- 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, &
- 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, &
- 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, &
- 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, &
- 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, &
- 0.988, 1.000, 0.991, 0.993, 1.000, 0.995, 1.000, 0.991, &
- 1.000, 0.991, 0.992, 0.991, 0.990, 0.990, 0.992, 0.996, &
- 0.990, 0.994, 0.993, 0.991, 0.992, 0.989, 0.991, 0.987, &
- 0.985, 0.989, 0.984, 0.983, 0.979, 0.977, 0.971, 0.975, &
- 0.974, 0.970, 0.970, 0.970, 0.967, 0.962, 0.960, 0.957, &
- 0.956, 0.953, 0.942, 0.946, 0.937, 0.933, 0.929, 0.920, &
- 0.917, 0.911, 0.903, 0.895, 0.884, 0.877, 0.869, 0.858, &
- 0.846, 0.834, 0.821, 0.806, 0.790, 0.775, 0.755, 0.737, &
- 0.713, 0.691, 0.667, 0.640, 0.612, 0.581, 0.548, 0.510, &
- 0.472, 0.425, 0.378, 0.328, 0.274, 0.212, 0.146, 0.075, &
- 0.000,-0.079,-0.163,-0.249,-0.338,-0.425,-0.514,-0.606, &
- -0.706,-0.796,-0.895,-0.987,-1.084,-1.181,-1.280,-1.376, &
- -1.473,-1.587,-1.678,-1.790,-1.882,-1.992,-2.096,-2.201, &
- -2.301,-2.411,-2.531,-2.608,-2.690,-2.829,-2.939,-3.058, &
- -3.164,-3.212,-3.377,-3.463,-3.550,-3.768,-3.677,-3.975, &
- -4.062,-4.098,-4.186,-4.261,-4.472,-4.621,-4.623,-4.608, &
- -4.822,-4.870,-4.652,-4.954,-5.108,-5.377,-5.544,-5.995, &
- -5.632,-5.826,-6.304,-6.002,-6.559,-6.369,-6.658,-7.016, &
- -6.184,-7.332,-6.534,-6.152,-6.113,-6.288,-6.426,-6.313, &
- -9.966,-6.371,-9.966,-7.055,-9.966,-6.629,-6.313,-9.966, &
- -5.858,-9.966,-9.966,-9.966,-9.966,-9.966,-9.966,-9.966, &
- -9.966,-9.966,-9.966,-9.966,-9.966,-9.966,-9.966,-9.966, &
- -9.966,-9.966,-9.966,-9.966,-9.966,-9.966,-9.966,-9.966, &
- -9.966,-9.966,-9.966,-9.966,-9.966,-9.966,-9.966,-9.966, &
- -9.966,-9.966,-9.966,-9.966,-9.966,-9.966,-9.966,-9.966, &
- -9.966,-9.966,-9.966,-9.966,-9.966,-9.966,-9.966,-9.966/
- save
-
- bias=0.5
- scale=10.0
- do i=0,255
- mettab(i,0)=nint(scale*(xx0(i)-bias))
- if(i.ge.1) mettab(256-i,1)=mettab(i,0)
- enddo
-
- return
-end subroutine getmet24
-
diff --git a/lib/getpfx1.f90 b/lib/getpfx1.f90
deleted file mode 100644
index 4d4e7aa..0000000
--- a/lib/getpfx1.f90
+++ /dev/null
@@ -1,97 +0,0 @@
-subroutine getpfx1(callsign,k,nv2)
-
- character*12 callsign0,callsign,lof,rof
- character*8 c
- character addpfx*8,tpfx*4,tsfx*3
- logical ispfx,issfx,invalid
- common/pfxcom/addpfx
- include 'pfx.f90'
-
- callsign0=callsign
- nv2=0
- iz=index(callsign,' ') - 1
- if(iz.lt.0) iz=12
- islash=index(callsign(1:iz),'/')
- k=0
- if(k.eq.0) go to 10 !### Always use JT65v2 ###
- c=' '
- if(islash.gt.0 .and. islash.le.(iz-4)) then
-! Add-on prefix
- c=callsign(1:islash-1)
- callsign=callsign(islash+1:iz)
- do i=1,NZ
- if(pfx(i)(1:4).eq.c) then
- k=i
- go to 10
- endif
- enddo
- if(addpfx.eq.c) then
- k=449
- go to 10
- endif
-
- else if(islash.eq.(iz-1)) then
-! Add-on suffix
- c=callsign(islash+1:iz)
- callsign=callsign(1:islash-1)
- do i=1,NZ2
- if(sfx(i).eq.c(1:1)) then
- k=400+i
- go to 10
- endif
- enddo
- endif
-
-10 if(islash.ne.0 .and.k.eq.0) then
-! Original JT65 would force this compound callsign to be treated as
-! plain text. In JT65v2, we will encode the prefix or suffix into nc1.
-! The task here is to compute the proper value of k.
- lof=callsign0(:islash-1)
- rof=callsign0(islash+1:)
- llof=len_trim(lof)
- lrof=len_trim(rof)
- ispfx=(llof.gt.0 .and. llof.le.4)
- issfx=(lrof.gt.0 .and. lrof.le.3)
- invalid=.not.(ispfx.or.issfx)
- if(ispfx.and.issfx) then
- if(llof.lt.3) issfx=.false.
- if(lrof.lt.3) ispfx=.false.
- if(ispfx.and.issfx) then
- i=ichar(callsign0(islash-1:islash-1))
- if(i.ge.ichar('0') .and. i.le.ichar('9')) then
- issfx=.false.
- else
- ispfx=.false.
- endif
- endif
- endif
-
- if(invalid) then
- k=-1
- else
- if(ispfx) then
- tpfx=lof(1:4)
- k=nchar(tpfx(1:1))
- k=37*k + nchar(tpfx(2:2))
- k=37*k + nchar(tpfx(3:3))
- k=37*k + nchar(tpfx(4:4))
- nv2=1
- i=index(callsign0,'/')
- callsign=callsign0(:i-1)
- callsign=callsign0(i+1:)
- endif
- if(issfx) then
- tsfx=rof(1:3)
- k=nchar(tsfx(1:1))
- k=37*k + nchar(tsfx(2:2))
- k=37*k + nchar(tsfx(3:3))
- nv2=2
- i=index(callsign0,'/')
- callsign=callsign0(:i-1)
- endif
- endif
- endif
-
- return
-end subroutine getpfx1
-
diff --git a/lib/getpfx2.f90 b/lib/getpfx2.f90
deleted file mode 100644
index d747e7f..0000000
--- a/lib/getpfx2.f90
+++ /dev/null
@@ -1,24 +0,0 @@
-subroutine getpfx2(k0,callsign)
-
- character callsign*12
- include 'pfx.f90'
- character addpfx*8
- common/pfxcom/addpfx
-
- k=k0
- if(k.gt.450) k=k-450
- if(k.ge.1 .and. k.le.NZ) then
- iz=index(pfx(k),' ') - 1
- callsign=pfx(k)(1:iz)//'/'//callsign
- else if(k.ge.401 .and. k.le.400+NZ2) then
- iz=index(callsign,' ') - 1
- callsign=callsign(1:iz)//'/'//sfx(k-400)
- else if(k.eq.449) then
- iz=index(addpfx,' ') - 1
- if(iz.lt.1) iz=8
- callsign=addpfx(1:iz)//'/'//callsign
- endif
-
- return
-end subroutine getpfx2
-
diff --git a/lib/gran.c b/lib/gran.c
deleted file mode 100644
index ceeb6da..0000000
--- a/lib/gran.c
+++ /dev/null
@@ -1,28 +0,0 @@
-#include <stdlib.h>
-#include <math.h>
-
-/* Generate gaussian random float with mean=0 and std_dev=1 */
-float gran_()
-{
- float fac,rsq,v1,v2;
- static float gset;
- static int iset;
-
- if(iset){
- /* Already got one */
- iset = 0;
- return gset;
- }
- /* Generate two evenly distributed numbers between -1 and +1
- * that are inside the unit circle
- */
- do {
- v1 = 2.0 * (float)rand() / RAND_MAX - 1;
- v2 = 2.0 * (float)rand() / RAND_MAX - 1;
- rsq = v1*v1 + v2*v2;
- } while(rsq >= 1.0 || rsq == 0.0);
- fac = sqrt(-2.0*log(rsq)/rsq);
- gset = v1*fac;
- iset++;
- return v2*fac;
-}
diff --git a/lib/graycode.f90 b/lib/graycode.f90
deleted file mode 100644
index 21c1f90..0000000
--- a/lib/graycode.f90
+++ /dev/null
@@ -1,9 +0,0 @@
-subroutine graycode(ia,n,idir,ib)
-
- integer ia(n),ib(n)
- do i=1,n
- ib(i)=igray(ia(i),idir)
- enddo
-
- return
-end subroutine graycode
diff --git a/lib/graycode65.f90 b/lib/graycode65.f90
deleted file mode 100644
index 3ee9a42..0000000
--- a/lib/graycode65.f90
+++ /dev/null
@@ -1,9 +0,0 @@
-subroutine graycode65(dat,n,idir)
-
- integer dat(n)
- do i=1,n
- dat(i)=igray(dat(i),idir)
- enddo
-
- return
-end subroutine graycode65
diff --git a/lib/grid2deg.f90 b/lib/grid2deg.f90
deleted file mode 100644
index 843fc84..0000000
--- a/lib/grid2deg.f90
+++ /dev/null
@@ -1,38 +0,0 @@
-subroutine grid2deg(grid0,dlong,dlat)
-
-! Converts Maidenhead grid locator to degrees of West longitude
-! and North latitude.
-
- character*6 grid0,grid
- character*1 g1,g2,g3,g4,g5,g6
-
- grid=grid0
- i=ichar(grid(5:5))
- if(grid(5:5).eq.' ' .or. i.le.64 .or. i.ge.128) grid(5:6)='mm'
-
- if(grid(1:1).ge.'a' .and. grid(1:1).le.'z') grid(1:1)= &
- char(ichar(grid(1:1))+ichar('A')-ichar('a'))
- if(grid(2:2).ge.'a' .and. grid(2:2).le.'z') grid(2:2)= &
- char(ichar(grid(2:2))+ichar('A')-ichar('a'))
- if(grid(5:5).ge.'A' .and. grid(5:5).le.'Z') grid(5:5)= &
- char(ichar(grid(5:5))-ichar('A')+ichar('a'))
- if(grid(6:6).ge.'A' .and. grid(6:6).le.'Z') grid(6:6)= &
- char(ichar(grid(6:6))-ichar('A')+ichar('a'))
-
- g1=grid(1:1)
- g2=grid(2:2)
- g3=grid(3:3)
- g4=grid(4:4)
- g5=grid(5:5)
- g6=grid(6:6)
-
- nlong = 180 - 20*(ichar(g1)-ichar('A'))
- n20d = 2*(ichar(g3)-ichar('0'))
- xminlong = 5*(ichar(g5)-ichar('a')+0.5)
- dlong = nlong - n20d - xminlong/60.0
- nlat = -90+10*(ichar(g2)-ichar('A')) + ichar(g4)-ichar('0')
- xminlat = 2.5*(ichar(g6)-ichar('a')+0.5)
- dlat = nlat + xminlat/60.0
-
- return
-end subroutine grid2deg
diff --git a/lib/grid2k.f90 b/lib/grid2k.f90
deleted file mode 100644
index f68b140..0000000
--- a/lib/grid2k.f90
+++ /dev/null
@@ -1,12 +0,0 @@
-subroutine grid2k(grid,k)
-
- character*6 grid
-
- call grid2deg(grid,xlong,xlat)
- nlong=nint(xlong)
- nlat=nint(xlat)
- k=0
- if(nlat.ge.85) k=5*(nlong+179)/2 + nlat-84
-
- return
-end subroutine grid2k
diff --git a/lib/grid2n.f90 b/lib/grid2n.f90
deleted file mode 100644
index d02d786..0000000
--- a/lib/grid2n.f90
+++ /dev/null
@@ -1,10 +0,0 @@
-subroutine grid2n(grid,n)
- character*4 grid
-
- i1=ichar(grid(1:1))-ichar('A')
- i2=ichar(grid(3:3))-ichar('0')
- i=10*i1 + i2
- n=-i - 31
-
- return
-end subroutine grid2n
diff --git a/lib/igray.c b/lib/igray.c
deleted file mode 100644
index 4646898..0000000
--- a/lib/igray.c
+++ /dev/null
@@ -1,18 +0,0 @@
-int igray_(int *n0, int *idir)
-{
- int n;
- unsigned long sh;
- unsigned long nn;
- n=*n0;
-
- if(*idir>0) return (n ^ (n >> 1));
-
- sh = 1;
- nn = (n >> sh);
- while (nn > 0) {
- n ^= nn;
- sh <<= 1;
- nn = (n >> sh);
- }
- return (n);
-}
diff --git a/lib/indexx.f90 b/lib/indexx.f90
deleted file mode 100644
index 57c1ec0..0000000
--- a/lib/indexx.f90
+++ /dev/null
@@ -1,19 +0,0 @@
-subroutine indexx(n,arr,indx)
-
- parameter (NMAX=3000)
- integer indx(n)
- real arr(n)
- real brr(NMAX)
- if(n.gt.NMAX) then
- print*,'n=',n,' too big in indexx.'
- stop
- endif
- do i=1,n
- brr(i)=arr(i)
- indx(i)=i
- enddo
- call ssort(brr,indx,n,2)
-
- return
-end subroutine indexx
-
diff --git a/lib/init_rs.c b/lib/init_rs.c
deleted file mode 100644
index eb27119..0000000
--- a/lib/init_rs.c
+++ /dev/null
@@ -1,126 +0,0 @@
-/* Initialize a RS codec
- *
- * Copyright 2002 Phil Karn, KA9Q
- * May be used under the terms of the GNU General Public License (GPL)
- */
-#include <stdlib.h>
-
-#ifdef CCSDS
-#include "ccsds.h"
-#elif defined(BIGSYM)
-#include "int.h"
-#else
-#include "char.h"
-#endif
-
-//#define NULL ((void *)0)
-
-void FREE_RS(void *p){
- struct rs *rs = (struct rs *)p;
-
- free(rs->alpha_to);
- free(rs->index_of);
- free(rs->genpoly);
- free(rs);
-}
-
-/* Initialize a Reed-Solomon codec
- * symsize = symbol size, bits (1-8)
- * gfpoly = Field generator polynomial coefficients
- * fcr = first root of RS code generator polynomial, index form
- * prim = primitive element to generate polynomial roots
- * nroots = RS code generator polynomial degree (number of roots)
- * pad = padding bytes at front of shortened block
- */
-void *INIT_RS(int symsize,int gfpoly,int fcr,int prim,
- int nroots,int pad){
- struct rs *rs;
- int i, j, sr,root,iprim;
-
- /* Check parameter ranges */
- if(symsize < 0 || symsize > 8*sizeof(DTYPE))
- return NULL; /* Need version with ints rather than chars */
-
- if(fcr < 0 || fcr >= (1<<symsize))
- return NULL;
- if(prim <= 0 || prim >= (1<<symsize))
- return NULL;
- if(nroots < 0 || nroots >= (1<<symsize))
- return NULL; /* Can't have more roots than symbol values! */
- if(pad < 0 || pad >= ((1<<symsize) -1 - nroots))
- return NULL; /* Too much padding */
-
- rs = (struct rs *)calloc(1,sizeof(struct rs));
- rs->mm = symsize;
- rs->nn = (1<<symsize)-1;
- rs->pad = pad;
-
- rs->alpha_to = (DTYPE *)malloc(sizeof(DTYPE)*(rs->nn+1));
- if(rs->alpha_to == NULL){
- free(rs);
- return NULL;
- }
- rs->index_of = (DTYPE *)malloc(sizeof(DTYPE)*(rs->nn+1));
- if(rs->index_of == NULL){
- free(rs->alpha_to);
- free(rs);
- return NULL;
- }
-
- /* Generate Galois field lookup tables */
- rs->index_of[0] = A0; /* log(zero) = -inf */
- rs->alpha_to[A0] = 0; /* alpha**-inf = 0 */
- sr = 1;
- for(i=0;i<rs->nn;i++){
- rs->index_of[sr] = i;
- rs->alpha_to[i] = sr;
- sr <<= 1;
- if(sr & (1<<symsize))
- sr ^= gfpoly;
- sr &= rs->nn;
- }
- if(sr != 1){
- /* field generator polynomial is not primitive! */
- free(rs->alpha_to);
- free(rs->index_of);
- free(rs);
- return NULL;
- }
-
- /* Form RS code generator polynomial from its roots */
- rs->genpoly = (DTYPE *)malloc(sizeof(DTYPE)*(nroots+1));
- if(rs->genpoly == NULL){
- free(rs->alpha_to);
- free(rs->index_of);
- free(rs);
- return NULL;
- }
- rs->fcr = fcr;
- rs->prim = prim;
- rs->nroots = nroots;
-
- /* Find prim-th root of 1, used in decoding */
- for(iprim=1;(iprim % prim) != 0;iprim += rs->nn)
- ;
- rs->iprim = iprim / prim;
-
- rs->genpoly[0] = 1;
- for (i = 0,root=fcr*prim; i < nroots; i++,root += prim) {
- rs->genpoly[i+1] = 1;
-
- /* Multiply rs->genpoly[] by @**(root + x) */
- for (j = i; j > 0; j--){
- if (rs->genpoly[j] != 0)
- rs->genpoly[j] = rs->genpoly[j-1] ^ rs->alpha_to[modnn(rs,rs->index_of[rs->genpoly[j]] + root)];
- else
- rs->genpoly[j] = rs->genpoly[j-1];
- }
- /* rs->genpoly[0] can never be zero */
- rs->genpoly[0] = rs->alpha_to[modnn(rs,rs->index_of[rs->genpoly[0]] + root)];
- }
- /* convert rs->genpoly[] to index form for quicker encoding */
- for (i = 0; i <= nroots; i++)
- rs->genpoly[i] = rs->index_of[rs->genpoly[i]];
-
- return rs;
-}
diff --git a/lib/int.h b/lib/int.h
deleted file mode 100644
index 056241e..0000000
--- a/lib/int.h
+++ /dev/null
@@ -1,57 +0,0 @@
-/* Include file to configure the RS codec for integer symbols
- *
- * Copyright 2002, Phil Karn, KA9Q
- * May be used under the terms of the GNU General Public License (GPL)
- */
-#define DTYPE int
-
-/* Reed-Solomon codec control block */
-struct rs {
- int mm; /* Bits per symbol */
- int nn; /* Symbols per block (= (1<<mm)-1) */
- DTYPE *alpha_to; /* log lookup table */
- DTYPE *index_of; /* Antilog lookup table */
- DTYPE *genpoly; /* Generator polynomial */
- int nroots; /* Number of generator roots = number of parity symbols */
- int fcr; /* First consecutive root, index form */
- int prim; /* Primitive element, index form */
- int iprim; /* prim-th root of 1, index form */
- int pad; /* Padding bytes in shortened block */
-};
-
-static int modnn(struct rs *rs,int x){
- while (x >= rs->nn) {
- x -= rs->nn;
- x = (x >> rs->mm) + (x & rs->nn);
- }
- return x;
-}
-#define MODNN(x) modnn(rs,x)
-
-#define MM (rs->mm)
-#define NN (rs->nn)
-#define ALPHA_TO (rs->alpha_to)
-#define INDEX_OF (rs->index_of)
-#define GENPOLY (rs->genpoly)
-//#define NROOTS (rs->nroots)
-#define NROOTS (51)
-#define FCR (rs->fcr)
-#define PRIM (rs->prim)
-#define IPRIM (rs->iprim)
-#define PAD (rs->pad)
-#define A0 (NN)
-
-#define ENCODE_RS encode_rs_int
-#define DECODE_RS decode_rs_int
-#define INIT_RS init_rs_int
-#define FREE_RS free_rs_int
-
-void ENCODE_RS(void *p,DTYPE *data,DTYPE *parity);
-int DECODE_RS(void *p,DTYPE *data,int *eras_pos,int no_eras);
-void *INIT_RS(int symsize,int gfpoly,int fcr,
- int prim,int nroots,int pad);
-void FREE_RS(void *p);
-
-
-
-
diff --git a/lib/interleave24.f90 b/lib/interleave24.f90
deleted file mode 100644
index 3cdd9c5..0000000
--- a/lib/interleave24.f90
+++ /dev/null
@@ -1,43 +0,0 @@
-subroutine interleave24(id,ndir)
- integer*1 id(0:205),itmp(0:205)
- integer j0(0:205)
- logical first
- data first/.true./
- save first,j0
-
- if(first) then
- k=-1
- do i=0,255
- m=i
- n=iand(m,1)
- n=2*n + iand(m/2,1)
- n=2*n + iand(m/4,1)
- n=2*n + iand(m/8,1)
- n=2*n + iand(m/16,1)
- n=2*n + iand(m/32,1)
- n=2*n + iand(m/64,1)
- n=2*n + iand(m/128,1)
- if(n.le.205) then
- k=k+1
- j0(k)=n
- endif
- enddo
- first=.false.
- endif
-
- if(ndir.eq.1) then
- do i=0,205
- itmp(j0(i))=id(i)
- enddo
- else
- do i=0,205
- itmp(i)=id(j0(i))
- enddo
- endif
-
- do i=0,205
- id(i)=itmp(i)
- enddo
-
- return
-end subroutine interleave24
diff --git a/lib/interleave63.f90 b/lib/interleave63.f90
deleted file mode 100644
index 048244e..0000000
--- a/lib/interleave63.f90
+++ /dev/null
@@ -1,25 +0,0 @@
-subroutine interleave63(d1,idir)
-
-! Interleave (idir=1) or de-interleave (idir=-1) the array d1.
-
- integer d1(0:6,0:8)
- integer d2(0:8,0:6)
-
- if(idir.ge.0) then
- do i=0,6
- do j=0,8
- d2(j,i)=d1(i,j)
- enddo
- enddo
- call move(d2,d1,63)
- else
- call move(d1,d2,63)
- do i=0,6
- do j=0,8
- d1(i,j)=d2(j,i)
- enddo
- enddo
- endif
-
- return
-end subroutine interleave63
diff --git a/lib/interleave8.f90 b/lib/interleave8.f90
deleted file mode 100644
index e13346e..0000000
--- a/lib/interleave8.f90
+++ /dev/null
@@ -1,17 +0,0 @@
-subroutine interleave8(idat,jdat)
-
- integer idat(66),jdat(66)
- integer ii(66),jj(66)
- data ii/ &
- 64,32,16,48, 8,40,24,56, 4,36,20,52,12,44,28,60, 2,66,34,18, &
- 50,10,42,26,58, 6,38,22,54,14,46,30,62, 1,65,33,17,49, 9,41, &
- 25,57, 5,37,21,53,13,45,29,61, 3,35,19,51,11,43,27,59, 7,39, &
- 23,55,15,47,31,63/
- data jj/ &
- 34,17,51, 9,43,26,59, 5,39,22,55,13,47,30,63, 3,37,20,53,11, &
- 45,28,61, 7,41,24,57,15,49,32,65, 2,36,19,52,10,44,27,60, 6, &
- 40,23,56,14,48,31,64, 4,38,21,54,12,46,29,62, 8,42,25,58,16, &
- 50,33,66, 1,35,18/
-
- return
-end subroutine interleave8
diff --git a/lib/interleave9.f90 b/lib/interleave9.f90
deleted file mode 100644
index e3026a9..0000000
--- a/lib/interleave9.f90
+++ /dev/null
@@ -1,39 +0,0 @@
-subroutine interleave9(ia,ndir,ib)
- integer*1 ia(0:205),ib(0:205)
- integer j0(0:205)
- logical first
- data first/.true./
- save first,j0 !Save not working, or j0 overwritten ???
-
- if(first) then
- k=-1
- do i=0,255
- m=i
- n=iand(m,1)
- n=2*n + iand(m/2,1)
- n=2*n + iand(m/4,1)
- n=2*n + iand(m/8,1)
- n=2*n + iand(m/16,1)
- n=2*n + iand(m/32,1)
- n=2*n + iand(m/64,1)
- n=2*n + iand(m/128,1)
- if(n.le.205) then
- k=k+1
- j0(k)=n
- endif
- enddo
-! first=.false.
- endif
-
- if(ndir.gt.0) then
- do i=0,205
- ib(j0(i))=ia(i)
- enddo
- else
- do i=0,205
- ib(i)=ia(j0(i))
- enddo
- endif
-
- return
-end subroutine interleave9
diff --git a/lib/ipcomm.cpp b/lib/ipcomm.cpp
deleted file mode 100644
index d845a60..0000000
--- a/lib/ipcomm.cpp
+++ /dev/null
@@ -1,50 +0,0 @@
-#include <QDebug>
-#include <QString>
-#include <QSharedMemory>
-#include <QSystemSemaphore>
-
-// Multiple instances: KK1D, 17 Jul 2013
-QSharedMemory mem_jt9;
-
-// Semaphore not changed, as the acquire/release calls do not
-// appear to be used anywhere.
-QSystemSemaphore sem_jt9("sem_jt9", 1, QSystemSemaphore::Open);
-
-extern "C" {
- bool attach_jt9_();
- bool create_jt9_(int nsize);
- bool detach_jt9_();
- bool lock_jt9_();
- bool unlock_jt9_();
- char* address_jt9_();
- int size_jt9_();
-// Multiple instances: wrapper for QSharedMemory::setKey()
- bool setkey_jt9_(char* mykey, int mykey_len);
-
- bool acquire_jt9_();
- bool release_jt9_();
-
- extern struct {
- char c[10];
- } jt9com_;
-}
-
-bool attach_jt9_() {return mem_jt9.attach();}
-bool create_jt9_(int nsize) {return mem_jt9.create(nsize);}
-bool detach_jt9_() {return mem_jt9.detach();}
-bool lock_jt9_() {return mem_jt9.lock();}
-bool unlock_jt9_() {return mem_jt9.unlock();}
-char* address_jt9_() {return (char*)mem_jt9.constData();}
-int size_jt9_() {return (int)mem_jt9.size();}
-
-// Multiple instances:
-bool setkey_jt9_(char* mykey, int mykey_len) {
- char *tempstr = (char *)calloc(mykey_len+1,1);
- memset(tempstr, 0, mykey_len+1);
- strncpy(tempstr, mykey, mykey_len);
- QString s1 = QString(QLatin1String(tempstr));
- mem_jt9.setKey(s1);
- return true;}
-
-bool acquire_jt9_() {return sem_jt9.acquire();}
-bool release_jt9_() {return sem_jt9.release();}
diff --git a/lib/jt65.f90 b/lib/jt65.f90
deleted file mode 100644
index 10f7525..0000000
--- a/lib/jt65.f90
+++ /dev/null
@@ -1,68 +0,0 @@
-program jt65
-
-! Test the JT65 decoder for WSJT-X
-
- parameter (NZMAX=60*12000)
- integer*4 ihdr(11)
- integer*2 id2(NZMAX)
- real*4 dd(NZMAX)
- character*80 infile
- integer*2 nfmt2,nchan2,nbitsam2,nbytesam2
- character*4 ariff,awave,afmt,adata
- common/hdr/ariff,lenfile,awave,afmt,lenfmt,nfmt2,nchan2, &
- nsamrate,nbytesec,nbytesam2,nbitsam2,adata,ndata
- common/tracer/limtrace,lu
- equivalence (lenfile,ihdr(2))
-
- nargs=iargc()
- if(nargs.lt.1) then
- print*,'Usage: jt65 file1 [file2 ...]'
- go to 999
- endif
- limtrace=0
- lu=12
-
- newdat=1
- ntol=50
- nfa=2700
-! nfb=4000
- nfqso=933
- nagain=0
-
- open(12,file='timer.out',status='unknown')
- open(22,file='kvasd.dat',access='direct',recl=1024,status='unknown')
-
- call timer('jt65 ',0)
-
- do ifile=1,nargs
- call getarg(ifile,infile)
- open(10,file=infile,access='stream',status='old',err=998)
-
- call timer('read ',0)
- read(10) ihdr
- nutc=ihdr(1) !Silence compiler warning
- i1=index(infile,'.wav')
- read(infile(i1-4:i1-1),*,err=10) nutc
- go to 20
-10 nutc=0
-20 npts=52*12000
- read(10) id2(1:npts)
- call timer('read ',1)
- dd(1:npts)=id2(1:npts)
- dd(npts+1:)=0.
-
- call timer('jt65a ',0)
- call jt65a(dd,npts,newdat,nutc,ntol,nfa,nfqso,nagain,ndecoded)
- call timer('jt65a ',1)
- enddo
-
- call timer('jt65 ',1)
- call timer('jt65 ',101)
- call four2a(a,-1,1,1,1) !Free the memory used for plans
- call filbig(a,-1,1,0.0,0,0,0,0,0) ! (ditto)
- go to 999
-
-998 print*,'Cannot open file:'
- print*,infile
-
-999 end program jt65
diff --git a/lib/jt65a.f90 b/lib/jt65a.f90
deleted file mode 100644
index 0c061ed..0000000
--- a/lib/jt65a.f90
+++ /dev/null
@@ -1,85 +0,0 @@
-subroutine jt65a(dd,npts,newdat,nutc,nfa,nfqso,ntol,nagain,ndecoded)
-
-! Process dd() data to find and decode JT65 signals.
-
- parameter (NSZ=3413)
- parameter (NZMAX=60*12000)
- parameter (NFFT=8192)
- real dd(NZMAX)
- real*4 ss(322,NSZ)
- real*4 savg(NSZ)
- logical done(NSZ)
- real a(5)
- character decoded*22
- save
-
- if(newdat.ne.0) then
- call timer('symsp65 ',0)
- call symspec65(dd,npts,ss,nhsym,savg) !Get normalized symbol spectra
- call timer('symsp65 ',1)
- endif
-
- df=12000.0/NFFT !df = 12000.0/16384 = 0.732 Hz
- ftol=16.0 !Frequency tolerance (Hz)
- mode65=1 !Decoding JT65A only, for now.
- done=.false.
- freq0=-999.
-
- do nqd=1,0,-1
- if(nqd.eq.1) then !Quick decode, at fQSO
- fa=nfqso - ntol
- fb=nfqso + ntol
- else !Wideband decode at all freqs
- fa=200
- fb=nfa
- endif
- ia=max(51,nint(fa/df))
- ib=min(NSZ-51,nint(fb/df))
-
- thresh0=1.5
-
- do i=ia,ib !Search over freq range
- freq=i*df
- if(savg(i).lt.thresh0 .or. done(i)) cycle
-
- call timer('ccf65 ',0)
- call ccf65(ss(1,i),nhsym,savg(i),sync1,dt,flipk,syncshort,snr2,dt2)
- call timer('ccf65 ',1)
-
- ftest=abs(freq-freq0)
- thresh1=1.0
- if(nqd.eq.1 .and. ntol.le.100) thresh1=0.
- if(sync1.lt.thresh1 .or. ftest.lt.ftol) cycle
-
- nflip=nint(flipk)
- call timer('decod65a',0)
- call decode65a(dd,npts,newdat,freq,nflip,mode65,sync2,a,dt, &
- nbmkv,nhist,decoded)
- call timer('decod65a',1)
-
- ftest=abs(freq+a(1)-freq0)
- if(ftest.lt.ftol) cycle
-
- if(decoded.ne.' ') then
- ndecoded=1
- nfreq=nint(freq+a(1))
- ndrift=nint(2.0*a(2))
- s2db=10.0*log10(sync2) - 32 !### empirical (was 40) ###
- nsnr=nint(s2db)
- if(nsnr.lt.-30) nsnr=-30
- if(nsnr.gt.-1) nsnr=-1
- write(*,1010) nutc,nsnr,dt,nfreq,decoded
-1010 format(i4.4,i4,f5.1,i5,1x,'#',1x,a22)
- write(13,1012) nutc,nint(sync1),nsnr,dt,float(nfreq),ndrift, &
- decoded,nbmkv
-1012 format(i4.4,i4,i5,f6.1,f8.0,i4,3x,a22,' JT65',i4)
- freq0=freq+a(1)
- i2=min(NSZ,i+15) !### ??? ###
- done(i:i2)=.true.
- endif
- enddo
- if(nagain.eq.1) exit
- enddo
-
- return
-end subroutine jt65a
diff --git a/lib/jt9.f90 b/lib/jt9.f90
deleted file mode 100644
index 1f0a619..0000000
--- a/lib/jt9.f90
+++ /dev/null
@@ -1,111 +0,0 @@
-program jt9
-
-! Decoder for JT9. Can run stand-alone, reading data from *.wav files;
-! or as the back end of wsjt-x, with data placed in a shared memory region.
-
- include 'constants.f90'
- integer*4 ihdr(11)
- real*4 s(NSMAX)
- integer*2 id2
- character*80 arg,infile
- common/jt9com/ss(184,NSMAX),savg(NSMAX),id2(NMAX),nutc,ndiskdat, &
- ntr,mousefqso,newdat,nfa,nfb,ntol,kin,nzhsym,nsynced,ndecoded
- common/tracer/limtrace,lu
-
- nargs=iargc()
- if(nargs.lt.1) then
- print*,'Usage: jt9 TRperiod ndepth rxfreq file1 [file2 ...]'
- print*,' Reads data from *.wav files.'
- print*,''
- print*,' jt9 -s <key>'
- print*,' Gets data from shared memory region with key==<key>'
- go to 999
- endif
- call getarg(1,arg)
- if(arg(1:2).eq.'-s') then
-! Multiple instances:
- call getarg(2,arg)
- i0=len(trim(arg))
- call jt9a(trim(arg))
- go to 999
- endif
- read(arg,*) ntrperiod
- call getarg(2,arg)
- read(arg,*) ndepth
- call getarg(3,arg)
- read(arg,*) nrxfreq
- ifile1=4
-
- limtrace=0
- lu=12
-
- do ifile=ifile1,nargs
- call getarg(ifile,infile)
- open(10,file=infile,access='stream',status='old',err=998)
- read(10) ihdr
- nutc0=ihdr(1) !Silence compiler warning
- i1=index(infile,'.wav')
- read(infile(i1-4:i1-1),*,err=1) nutc0
- go to 2
-1 nutc0=0
-2 nsps=0
- if(ntrperiod.eq.1) then
- nsps=6912
- nzhsym=173
- else if(ntrperiod.eq.2) then
- nsps=15360
- nzhsym=178
- else if(ntrperiod.eq.5) then
- nsps=40960
- nzhsym=172
- else if(ntrperiod.eq.10) then
- nsps=82944
- nzhsym=171
- else if(ntrperiod.eq.30) then
- nsps=252000
- nzhsym=167
- endif
- if(nsps.eq.0) stop 'Error: bad TRperiod'
-
- kstep=nsps/2
- k=0
- nhsym0=-999
- npts=(60*ntrperiod-6)*12000
- if(ifile.eq.ifile1) then
- open(12,file='timer.out',status='unknown')
- call timer('jt9 ',0)
- endif
-
- id2=0 !??? Why is this necessary ???
-
- do iblk=1,npts/kstep
- k=iblk*kstep
- call timer('read_wav',0)
- read(10,end=10) id2(k-kstep+1:k)
- call timer('read_wav',1)
-
- nhsym=(k-2048)/kstep
- if(nhsym.ge.1 .and. nhsym.ne.nhsym0) then
-! Emit signal readyForFFT
- ingain=0
- call timer('symspec ',0)
- call symspec(k,ntrperiod,nsps,ingain,slope,pxdb,s,df3,ihsym,npts8)
- call timer('symspec ',1)
- nhsym0=nhsym
- if(ihsym.ge.173) go to 10
- endif
- enddo
-
-10 close(10)
- call fillcom(nutc0,ndepth,nrxfreq)
- call decoder(ss,id2)
- enddo
-
- call timer('jt9 ',1)
- call timer('jt9 ',101)
- go to 999
-
-998 print*,'Cannot open file:'
- print*,infile
-
-999 end program jt9
diff --git a/lib/jt9a.f90 b/lib/jt9a.f90
deleted file mode 100644
index 113533c..0000000
--- a/lib/jt9a.f90
+++ /dev/null
@@ -1,72 +0,0 @@
-subroutine jt9a(thekey)
-
- character(len=*), intent(in):: thekey
-
-! These routines connect the shared memory region to the decoder.
- interface
- function address_jt9()
- integer*1, pointer :: address_jt9
- end function address_jt9
- end interface
-
- integer*1 attach_jt9
-! integer*1 lock_jt9,unlock_jt9
- integer size_jt9
- integer*1, pointer :: p_jt9
- character*80 cwd
-! Multiple instances:
- character*80 mykey
- logical fileExists
- common/tracer/limtrace,lu
-
-! Multiple instances:
- i0 = len(trim(thekey))
-
- call getcwd(cwd)
- open(12,file='timer.out',status='unknown')
-
- limtrace=0
-! limtrace=-1 !Disable all calls to timer()
- lu=12
-
-! Multiple instances: set the shared memory key before attaching
- mykey=trim(repeat(thekey,1))
- i0 = len(mykey)
- i0=setkey_jt9(trim(mykey))
-
- i1=attach_jt9()
-
-10 inquire(file=trim(cwd)//'/.lock',exist=fileExists)
- if(fileExists) then
- call sleep_msec(100)
- go to 10
- endif
-
- inquire(file=trim(cwd)//'/.quit',exist=fileExists)
- if(fileExists) then
-! call ftnquit
- i1=detach_jt9()
- go to 999
- endif
- if(i1.eq.999999) stop !Silence compiler warning
-
- nbytes=size_jt9()
- if(nbytes.le.0) then
- print*,'jt9a: Shared memory mem_jt9 does not exist.'
- print*,"Must start 'jt9 -s <thekey>' from within WSJT-X."
- go to 999
- endif
- p_jt9=>address_jt9()
- call timer('jt9b ',0)
- call jt9b(p_jt9,nbytes)
- call timer('jt9b ',1)
-
-100 inquire(file=trim(cwd)//'/.lock',exist=fileExists)
- if(fileExists) go to 10
- call sleep_msec(100)
- go to 100
-
-999 call timer('jt9b ',101)
-
- return
-end subroutine jt9a
diff --git a/lib/jt9b.f90 b/lib/jt9b.f90
deleted file mode 100644
index 63de536..0000000
--- a/lib/jt9b.f90
+++ /dev/null
@@ -1,12 +0,0 @@
-subroutine jt9b(jt9com,nbytes)
-
- include 'constants.f90'
- integer*1 jt9com(0:nbytes-1)
- kss=0
- ksavg=kss + 4*184*NSMAX
- kid2=ksavg + 4*NSMAX
- knutc=kid2 + 2*NTMAX*12000
- call jt9c(jt9com(kss),jt9com(ksavg),jt9com(kid2),jt9com(knutc))
-
- return
-end subroutine jt9b
diff --git a/lib/jt9c.f90 b/lib/jt9c.f90
deleted file mode 100644
index 57b3cb2..0000000
--- a/lib/jt9c.f90
+++ /dev/null
@@ -1,21 +0,0 @@
-subroutine jt9c(ss,savg,id2,nparams0)
-
- include 'constants.f90'
- real*4 ss(184*NSMAX),savg(NSMAX)
- integer*2 id2(NTMAX*12000)
-
- integer nparams0(21),nparams(21)
- character*20 datetime
- common/npar/nutc,ndiskdat,ntrperiod,nfqso,newdat,npts8,nfa,nfb,ntol, &
- kin,nzhsym,nsave,nagain,ndepth,ntxmode,nmode,datetime
- equivalence (nparams,nutc)
-
- nutc=id2(1)+int(savg(1)) !Silence compiler warning
- nparams=nparams0 !Copy parameters into common/npar/
-
- call flush(6)
-! if(sum(nparams).ne.0) call decoder(ss,id2)
- call decoder(ss,id2)
-
- return
-end subroutine jt9c
diff --git a/lib/jt9code.f90 b/lib/jt9code.f90
deleted file mode 100644
index a4f0d3e..0000000
--- a/lib/jt9code.f90
+++ /dev/null
@@ -1,29 +0,0 @@
-program jt9code
-
-! Generate simulated data for testing of WSJT-X
-
- character msg*22,msg0*22,decoded*22
- integer*4 i4tone(85) !Channel symbols (values 0-8)
- include 'jt9sync.f90'
-
- nargs=iargc()
- if(nargs.ne.1) then
- print*,'Usage: jt9code "message"'
- go to 999
- endif
-
- call getarg(1,msg0)
- write(*,1000) msg0
-1000 format('Message:',3x,a22)
- msg=msg0
- ichk=0
- itext=0
- call genjt9(msg,ichk,decoded,i4tone,itext) !Encode message into tone #s
- write(*,1002) i4tone
-1002 format('Channel symbols:'/(30i2))
- if(itext.eq.0) write(*,1004) decoded
-1004 format('Decoded message:',1x,a22)
- if(itext.ne.0) write(*,1005) decoded
-1005 format('Decoded message:',1x,a22,3x,'(free text)')
-
-999 end program jt9code
diff --git a/lib/jt9sim.f90 b/lib/jt9sim.f90
deleted file mode 100644
index f4f0cf6..0000000
--- a/lib/jt9sim.f90
+++ /dev/null
@@ -1,166 +0,0 @@
-program jt9sim
-
-! Generate simulated data for testing of WSJT-X
-
- parameter (NTMAX=120)
- parameter (NMAX=NTMAX*12000)
- integer ihdr(11)
- integer*2 iwave !Generated waveform (no noise)
- real*8 f0,f,dt,twopi,phi,dphi,baud,fspan,fsample,freq
- character msg*22,msg0*22,message*22,msgsent*22,arg*8,fname*11
-
- integer*4 i4tone(85) !Channel symbols (values 0-8)
- integer*4 i4DataSymNoGray(69) !Data Symbols, values 0-7
- integer*1 i1ScrambledBits(207) !Unpacked bits, scrambled order
- integer*1 i1Bits(207) !Encoded information-carrying bits
- integer*1 i1SoftSymbols(207)
- include 'jt9sync.f90'
- common/acom/dat(NMAX),iwave(NMAX)
-
- nargs=iargc()
- if(nargs.ne.6) then
- print*,'Usage: jt9sim "message" fspan nsigs minutes SNR nfiles'
- print*,'Example: "CQ K1ABC FN42" 200 20 2 -28 1'
- print*,' '
- print*,'Enter message = "" to use entries in msgs.txt.'
- print*,'Enter SNR = 0 to generate a range of SNRs.'
- go to 999
- endif
-
- call getarg(1,msg0)
- message=msg0 !Transmitted message
- call getarg(2,arg)
- read(arg,*) fspan !Total freq range (Hz)
- call getarg(3,arg)
- read(arg,*) nsigs !Number of signals in each file
- call getarg(4,arg)
- read(arg,*) minutes !Length of file (1 2 5 10 30 minutes)
- call getarg(5,arg)
- read(arg,*) snrdb !S/N in dB (2500 hz reference BW)
- call getarg(6,arg)
- read(arg,*) nfiles !Number of files
-
- rmsdb=25.
- rms=10.0**(0.05*rmsdb)
- fsample=12000.d0 !Sample rate (Hz)
- dt=1.d0/fsample !Sample interval (s)
- twopi=8.d0*atan(1.d0)
- npts=12000*(60*minutes-6)
- nsps=0
- if(minutes.eq.1) nsps=6912
- if(minutes.eq.2) nsps=15360
- if(minutes.eq.5) nsps=40960
- if(minutes.eq.10) nsps=82944
- if(minutes.eq.30) nsps=252000
- if(nsps.eq.0) stop 'Bad value for minutes.'
-
- f0=1400.d0 !Center frequency (Hz)
-! f0=1500.0
-! if(minutes.eq.5) f0=1100.
-! if(minutes.eq.10) f0=1050.
-! if(minutes.eq.30) f0=1025.
-
- ihdr=0 !Temporary ###
- k=0 !Silence compiler warning
-
- if(msg0(1:3).eq.'sin') read(msg0(4:),*) sinfreq
-
- open(12,file='msgs.txt',status='old')
-
- write(*,1000)
-1000 format('File N freq S/N Message'/ &
- '---------------------------------------------------')
-
- do ifile=1,nfiles !Loop over all files
- nmin=(ifile-1)*minutes
- ihr=nmin/60
- imin=mod(nmin,60)
- write(fname,1002) ihr,imin !Create output filename
-1002 format('000000_',2i2.2)
- open(10,file=fname//'.wav',access='stream',status='unknown')
-
- if(snrdb.lt.90) then
- do i=1,npts
- dat(i)=gran()
- enddo
- else
- dat(1:npts)=0.
- endif
-
- if(msg0.ne.' ') then
- call genjt9(message,msgsent,i4tone) !Encode message into tone #s
- endif
-
- rewind 12
- do isig=1,nsigs !Loop over multiple signals
-
- if(msg0.eq.' ') then
- read(12,1004) message !Use pre-generated message texts
-1004 format(a22)
- call genjt9(message,msgsent,i4tone)
- endif
-
- f=f0
- if(nsigs.gt.1) f=f0 - 0.5d0*fspan + fspan*(isig-1.d0)/(nsigs-1.d0)
- snrdbx=snrdb
-! snrdbx=snrdb + (ifile-1)*4.0
- sig=10.0**(0.05*snrdbx)
- write(*,1020) ifile,isig,f,snrdbx,msgsent
-1020 format(i3,i4,f10.3,f7.1,2x,a22)
-
- phi=0.
- baud=12000.d0/nsps
- k=12000 !Start audio at t = 1.0 s
-! f1=0.0001 * (ifile-1)
- f1=0.
-! print*,ifile-1,f1
- dphi2=0.
- ddphi2=twopi*f1*dt/60.0
- do isym=1,85
- freq=f + i4tone(isym)*baud
- if(msg0(1:3).eq.'sin') freq=sinfreq
- dphi=twopi*freq*dt + dphi2
- do i=1,nsps
- phi=phi + dphi
- dphi2=dphi2 + ddphi2
- if(phi.lt.-twopi) phi=phi+twopi
- if(phi.gt.twopi) phi=phi-twopi
- xphi=phi
- k=k+1
- dat(k)=dat(k) + sig*sin(xphi) !Use lookup table for i*2 sin(x) ?
- enddo
- enddo
- enddo
-
- do i=1,npts
- iwave(i)=nint(rms*dat(i))
- enddo
-
- write(10) ihdr,iwave(1:npts)
- close(10)
-
-! We're done! Now decode the data symbols from i4tone, as a test.
- if(msg0.ne.' ') then
- j=0
- do i=1,85
- if(isync(i).eq.1) cycle
- j=j+1
- i4DataSymNoGray(j)=igray(i4tone(i)-1,-1)
- enddo
- call unpackbits(i4DataSymNoGray,69,3,i1ScrambledBits)
- call interleave9(i1ScrambledBits,-1,i1Bits)
-
- do i=1,206
- i4=-10
- if(i1Bits(i).eq.1) i4=10
- i4=i4+128
- if(i4.le.127) i1SoftSymbols(k)=i4
- if(i4.ge.128) i1SoftSymbols(k)=i4-256
- enddo
- limit=1000
- call decode9(i1SoftSymbols,limit,nlim,msg)
- if(msg.ne.msg0) print*,'Decode error: ',msg0,' ',msg
- endif
- enddo
-
-999 end program jt9sim
diff --git a/lib/jt9sync.f90 b/lib/jt9sync.f90
deleted file mode 100644
index a8e3368..0000000
--- a/lib/jt9sync.f90
+++ /dev/null
@@ -1,18 +0,0 @@
- integer ii(16) !Locations of sync symbols
- data ii/ 1,2,5,10,16,23,33,35,51,52,55,60,66,73,83,85/
-
- integer ii2(16) !Locations of sync half-symbols
- data ii2/1,3,9,19,31,45,65,69,101,103,109,119,131,145,165,169/
-
- integer ka(16),kb(16) !Reference symbols for sync
- data ka/5,5,11,21,33,47,63,71,97,105,111,121,133,147,159,163/
- data kb/7,7,13,23,35,49,67,73,99,107,113,123,135,149,161,167/
-
-
- integer isync(85) !Sync vector
- data isync/ &
- 1,1,0,0,1,0,0,0,0,1,0,0,0,0,0,1,0,0,0,0, &
- 0,0,1,0,0,0,0,0,0,0,0,0,1,0,1,0,0,0,0,0, &
- 0,0,0,0,0,0,0,0,0,0,1,1,0,0,1,0,0,0,0,1, &
- 0,0,0,0,0,1,0,0,0,0,0,0,1,0,0,0,0,0,0,0, &
- 0,0,1,0,1/
diff --git a/lib/k2grid.f90 b/lib/k2grid.f90
deleted file mode 100644
index aa76315..0000000
--- a/lib/k2grid.f90
+++ /dev/null
@@ -1,12 +0,0 @@
-subroutine k2grid(k,grid)
- character grid*6
-
- nlong=2*mod((k-1)/5,90)-179
- if(k.gt.450) nlong=nlong+180
- nlat=mod(k-1,5)+ 85
- dlat=nlat
- dlong=nlong
- call deg2grid(dlong,dlat,grid)
-
- return
-end subroutine k2grid
diff --git a/lib/libhamlib.dll.a b/lib/libhamlib.dll.a
deleted file mode 100644
index 7bb6d1b..0000000
Binary files a/lib/libhamlib.dll.a and /dev/null differ
diff --git a/lib/met8.21 b/lib/met8.21
deleted file mode 100644
index a5d3006..0000000
--- a/lib/met8.21
+++ /dev/null
@@ -1,256 +0,0 @@
- -25.6 1.000 -9.966 1.000000 0.000000
- -25.4 1.000 -9.966 1.000000 0.000000
- -25.2 1.000 -9.966 1.000000 0.000000
- -25.0 1.000 -9.966 1.000000 0.000000
- -24.8 1.000 -9.966 1.000000 0.000000
- -24.6 1.000 -9.966 1.000000 0.000000
- -24.4 1.000 -9.966 1.000000 0.000000
- -24.2 1.000 -9.966 1.000000 0.000000
- -24.0 1.000 -9.966 1.000000 0.000000
- -23.8 1.000 -9.966 1.000000 0.000000
- -23.6 1.000 -9.966 1.000000 0.000000
- -23.4 1.000 -9.966 1.000000 0.000000
- -23.2 1.000 -9.966 1.000000 0.000000
- -23.0 1.000 -9.966 1.000000 0.000000
- -22.8 1.000 -9.966 1.000000 0.000000
- -22.6 1.000 -9.966 1.000000 0.000000
- -22.4 1.000 -9.966 1.000000 0.000000
- -22.2 1.000 -9.966 1.000000 0.000000
- -22.0 1.000 -9.966 1.000000 0.000000
- -21.8 1.000 -9.966 1.000000 0.000000
- -21.6 1.000 -9.966 1.000000 0.000000
- -21.4 1.000 -9.966 1.000000 0.000000
- -21.2 1.000 -9.966 1.000000 0.000000
- -21.0 1.000 -9.966 1.000000 0.000000
- -20.8 1.000 -9.966 1.000000 0.000000
- -20.6 1.000 -9.966 1.000000 0.000000
- -20.4 1.000 -9.966 1.000000 0.000000
- -20.2 1.000 -9.966 1.000000 0.000000
- -20.0 1.000 -9.966 1.000000 0.000000
- -19.8 1.000 -9.966 1.000000 0.000000
- -19.6 1.000 -9.966 1.000000 0.000000
- -19.4 1.000 -9.966 1.000000 0.000000
- -19.2 1.000 -9.966 1.000000 0.000000
- -19.0 1.000 -9.966 1.000000 0.000000
- -18.8 1.000 -9.966 1.000000 0.000000
- -18.6 1.000 -9.966 1.000000 0.000000
- -18.4 1.000 -9.966 1.000000 0.000000
- -18.2 1.000 -9.966 1.000000 0.000000
- -18.0 1.000 -9.966 1.000000 0.000000
- -17.8 1.000 -9.966 1.000000 0.000000
- -17.6 1.000 -9.966 1.000000 0.000000
- -17.4 1.000 -9.966 1.000000 0.000000
- -17.2 1.000 -9.966 1.000000 0.000000
- -17.0 1.000 -9.966 1.000000 0.000000
- -16.8 1.000 -9.966 1.000000 0.000000
- -16.6 1.000 -9.966 1.000000 0.000000
- -16.4 1.000 -9.966 1.000000 0.000000
- -16.2 1.000 -9.966 1.000000 0.000000
- -16.0 0.988 -5.858 0.991379 0.008621
- -15.8 1.000 -9.966 1.000000 0.000000
- -15.6 0.991 -6.313 0.993711 0.006289
- -15.4 0.993 -6.629 0.994950 0.005051
- -15.2 1.000 -9.966 1.000000 0.000000
- -15.0 0.995 -7.055 0.996241 0.003759
- -14.8 1.000 -9.966 1.000000 0.000000
- -14.6 0.991 -6.371 0.993958 0.006042
- -14.4 1.000 -9.966 1.000000 0.000000
- -14.2 0.991 -6.313 0.993711 0.006289
- -14.0 0.992 -6.426 0.994186 0.005814
- -13.8 0.991 -6.288 0.993600 0.006400
- -13.6 0.990 -6.113 0.992775 0.007225
- -13.4 0.990 -6.152 0.992968 0.007032
- -13.2 0.992 -6.534 0.994606 0.005394
- -13.0 0.996 -7.332 0.996898 0.003102
- -12.8 0.990 -6.184 0.993121 0.006879
- -12.6 0.994 -7.016 0.996136 0.003864
- -12.4 0.993 -6.658 0.995049 0.004950
- -12.2 0.991 -6.369 0.993953 0.006047
- -12.0 0.992 -6.559 0.994699 0.005301
- -11.8 0.989 -6.002 0.992197 0.007803
- -11.6 0.991 -6.304 0.993671 0.006329
- -11.4 0.987 -5.826 0.991188 0.008812
- -11.2 0.985 -5.632 0.989919 0.010081
- -11.0 0.989 -5.995 0.992162 0.007838
- -10.8 0.984 -5.544 0.989284 0.010717
- -10.6 0.983 -5.377 0.987966 0.012034
- -10.4 0.979 -5.108 0.985502 0.014498
- -10.2 0.977 -4.954 0.983869 0.016131
- -10.0 0.971 -4.652 0.980118 0.019882
- -9.8 0.975 -4.870 0.982896 0.017104
- -9.6 0.974 -4.822 0.982324 0.017676
- -9.4 0.970 -4.608 0.979490 0.020510
- -9.2 0.970 -4.623 0.979702 0.020298
- -9.0 0.970 -4.621 0.979679 0.020321
- -8.8 0.967 -4.472 0.977465 0.022535
- -8.6 0.962 -4.261 0.973915 0.026085
- -8.4 0.960 -4.186 0.972538 0.027462
- -8.2 0.957 -4.098 0.970806 0.029194
- -8.0 0.956 -4.062 0.970061 0.029939
- -7.8 0.953 -3.975 0.968209 0.031791
- -7.6 0.942 -3.677 0.960918 0.039082
- -7.4 0.946 -3.768 0.963301 0.036699
- -7.2 0.937 -3.550 0.957308 0.042692
- -7.0 0.933 -3.463 0.954652 0.045348
- -6.8 0.929 -3.377 0.951866 0.048134
- -6.6 0.920 -3.212 0.946042 0.053958
- -6.4 0.917 -3.164 0.944202 0.055798
- -6.2 0.911 -3.058 0.939981 0.060019
- -6.0 0.903 -2.939 0.934818 0.065182
- -5.8 0.895 -2.829 0.929642 0.070358
- -5.6 0.884 -2.690 0.922540 0.077459
- -5.4 0.877 -2.608 0.917972 0.082028
- -5.2 0.869 -2.531 0.913509 0.086491
- -5.0 0.858 -2.411 0.905967 0.094033
- -4.8 0.846 -2.301 0.898525 0.101475
- -4.6 0.834 -2.201 0.891269 0.108731
- -4.4 0.821 -2.096 0.883085 0.116915
- -4.2 0.806 -1.992 0.874340 0.125660
- -4.0 0.790 -1.882 0.864307 0.135693
- -3.8 0.775 -1.790 0.855445 0.144555
- -3.6 0.755 -1.678 0.843726 0.156274
- -3.4 0.737 -1.587 0.833538 0.166462
- -3.2 0.713 -1.473 0.819841 0.180159
- -3.0 0.691 -1.376 0.807345 0.192655
- -2.8 0.667 -1.280 0.794093 0.205907
- -2.6 0.640 -1.181 0.779404 0.220596
- -2.4 0.612 -1.084 0.764178 0.235822
- -2.2 0.581 -0.987 0.747708 0.252292
- -2.0 0.548 -0.895 0.731037 0.268963
- -1.8 0.510 -0.796 0.712035 0.287965
- -1.6 0.472 -0.706 0.693474 0.306526
- -1.4 0.425 -0.606 0.671514 0.328486
- -1.2 0.378 -0.514 0.649948 0.350053
- -1.0 0.328 -0.425 0.627452 0.372548
- -0.8 0.274 -0.338 0.604549 0.395451
- -0.6 0.212 -0.249 0.579151 0.420849
- -0.4 0.146 -0.163 0.553389 0.446611
- -0.2 0.075 -0.079 0.526648 0.473352
- 0.0 0.000 0.000 0.500000 0.500000
- 0.2 -0.079 0.075 0.473352 0.526648
- 0.4 -0.163 0.146 0.446611 0.553389
- 0.6 -0.249 0.212 0.420849 0.579151
- 0.8 -0.338 0.274 0.395451 0.604549
- 1.0 -0.425 0.328 0.372548 0.627452
- 1.2 -0.514 0.378 0.350053 0.649948
- 1.4 -0.606 0.425 0.328486 0.671514
- 1.6 -0.706 0.472 0.306526 0.693474
- 1.8 -0.796 0.510 0.287965 0.712035
- 2.0 -0.895 0.548 0.268963 0.731037
- 2.2 -0.987 0.581 0.252292 0.747708
- 2.4 -1.084 0.612 0.235822 0.764178
- 2.6 -1.181 0.640 0.220596 0.779404
- 2.8 -1.280 0.667 0.205907 0.794093
- 3.0 -1.376 0.691 0.192655 0.807345
- 3.2 -1.473 0.713 0.180159 0.819841
- 3.4 -1.587 0.737 0.166462 0.833538
- 3.6 -1.678 0.755 0.156274 0.843726
- 3.8 -1.790 0.775 0.144555 0.855445
- 4.0 -1.882 0.790 0.135693 0.864307
- 4.2 -1.992 0.806 0.125660 0.874340
- 4.4 -2.096 0.821 0.116915 0.883085
- 4.6 -2.201 0.834 0.108731 0.891269
- 4.8 -2.301 0.846 0.101475 0.898525
- 5.0 -2.411 0.858 0.094033 0.905967
- 5.2 -2.531 0.869 0.086491 0.913509
- 5.4 -2.608 0.877 0.082028 0.917972
- 5.6 -2.690 0.884 0.077459 0.922540
- 5.8 -2.829 0.895 0.070358 0.929642
- 6.0 -2.939 0.903 0.065182 0.934818
- 6.2 -3.058 0.911 0.060019 0.939981
- 6.4 -3.164 0.917 0.055798 0.944202
- 6.6 -3.212 0.920 0.053958 0.946042
- 6.8 -3.377 0.929 0.048134 0.951866
- 7.0 -3.463 0.933 0.045348 0.954652
- 7.2 -3.550 0.937 0.042692 0.957308
- 7.4 -3.768 0.946 0.036699 0.963301
- 7.6 -3.677 0.942 0.039082 0.960918
- 7.8 -3.975 0.953 0.031791 0.968210
- 8.0 -4.062 0.956 0.029939 0.970061
- 8.2 -4.098 0.957 0.029194 0.970806
- 8.4 -4.186 0.960 0.027462 0.972538
- 8.6 -4.261 0.962 0.026085 0.973915
- 8.8 -4.472 0.967 0.022535 0.977465
- 9.0 -4.621 0.970 0.020321 0.979679
- 9.2 -4.623 0.970 0.020298 0.979702
- 9.4 -4.608 0.970 0.020510 0.979490
- 9.6 -4.822 0.974 0.017676 0.982324
- 9.8 -4.870 0.975 0.017104 0.982896
- 10.0 -4.652 0.971 0.019882 0.980118
- 10.2 -4.954 0.977 0.016131 0.983869
- 10.4 -5.108 0.979 0.014498 0.985502
- 10.6 -5.377 0.983 0.012034 0.987966
- 10.8 -5.544 0.984 0.010717 0.989284
- 11.0 -5.995 0.989 0.007838 0.992162
- 11.2 -5.632 0.985 0.010081 0.989919
- 11.4 -5.826 0.987 0.008812 0.991188
- 11.6 -6.304 0.991 0.006329 0.993671
- 11.8 -6.002 0.989 0.007803 0.992197
- 12.0 -6.559 0.992 0.005301 0.994699
- 12.2 -6.369 0.991 0.006047 0.993953
- 12.4 -6.658 0.993 0.004950 0.995049
- 12.6 -7.016 0.994 0.003864 0.996136
- 12.8 -6.184 0.990 0.006879 0.993121
- 13.0 -7.332 0.996 0.003102 0.996898
- 13.2 -6.534 0.992 0.005394 0.994606
- 13.4 -6.152 0.990 0.007032 0.992968
- 13.6 -6.113 0.990 0.007225 0.992775
- 13.8 -6.288 0.991 0.006400 0.993600
- 14.0 -6.426 0.992 0.005814 0.994186
- 14.2 -6.313 0.991 0.006289 0.993711
- 14.4 -9.966 1.000 0.000000 1.000000
- 14.6 -6.371 0.991 0.006042 0.993958
- 14.8 -9.966 1.000 0.000000 1.000000
- 15.0 -7.055 0.995 0.003759 0.996241
- 15.2 -9.966 1.000 0.000000 1.000000
- 15.4 -6.629 0.993 0.005051 0.994949
- 15.6 -6.313 0.991 0.006289 0.993711
- 15.8 -9.966 1.000 0.000000 1.000000
- 16.0 -5.858 0.988 0.008621 0.991379
- 16.2 -9.966 1.000 0.000000 1.000000
- 16.4 -9.966 1.000 0.000000 1.000000
- 16.6 -9.966 1.000 0.000000 1.000000
- 16.8 -9.966 1.000 0.000000 1.000000
- 17.0 -9.966 1.000 0.000000 1.000000
- 17.2 -9.966 1.000 0.000000 1.000000
- 17.4 -9.966 1.000 0.000000 1.000000
- 17.6 -9.966 1.000 0.000000 1.000000
- 17.8 -9.966 1.000 0.000000 1.000000
- 18.0 -9.966 1.000 0.000000 1.000000
- 18.2 -9.966 1.000 0.000000 1.000000
- 18.4 -9.966 1.000 0.000000 1.000000
- 18.6 -9.966 1.000 0.000000 1.000000
- 18.8 -9.966 1.000 0.000000 1.000000
- 19.0 -9.966 1.000 0.000000 1.000000
- 19.2 -9.966 1.000 0.000000 1.000000
- 19.4 -9.966 1.000 0.000000 1.000000
- 19.6 -9.966 1.000 0.000000 1.000000
- 19.8 -9.966 1.000 0.000000 1.000000
- 20.0 -9.966 1.000 0.000000 1.000000
- 20.2 -9.966 1.000 0.000000 1.000000
- 20.4 -9.966 1.000 0.000000 1.000000
- 20.6 -9.966 1.000 0.000000 1.000000
- 20.8 -9.966 1.000 0.000000 1.000000
- 21.0 -9.966 1.000 0.000000 1.000000
- 21.2 -9.966 1.000 0.000000 1.000000
- 21.4 -9.966 1.000 0.000000 1.000000
- 21.6 -9.966 1.000 0.000000 1.000000
- 21.8 -9.966 1.000 0.000000 1.000000
- 22.0 -9.966 1.000 0.000000 1.000000
- 22.2 -9.966 1.000 0.000000 1.000000
- 22.4 -9.966 1.000 0.000000 1.000000
- 22.6 -9.966 1.000 0.000000 1.000000
- 22.8 -9.966 1.000 0.000000 1.000000
- 23.0 -9.966 1.000 0.000000 1.000000
- 23.2 -9.966 1.000 0.000000 1.000000
- 23.4 -9.966 1.000 0.000000 1.000000
- 23.6 -9.966 1.000 0.000000 1.000000
- 23.8 -9.966 1.000 0.000000 1.000000
- 24.0 -9.966 1.000 0.000000 1.000000
- 24.2 -9.966 1.000 0.000000 1.000000
- 24.4 -9.966 1.000 0.000000 1.000000
- 24.6 -9.966 1.000 0.000000 1.000000
- 24.8 -9.966 1.000 0.000000 1.000000
- 25.0 -9.966 1.000 0.000000 1.000000
- 25.2 -9.966 1.000 0.000000 1.000000
- 25.4 -9.966 1.000 0.000000 1.000000
diff --git a/lib/morse.f90 b/lib/morse.f90
deleted file mode 100644
index de5f7a1..0000000
--- a/lib/morse.f90
+++ /dev/null
@@ -1,86 +0,0 @@
-subroutine morse(msg,idat,n)
-
-! Convert ascii message to a Morse code bit string.
-! Dash = 3 dots
-! Space between dots, dashes = 1 dot
-! Space between letters = 3 dots
-! Space between words = 7 dots
-
- character*(*) msg
- integer idat(250)
- integer*1 ic(21,38)
- data ic/ &
- 1,1,1,0,1,1,1,0,1,1,1,0,1,1,1,0,1,1,1,0,20, &
- 1,0,1,1,1,0,1,1,1,0,1,1,1,0,1,1,1,0,0,0,18, &
- 1,0,1,0,1,1,1,0,1,1,1,0,1,1,1,0,0,0,0,0,16, &
- 1,0,1,0,1,0,1,1,1,0,1,1,1,0,0,0,0,0,0,0,14, &
- 1,0,1,0,1,0,1,0,1,1,1,0,0,0,0,0,0,0,0,0,12, &
- 1,0,1,0,1,0,1,0,1,0,0,0,0,0,0,0,0,0,0,0,10, &
- 1,1,1,0,1,0,1,0,1,0,1,0,0,0,0,0,0,0,0,0,12, &
- 1,1,1,0,1,1,1,0,1,0,1,0,1,0,0,0,0,0,0,0,14, &
- 1,1,1,0,1,1,1,0,1,1,1,0,1,0,1,0,0,0,0,0,16, &
- 1,1,1,0,1,1,1,0,1,1,1,0,1,1,1,0,1,0,0,0,18, &
- 1,0,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 6, &
- 1,1,1,0,1,0,1,0,1,0,0,0,0,0,0,0,0,0,0,0,10, &
- 1,1,1,0,1,0,1,1,1,0,1,0,0,0,0,0,0,0,0,0,12, &
- 1,1,1,0,1,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0, 8, &
- 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 2, &
- 1,0,1,0,1,1,1,0,1,0,0,0,0,0,0,0,0,0,0,0,10, &
- 1,1,1,0,1,1,1,0,1,0,0,0,0,0,0,0,0,0,0,0,10, &
- 1,0,1,0,1,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0, 8, &
- 1,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 4, &
- 1,0,1,1,1,0,1,1,1,0,1,1,1,0,0,0,0,0,0,0,14, &
- 1,1,1,0,1,0,1,1,1,0,0,0,0,0,0,0,0,0,0,0,10, &
- 1,0,1,1,1,0,1,0,1,0,0,0,0,0,0,0,0,0,0,0,10, &
- 1,1,1,0,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0, 8, &
- 1,1,1,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 6, &
- 1,1,1,0,1,1,1,0,1,1,1,0,0,0,0,0,0,0,0,0,12, &
- 1,0,1,1,1,0,1,1,1,0,1,0,0,0,0,0,0,0,0,0,12, &
- 1,1,1,0,1,1,1,0,1,0,1,1,1,0,0,0,0,0,0,0,14, &
- 1,0,1,1,1,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0, 8, &
- 1,0,1,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 6, &
- 1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 4, &
- 1,0,1,0,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0, 8, &
- 1,0,1,0,1,0,1,1,1,0,0,0,0,0,0,0,0,0,0,0,10, &
- 1,0,1,1,1,0,1,1,1,0,0,0,0,0,0,0,0,0,0,0,10, &
- 1,1,1,0,1,0,1,0,1,1,1,0,0,0,0,0,0,0,0,0,12, &
- 1,1,1,0,1,0,1,1,1,0,1,1,1,0,0,0,0,0,0,0,14, &
- 1,1,1,0,1,1,1,0,1,0,1,0,0,0,0,0,0,0,0,0,12, &
- 1,1,1,0,1,0,1,0,1,1,1,0,1,0,0,0,0,0,0,0,14, &
- 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 2/ !Incremental word space
- save
-
- msglen=len(msg)
- idat=0
- n=6
- do k=1,msglen
- jj=ichar(msg(k:k))
- if(jj.ge.97 .and. jj.le.122) jj=jj-32 !Convert lower to upper case
- if(jj.ge.48 .and. jj.le.57) j=jj-48 !Numbers
- if(jj.ge.65 .and. jj.le.90) j=jj-55 !Letters
- if(jj.eq.47) j=36 !Slash (/)
- if(jj.eq.32) j=37 !Word space
- j=j+1
-
-! Insert this character
- nmax=ic(21,j)
- do i=1,nmax
- n=n+1
- idat(n)=ic(i,j)
- enddo
-
-! Insert character space of 2 dit lengths:
- n=n+1
- idat(n)=0
- n=n+1
- idat(n)=0
- enddo
-
-! Insert word space at end of message
- do j=1,4
- n=n+1
- idat(n)=0
- enddo
-
- return
-end subroutine morse
diff --git a/lib/move.f90 b/lib/move.f90
deleted file mode 100644
index 13783dc..0000000
--- a/lib/move.f90
+++ /dev/null
@@ -1,7 +0,0 @@
-subroutine move(x,y,n)
- real x(n),y(n)
- do i=1,n
- y(i)=x(i)
- enddo
- return
-end subroutine move
diff --git a/lib/msgs.txt b/lib/msgs.txt
deleted file mode 100644
index c38aba9..0000000
--- a/lib/msgs.txt
+++ /dev/null
@@ -1,60 +0,0 @@
-W1AAA K2BBB EM00
-W2CCC K3DDD EM01
-W3EEE K4FFF EM02
-W5GGG K6HHH EM03
-W7III K8JJJ EM04
-W9KKK K0LLL EM05
-G0MMM F1NNN JN06
-G2OOO F3PPP JN07
-G4QQQ F5RRR JN08
-G6SSS F7TTT JN09
-W1XAA K2XBB EM10
-W2XCC K3XDD EM11
-W3XEE K4XFF EM12
-W5XGG K6XHH EM13
-W7XII K8XJJ EM14
-W9XKK K0XLL EM15
-G0XMM F1XNN JN16
-G2XOO F3XPP JN17
-G4XQQ F5XRR JN18
-G6XSS F7XTT JN19
-W1YAA K2YBB EM20
-W2YCC K3YDD EM21
-W3YEE K4YFF EM22
-W5YGG K6YHH EM23
-W7YII K8YJJ EM24
-W9YKK K0YLL EM25
-G0YMM F1YNN JN26
-G2YOO F3YPP JN27
-G4YQQ F5YRR JN28
-G6YSS F7YTT JN29
-W1ZAA K2ZBB EM30
-W2ZCC K3ZDD EM31
-W3ZEE K4ZFF EM32
-W5ZGG K6ZHH EM33
-W7ZII K8ZJJ EM34
-W9ZKK K0ZLL EM35
-G0ZMM F1ZNN JN36
-G2ZOO F3ZPP JN37
-G4ZQQ F5ZRR JN38
-G6ZSS F7ZTT JN39
-W1AXA K2BXB EM40
-W2CXC K3DXD EM41
-W3EXE K4FXF EM42
-W5GXG K6HXH EM43
-W7IXI K8JXJ EM44
-W9KXK K0LXL EM45
-G0MXM F1NXN JN46
-G2OXO F3PXP JN47
-G4QXQ F5RXR JN48
-G6SXS F7TXT JN49
-W1AYA K2BYB EM50
-W2CYC K3DYD EM51
-W3EYE K4FYF EM52
-W5GYG K6HYH EM53
-W7IYI K8JYJ EM54
-W9KYK K0LYL EM55
-G0MYM F1NYN JN56
-G2OYO F3PYP JN57
-G4QYQ F5RYR JN58
-G6SYS F7TYT JN59
diff --git a/lib/n2grid.f90 b/lib/n2grid.f90
deleted file mode 100644
index ed22a7d..0000000
--- a/lib/n2grid.f90
+++ /dev/null
@@ -1,14 +0,0 @@
-subroutine n2grid(n,grid)
- character*4 grid
-
- if(n.gt.-31 .or. n.lt.-70) stop 'Error in n2grid'
- i=-(n+31) !NB: 0 <= i <= 39
- i1=i/10
- i2=mod(i,10)
- grid(1:1)=char(ichar('A')+i1)
- grid(2:2)='A'
- grid(3:3)=char(ichar('0')+i2)
- grid(4:4)='0'
-
- return
-end subroutine n2grid
diff --git a/lib/nchar.f90 b/lib/nchar.f90
deleted file mode 100644
index 167992a..0000000
--- a/lib/nchar.f90
+++ /dev/null
@@ -1,23 +0,0 @@
-function nchar(c)
-
-! Convert ascii number, letter, or space to 0-36 for callsign packing.
-
- character c*1
-
- n=0 !Silence compiler warning
- if(c.ge.'0' .and. c.le.'9') then
- n=ichar(c)-ichar('0')
- else if(c.ge.'A' .and. c.le.'Z') then
- n=ichar(c)-ichar('A') + 10
- else if(c.ge.'a' .and. c.le.'z') then
- n=ichar(c)-ichar('a') + 10
- else if(c.ge.' ') then
- n=36
- else
- Print*,'Invalid character in callsign ',c,' ',ichar(c)
- stop
- endif
- nchar=n
-
- return
-end function nchar
diff --git a/lib/noisegen.f90 b/lib/noisegen.f90
deleted file mode 100644
index f92a9df..0000000
--- a/lib/noisegen.f90
+++ /dev/null
@@ -1,13 +0,0 @@
-subroutine noisegen(d4,nmax)
-
- real*4 d4(4,nmax)
-
- do i=1,nmax
- d4(1,i)=gran()
- d4(2,i)=gran()
- d4(3,i)=gran()
- d4(4,i)=gran()
- enddo
-
- return
-end subroutine noisegen
diff --git a/lib/packbits.f90 b/lib/packbits.f90
deleted file mode 100644
index 8885186..0000000
--- a/lib/packbits.f90
+++ /dev/null
@@ -1,21 +0,0 @@
-subroutine packbits(dbits,nsymd,m0,sym)
-
-! Pack 0s and 1s from dbits() into sym() with m0 bits per word.
-! NB: nsymd is the number of packed output words.
-
- integer sym(nsymd)
- integer*1 dbits(*)
-
- k=0
- do i=1,nsymd
- n=0
- do j=1,m0
- k=k+1
- m=dbits(k)
- n=ior(ishft(n,1),m)
- enddo
- sym(i)=n
- enddo
-
- return
-end subroutine packbits
diff --git a/lib/packcall.f90 b/lib/packcall.f90
deleted file mode 100644
index c4de474..0000000
--- a/lib/packcall.f90
+++ /dev/null
@@ -1,79 +0,0 @@
-subroutine packcall(callsign,ncall,text)
-
-! Pack a valid callsign into a 28-bit integer.
-
- parameter (NBASE=37*36*10*27*27*27)
- character callsign*6,c*1,tmp*6
- logical text
-
- text=.false.
-
-! Work-around for Swaziland prefix:
- if(callsign(1:4).eq.'3DA0') callsign='3D0'//callsign(5:6)
-
- if(callsign(1:3).eq.'CQ ') then
- ncall=NBASE + 1
- if(callsign(4:4).ge.'0' .and. callsign(4:4).le.'9' .and. &
- callsign(5:5).ge.'0' .and. callsign(5:5).le.'9' .and. &
- callsign(6:6).ge.'0' .and. callsign(6:6).le.'9') then
- read(callsign(4:6),*) nfreq
- ncall=NBASE + 3 + nfreq
- endif
- return
- else if(callsign(1:4).eq.'QRZ ') then
- ncall=NBASE + 2
- return
- else if(callsign(1:3).eq.'DE ') then
- ncall=267796945
- return
- endif
-
- tmp=' '
- if(callsign(3:3).ge.'0' .and. callsign(3:3).le.'9') then
- tmp=callsign
- else if(callsign(2:2).ge.'0' .and. callsign(2:2).le.'9') then
- if(callsign(6:6).ne.' ') then
- text=.true.
- return
- endif
- tmp=' '//callsign(:5)
- else
- text=.true.
- return
- endif
-
- do i=1,6
- c=tmp(i:i)
- if(c.ge.'a' .and. c.le.'z') &
- tmp(i:i)=char(ichar(c)-ichar('a')+ichar('A'))
- enddo
-
- n1=0
- if((tmp(1:1).ge.'A'.and.tmp(1:1).le.'Z').or.tmp(1:1).eq.' ') n1=1
- if(tmp(1:1).ge.'0' .and. tmp(1:1).le.'9') n1=1
- n2=0
- if(tmp(2:2).ge.'A' .and. tmp(2:2).le.'Z') n2=1
- if(tmp(2:2).ge.'0' .and. tmp(2:2).le.'9') n2=1
- n3=0
- if(tmp(3:3).ge.'0' .and. tmp(3:3).le.'9') n3=1
- n4=0
- if((tmp(4:4).ge.'A'.and.tmp(4:4).le.'Z').or.tmp(4:4).eq.' ') n4=1
- n5=0
- if((tmp(5:5).ge.'A'.and.tmp(5:5).le.'Z').or.tmp(5:5).eq.' ') n5=1
- n6=0
- if((tmp(6:6).ge.'A'.and.tmp(6:6).le.'Z').or.tmp(6:6).eq.' ') n6=1
-
- if(n1+n2+n3+n4+n5+n6 .ne. 6) then
- text=.true.
- return
- endif
-
- ncall=nchar(tmp(1:1))
- ncall=36*ncall+nchar(tmp(2:2))
- ncall=10*ncall+nchar(tmp(3:3))
- ncall=27*ncall+nchar(tmp(4:4))-10
- ncall=27*ncall+nchar(tmp(5:5))-10
- ncall=27*ncall+nchar(tmp(6:6))-10
-
- return
-end subroutine packcall
diff --git a/lib/packdxcc.f90 b/lib/packdxcc.f90
deleted file mode 100644
index 74f2789..0000000
--- a/lib/packdxcc.f90
+++ /dev/null
@@ -1,64 +0,0 @@
-subroutine packdxcc(c,ng,ldxcc)
-
- character*3 c
- logical ldxcc
-
- parameter (NZ=303)
- character*5 pfx(NZ)
- data pfx/ &
- '1A ','1S ','3A ','3B6 ','3B8 ','3B9 ','3C ','3C0 ', &
- '3D2 ', '3DA ','3V ','3W ','3X ','3Y ', &
- '4J ','4L ','4S ','4U1 ', '4W ', &
- '4X ','5A ','5B ','5H ','5N ','5R ','5T ','5U ', &
- '5V ','5W ','5X ','5Z ','6W ','6Y ','7O ','7P ', &
- '7Q ','7X ','8P ','8Q ','8R ','9A ','9G ','9H ', &
- '9J ','9K ','9L ','9M2 ','9M6 ','9N ','9Q ','9U ', &
- '9V ','9X ','9Y ','A2 ','A3 ','A4 ','A5 ','A6 ', &
- 'A7 ','A9 ','AP ','BS7 ','BV ','BV9 ','BY ','C2 ', &
- 'C3 ','C5 ','C6 ','C9 ','CE ','CE0 ', &
- 'CE9 ','CM ','CN ','CP ','CT ','CT3 ','CU ','CX ', &
- 'CY0 ','CY9 ','D2 ','D4 ','D6 ','DL ','DU ','E3 ', &
- 'E4 ','EA ','EA6 ','EA8 ','EA9 ','EI ','EK ','EL ', &
- 'EP ','ER ','ES ','ET ','EU ','EX ','EY ','EZ ', &
- 'F ','FG ','FH ','FJ ','FK ', 'FM ','FO ', &
- 'FP ','FR ', &
- 'FT5 ', 'FW ','FY ','M ','MD ','MI ', &
- 'MJ ','MM ', 'MU ','MW ','H4 ','H40 ','HA ', &
- 'HB ','HB0 ','HC ','HC8 ','HH ','HI ','HK ','HK0 ', &
- 'HL ','HM ','HP ','HR ','HS ','HV ','HZ ', &
- 'I ','IG9 ','IS ','IT9 ','J2 ','J3 ','J5 ','J6 ', &
- 'J7 ','J8 ','JA ','JD ', 'JT ','JW ', &
- 'JX ','JY ','K ','KG4 ','KH0 ','KH1 ','KH2 ','KH3 ', &
- 'KH4 ','KH5 ', 'KH6 ','KH7 ','KH8 ','KH9 ','KL ', &
- 'KP1 ','KP2 ','KP4 ','KP5 ','LA ','LU ','LX ','LY ', &
- 'LZ ','OA ','OD ','OE ','OH ','OH0 ','OJ0 ','OK ', &
- 'OM ','ON ','OX ','OY ','OZ ','P2 ','P4 ','PA ', &
- 'PJ2 ','PJ7 ','PY ','PY0 ', 'PZ ','R1F ', &
- 'R1M ','S0 ','S2 ','S5 ','S7 ','S9 ','SM ','SP ', &
- 'ST ','SU ','SV ', 'SV5 ','SV9 ','T2 ','T30 ', &
- 'T31 ','T32 ','T33 ','T5 ','T7 ','T8 ','T9 ','TA ', &
- 'TA1 ','TF ','TG ','TI ','TI9 ','TJ ','TK ','TL ', &
- 'TN ','TR ','TT ','TU ','TY ','TZ ','UA ','UA2 ', &
- 'UA9 ','UK ','UN ','UR ','V2 ','V3 ','V4 ','V5 ', &
- 'V6 ','V7 ','V8 ','VE ','VK ','VK0 ', 'VK9 ', &
- 'VP2 ', &
- 'VP5 ','VP6 ', 'VP8 ', &
- 'VP9 ','VQ9 ','VR ','VU ','VU4 ','VU7 ','XE ','XF4 ', &
- 'XT ','XU ','XW ','XX9 ','XZ ','YA ','YB ','YI ', &
- 'YJ ','YK ','YL ','YN ','YO ','YS ','YU ','YV ', &
- 'YV0 ','Z2 ','Z3 ','ZA ','ZB ','ZC4 ','ZD7 ','ZD8 ', &
- 'ZD9 ','ZF ','ZK1 ', 'ZK2 ','ZK3 ','ZL ','ZL7 ', &
- 'ZL8 ','ZL9 ','ZP ','ZS ','ZS8 '/
-
- ldxcc=.false.
- ng=0
- do i=1,NZ
- if(pfx(i)(1:3).eq.c) go to 10
- enddo
- go to 20
-
-10 ng=180*180+61+i
- ldxcc=.true.
-
-20 return
-end subroutine packdxcc
diff --git a/lib/packgrid.f90 b/lib/packgrid.f90
deleted file mode 100644
index 1cdb731..0000000
--- a/lib/packgrid.f90
+++ /dev/null
@@ -1,76 +0,0 @@
-subroutine packgrid(grid,ng,text)
-
- parameter (NGBASE=180*180)
- character*4 grid
- character*1 c1
- logical text
-
- text=.false.
- if(grid.eq.' ') go to 90 !Blank grid is OK
-
-! First, handle signal reports in the original range, -01 to -30 dB
- if(grid(1:1).eq.'-') then
- read(grid(2:3),*,err=800,end=800) n
- if(n.ge.1 .and. n.le.30) then
- ng=NGBASE+1+n
- go to 900
- endif
- go to 10
- else if(grid(1:2).eq.'R-') then
- read(grid(3:4),*,err=800,end=800) n
- if(n.ge.1 .and. n.le.30) then
- ng=NGBASE+31+n
- go to 900
- endif
- go to 10
-! Now check for RO, RRR, or 73 in the message field normally used for grid
- else if(grid(1:4).eq.'RO ') then
- ng=NGBASE+62
- go to 900
- else if(grid(1:4).eq.'RRR ') then
- ng=NGBASE+63
- go to 900
- else if(grid(1:4).eq.'73 ') then
- ng=NGBASE+64
- go to 900
- endif
-
-! Now check for extended-range signal reports: -50 to -31, and 0 to +49.
-10 n=99
- c1=grid(1:1)
- read(grid,*,err=20,end=20) n
- go to 30
-20 read(grid(2:4),*,err=30,end=30) n
-30 if(n.ge.-50 .and. n.le.49) then
- if(c1.eq.'R') then
- write(grid,1002) n+50
-1002 format('LA',i2.2)
- else
- write(grid,1003) n+50
-1003 format('KA',i2.2)
- endif
- go to 40
- endif
-
-! Maybe it's free text ?
- if(grid(1:1).lt.'A' .or. grid(1:1).gt.'R') text=.true.
- if(grid(2:2).lt.'A' .or. grid(2:2).gt.'R') text=.true.
- if(grid(3:3).lt.'0' .or. grid(3:3).gt.'9') text=.true.
- if(grid(4:4).lt.'0' .or. grid(4:4).gt.'9') text=.true.
- if(text) go to 900
-
-! OK, we have a properly formatted grid locator
-40 call grid2deg(grid//'mm',dlong,dlat)
- long=int(dlong)
- lat=int(dlat+ 90.0)
- ng=((long+180)/2)*180 + lat
- go to 900
-
-90 ng=NGBASE + 1
- go to 900
-
-800 text=.true.
-900 continue
-
- return
-end subroutine packgrid
diff --git a/lib/packmsg.f90 b/lib/packmsg.f90
deleted file mode 100644
index 6c7619b..0000000
--- a/lib/packmsg.f90
+++ /dev/null
@@ -1,113 +0,0 @@
-subroutine packmsg(msg,dat,text)
-
- parameter (NBASE=37*36*10*27*27*27)
- parameter (NBASE2=262178562)
- character*22 msg
- integer dat(12)
- character*12 c1,c2
- character*4 c3
- character*6 grid6
- logical text1,text2,text3,text
-
- text=.false.
-! Convert all letters to upper case
- iz=22
- do i=1,22
- if(msg(i:i).ge.'a' .and. msg(i:i).le.'z') &
- msg(i:i)= char(ichar(msg(i:i))+ichar('A')-ichar('a'))
- if(msg(i:i).ne.' ') iz=i
- enddo
- do iter=1,5 !Collapse multiple blanks into one
- ib2=index(msg(1:iz),' ')
- if(ib2.lt.1) go to 5
- msg=msg(1:ib2)//msg(ib2+2:)
- iz=iz-1
- enddo
-
-5 if(msg(1:6).eq.'CQ DX ') msg(3:3)='9'
-
-! See if it's a CQ message
- if(msg(1:3).eq.'CQ ') then
- i=3
-! ... and if so, does it have a reply frequency?
- if(msg(4:4).ge.'0' .and. msg(4:4).le.'9' .and. &
- msg(5:5).ge.'0' .and. msg(5:5).le.'9' .and. &
- msg(6:6).ge.'0' .and. msg(6:6).le.'9') i=7
- go to 1
- endif
-
- do i=1,22
- if(msg(i:i).eq.' ') go to 1 !Get 1st blank
- enddo
- go to 10 !Consider msg as plain text
-
-1 ia=i
- c1=msg(1:ia-1)
- do i=ia+1,22
- if(msg(i:i).eq.' ') go to 2 !Get 2nd blank
- enddo
- go to 10 !Consider msg as plain text
-
-2 ib=i
- c2=msg(ia+1:ib-1)
-
- do i=ib+1,22
- if(msg(i:i).eq.' ') go to 3 !Get 3rd blank
- enddo
- go to 10 !Consider msg as plain text
-
-3 ic=i
- c3=' '
- if(ic.ge.ib+1) c3=msg(ib+1:ic)
- if(c3.eq.'OOO ') c3=' ' !Strip out the OOO flag
- call getpfx1(c1,k1,junk)
- call packcall(c1,nc1,text1)
- call getpfx1(c2,k2,nv2)
- call packcall(c2,nc2,text2)
- if(nv2.eq.0) then
- if(k1.lt.0 .or. k2.lt.0 .or. k1*k2.ne.0) go to 10
- if(k2.gt.0) k2=k2+450
- k=max(k1,k2)
- if(k.gt.0) then
- call k2grid(k,grid6)
- c3=grid6(:4)
- endif
- endif
- call packgrid(c3,ng,text3)
- if(nv2.eq.0 .and. (.not.text1) .and. (.not.text2) .and. &
- (.not.text3)) go to 20
- if(nv2.gt.0) then
- if(nv2.eq.1) then
- if(c1(1:3).eq.'CQ ') nc1=262178563 + k2
- if(c1(1:4).eq.'QRZ ') nc1=264002072 + k2
- if(c1(1:3).eq.'DE ') nc1=265825581 + k2
- endif
- if(nv2.eq.2) then
- if(c1(1:3).eq.'CQ ') nc1=267649090 + k2
- if(c1(1:4).eq.'QRZ ') nc1=267698375 + k2
- if(c1(1:3).eq.'DE ') nc1=267747660 + k2
- endif
- go to 20
- endif
-
-! The message will be treated as plain text.
-10 text=.true.
- call packtext(msg,nc1,nc2,ng)
- ng=ng+32768
-
-! Encode data into 6-bit words
-20 dat(1)=iand(ishft(nc1,-22),63) !6 bits
- dat(2)=iand(ishft(nc1,-16),63) !6 bits
- dat(3)=iand(ishft(nc1,-10),63) !6 bits
- dat(4)=iand(ishft(nc1, -4),63) !6 bits
- dat(5)=4*iand(nc1,15)+iand(ishft(nc2,-26),3) !4+2 bits
- dat(6)=iand(ishft(nc2,-20),63) !6 bits
- dat(7)=iand(ishft(nc2,-14),63) !6 bits
- dat(8)=iand(ishft(nc2, -8),63) !6 bits
- dat(9)=iand(ishft(nc2, -2),63) !6 bits
- dat(10)=16*iand(nc2,3)+iand(ishft(ng,-12),15) !2+4 bits
- dat(11)=iand(ishft(ng,-6),63)
- dat(12)=iand(ng,63)
-
- return
-end subroutine packmsg
diff --git a/lib/packtext.f90 b/lib/packtext.f90
deleted file mode 100644
index 10f3488..0000000
--- a/lib/packtext.f90
+++ /dev/null
@@ -1,47 +0,0 @@
-subroutine packtext(msg,nc1,nc2,nc3)
-
- parameter (MASK28=2**28 - 1)
- character*13 msg
- character*42 c
- data c/'0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ +-./?'/
-
- nc1=0
- nc2=0
- nc3=0
-
- do i=1,5 !First 5 characters in nc1
- do j=1,42 !Get character code
- if(msg(i:i).eq.c(j:j)) go to 10
- enddo
- j=37
-10 j=j-1 !Codes should start at zero
- nc1=42*nc1 + j
- enddo
-
- do i=6,10 !Characters 6-10 in nc2
- do j=1,42 !Get character code
- if(msg(i:i).eq.c(j:j)) go to 20
- enddo
- j=37
-20 j=j-1 !Codes should start at zero
- nc2=42*nc2 + j
- enddo
-
- do i=11,13 !Characters 11-13 in nc3
- do j=1,42 !Get character code
- if(msg(i:i).eq.c(j:j)) go to 30
- enddo
- j=37
-30 j=j-1 !Codes should start at zero
- nc3=42*nc3 + j
- enddo
-
-! We now have used 17 bits in nc3. Must move one each to nc1 and nc2.
- nc1=nc1+nc1
- if(iand(nc3,32768).ne.0) nc1=nc1+1
- nc2=nc2+nc2
- if(iand(nc3,65536).ne.0) nc2=nc2+1
- nc3=iand(nc3,32767)
-
- return
-end subroutine packtext
diff --git a/lib/pctile.f90 b/lib/pctile.f90
deleted file mode 100644
index 35ee3a7..0000000
--- a/lib/pctile.f90
+++ /dev/null
@@ -1,22 +0,0 @@
-subroutine pctile(x,npts,npct,xpct)
-
- parameter (NMAX=32768)
- real*4 x(npts)
- real*4 tmp(NMAX)
-
- if(npts.le.0) then
- xpct=1.0
- go to 900
- endif
- if(npts.gt.NMAX) stop
-
- tmp(1:npts)=x
- call sort(npts,tmp)
- j=nint(npts*0.01*npct)
- if(j.lt.1) j=1
- if(j.gt.npts) j=npts
- xpct=tmp(j)
-
-900 continue
- return
-end subroutine pctile
diff --git a/lib/peakdt9.f90 b/lib/peakdt9.f90
deleted file mode 100644
index eac256e..0000000
--- a/lib/peakdt9.f90
+++ /dev/null
@@ -1,54 +0,0 @@
-subroutine peakdt9(c2,nz2,nsps8,nspsd,c3,nz3,xdt)
-
- complex c2(0:4096-1)
- complex c3(0:4096-1)
- complex z
- real p(0:3300)
- include 'jt9sync.f90'
-
- p=0.
- i0=5*nspsd
- do i=0,nz2-1
- z=1.e-3*sum(c2(max(i-(nspsd-1),0):i))
- p(i0+i)=real(z)**2 + aimag(z)**2 !Integrated symbol power at freq=0
- enddo
-
- call getlags(nsps8,lag0,lag1,lag2)
- tsymbol=nsps8/1500.0
- dtlag=tsymbol/nspsd
- smax=0.
- lagpk=0
- do lag=lag1,lag2
- sum0=0.
- sum1=0.
- j=-nspsd
- do i=1,85
- j=j+nspsd
- if(isync(i).eq.1) then
- sum1=sum1+p(j+lag)
- else
- sum0=sum0+p(j+lag)
- endif
- enddo
- ss=(sum1/16.0)/(sum0/69.0) - 1.0
- xdt=(lag-lag0)*dtlag
- if(ss.gt.smax) then
- smax=ss
- lagpk=lag
- endif
- enddo
-
- xdt=(lagpk-lag0)*dtlag
-
- nz3=nspsd*85
- do i=0,nz3-1
- j=i+lagpk-i0-nspsd+1
- if(j.ge.0 .and. j.le.nz2) then
- c3(i)=c2(j)
- else
- c3(i)=0.
- endif
- enddo
-
- return
-end subroutine peakdt9
diff --git a/lib/peakup.f90 b/lib/peakup.f90
deleted file mode 100644
index 8e5aeda..0000000
--- a/lib/peakup.f90
+++ /dev/null
@@ -1,8 +0,0 @@
-subroutine peakup(ym,y0,yp,dx)
-
- b=(yp-ym)/2.0
- c=(yp+ym-2.0*y0)/2.0
- dx=-b/(2.0*c)
-
- return
-end subroutine peakup
diff --git a/lib/pfx.f90 b/lib/pfx.f90
deleted file mode 100644
index ca48718..0000000
--- a/lib/pfx.f90
+++ /dev/null
@@ -1,50 +0,0 @@
- parameter (NZ=339) !Total number of prefixes
- parameter (NZ2=12) !Total number of suffixes
- character*1 sfx(NZ2)
- character*5 pfx(NZ)
-
- data sfx/'P','0','1','2','3','4','5','6','7','8','9','A'/
- data pfx/ &
- '1A ','1S ','3A ','3B6 ','3B8 ','3B9 ','3C ','3C0 ', &
- '3D2 ','3D2C ','3D2R ','3DA ','3V ','3W ','3X ','3Y ', &
- '3YB ','3YP ','4J ','4L ','4S ','4U1I ','4U1U ','4W ', &
- '4X ','5A ','5B ','5H ','5N ','5R ','5T ','5U ', &
- '5V ','5W ','5X ','5Z ','6W ','6Y ','7O ','7P ', &
- '7Q ','7X ','8P ','8Q ','8R ','9A ','9G ','9H ', &
- '9J ','9K ','9L ','9M2 ','9M6 ','9N ','9Q ','9U ', &
- '9V ','9X ','9Y ','A2 ','A3 ','A4 ','A5 ','A6 ', &
- 'A7 ','A9 ','AP ','BS7 ','BV ','BV9 ','BY ','C2 ', &
- 'C3 ','C5 ','C6 ','C9 ','CE ','CE0X ','CE0Y ','CE0Z ', &
- 'CE9 ','CM ','CN ','CP ','CT ','CT3 ','CU ','CX ', &
- 'CY0 ','CY9 ','D2 ','D4 ','D6 ','DL ','DU ','E3 ', &
- 'E4 ','EA ','EA6 ','EA8 ','EA9 ','EI ','EK ','EL ', &
- 'EP ','ER ','ES ','ET ','EU ','EX ','EY ','EZ ', &
- 'F ','FG ','FH ','FJ ','FK ','FKC ','FM ','FO ', &
- 'FOA ','FOC ','FOM ','FP ','FR ','FRG ','FRJ ','FRT ', &
- 'FT5W ','FT5X ','FT5Z ','FW ','FY ','M ','MD ','MI ', &
- 'MJ ','MM ', 'MU ','MW ','H4 ','H40 ','HA ', &
- 'HB ','HB0 ','HC ','HC8 ','HH ','HI ','HK ','HK0A ', &
- 'HK0M ','HL ','HM ','HP ','HR ','HS ','HV ','HZ ', &
- 'I ','IS ','IS0 ', 'J2 ','J3 ','J5 ','J6 ', &
- 'J7 ','J8 ','JA ','JDM ','JDO ','JT ','JW ', &
- 'JX ','JY ','K ','KG4 ','KH0 ','KH1 ','KH2 ','KH3 ', &
- 'KH4 ','KH5 ','KH5K ','KH6 ','KH7 ','KH8 ','KH9 ','KL ', &
- 'KP1 ','KP2 ','KP4 ','KP5 ','LA ','LU ','LX ','LY ', &
- 'LZ ','OA ','OD ','OE ','OH ','OH0 ','OJ0 ','OK ', &
- 'OM ','ON ','OX ','OY ','OZ ','P2 ','P4 ','PA ', &
- 'PJ2 ','PJ7 ','PY ','PY0F ','PT0S ','PY0T ','PZ ','R1F ', &
- 'R1M ','S0 ','S2 ','S5 ','S7 ','S9 ','SM ','SP ', &
- 'ST ','SU ','SV ','SVA ','SV5 ','SV9 ','T2 ','T30 ', &
- 'T31 ','T32 ','T33 ','T5 ','T7 ','T8 ','T9 ','TA ', &
- 'TF ','TG ','TI ','TI9 ','TJ ','TK ','TL ', &
- 'TN ','TR ','TT ','TU ','TY ','TZ ','UA ','UA2 ', &
- 'UA9 ','UK ','UN ','UR ','V2 ','V3 ','V4 ','V5 ', &
- 'V6 ','V7 ','V8 ','VE ','VK ','VK0H ','VK0M ','VK9C ', &
- 'VK9L ','VK9M ','VK9N ','VK9W ','VK9X ','VP2E ','VP2M ','VP2V ', &
- 'VP5 ','VP6 ','VP6D ','VP8 ','VP8G ','VP8H ','VP8O ','VP8S ', &
- 'VP9 ','VQ9 ','VR ','VU ','VU4 ','VU7 ','XE ','XF4 ', &
- 'XT ','XU ','XW ','XX9 ','XZ ','YA ','YB ','YI ', &
- 'YJ ','YK ','YL ','YN ','YO ','YS ','YU ','YV ', &
- 'YV0 ','Z2 ','Z3 ','ZA ','ZB ','ZC4 ','ZD7 ','ZD8 ', &
- 'ZD9 ','ZF ','ZK1N ','ZK1S ','ZK2 ','ZK3 ','ZL ','ZL7 ', &
- 'ZL8 ','ZL9 ','ZP ','ZS ','ZS8 ','KC4 ','E5 '/
diff --git a/lib/pfxdump.f90 b/lib/pfxdump.f90
deleted file mode 100644
index 7587dbf..0000000
--- a/lib/pfxdump.f90
+++ /dev/null
@@ -1,13 +0,0 @@
-subroutine pfxdump(fname)
- character*(*) fname
- include 'pfx.f90'
-
- open(11,file=fname,status='unknown')
- write(11,1001) sfx
-1001 format('Supported Suffixes:'/(11('/',a1,2x)))
- write(11,1002) pfx
-1002 format(/'Supported Add-On DXCC Prefixes:'/(15(a5,1x)))
- close(11)
-
- return
-end subroutine pfxdump
diff --git a/lib/ps24.f90 b/lib/ps24.f90
deleted file mode 100644
index 241e49f..0000000
--- a/lib/ps24.f90
+++ /dev/null
@@ -1,27 +0,0 @@
-subroutine ps24(dat,nfft,s)
-
- parameter (NMAX=2520+2)
- parameter (NHMAX=NMAX/2-1)
- real dat(nfft)
- real dat2(NMAX)
- real s(NHMAX)
- complex c(0:NMAX)
- equivalence(dat2,c)
-
- nh=nfft/2
- do i=1,nh
- dat2(i)=dat(i)/128.0 !### Why 128 ??
- enddo
- do i=nh+1,nfft
- dat2(i)=0.
- enddo
-
- call four2a(c,nfft,1,-1,0)
-
- fac=1.0/nfft
- do i=1,nh
- s(i)=fac*(real(c(i))**2 + aimag(c(i))**2)
- enddo
-
- return
-end subroutine ps24
diff --git a/lib/ptt.c b/lib/ptt.c
deleted file mode 100644
index 902193f..0000000
--- a/lib/ptt.c
+++ /dev/null
@@ -1,50 +0,0 @@
-#include <windows.h>
-#include <stdio.h>
-
-int ptt_(int *nport, int *ntx, int *iptt)
-{
- static HANDLE hFile;
- static int open=0;
- char s[10];
- int i3=1,i4=1,i5=1,i6=1,i9=1,i00=1;
-
- if(*nport==0) {
- *iptt=*ntx;
- return(0);
- }
-
- if(*ntx && (!open)) {
- sprintf(s,"\\\\.\\COM%d",*nport);
- hFile=CreateFile(TEXT(s),GENERIC_WRITE,0,NULL,OPEN_EXISTING,
- FILE_ATTRIBUTE_NORMAL,NULL);
- if(hFile==INVALID_HANDLE_VALUE) {
- // printf("PTT: Cannot open COM port %d.\n",*nport);
- return 1;
- }
- open=1;
- }
-
- if(*ntx && open) {
- i3=EscapeCommFunction(hFile,3);
- i5=EscapeCommFunction(hFile,5);
- *iptt=1;
- }
-
- else {
- i4=EscapeCommFunction(hFile,4);
- i6=EscapeCommFunction(hFile,6);
- i9=EscapeCommFunction(hFile,9);
- i00=CloseHandle(hFile);
- *iptt=0;
- open=0;
- }
- /*
- if(i3==0) return 3;
- if(i4==0) return 4;
- if(i5==0) return 5;
- if(i6==0) return 6;
- if(i9==0) return 9;
- if(i00==0) return 10;
- */
- return 0;
-}
diff --git a/lib/rig_control.c b/lib/rig_control.c
deleted file mode 100644
index 7c8b2f6..0000000
--- a/lib/rig_control.c
+++ /dev/null
@@ -1,99 +0,0 @@
-#include "config.h"
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include "tstrig.h"
-
-RIG *my_rig; // handle to rig
-
-int set_conf(RIG *my_rig, char *conf_parms);
-
-//------------------------------------------------------------------------
-int set_conf(RIG *my_rig, char *conf_parms)
-{
- char *p, *q, *n;
- int iret;
-
- p = conf_parms;
- while (p && *p != '\0') {
- /* FIXME: left hand value of = cannot be null */
- q = strchr(p, '=');
- if ( !q )
- return -RIG_EINVAL;
- *q++ = '\0';
- n = strchr(q, ',');
- if (n) *n++ = '\0';
- iret = rig_set_conf(my_rig, rig_token_lookup(my_rig, p), q);
- if (iret != RIG_OK)
- return iret;
- p = n;
- }
- return RIG_OK;
-}
-
-//------------------------------------------------------------------------
-int rigOpen(int verbose, rig_model_t my_model, const char* rig_file,
- int serial_rate, const char* conf_parms2)
-{
- int iret; /* generic return code from functions */
- char *civaddr = NULL; /* NULL means no need to set conf */
- // const char *rig_file;
- // const char *conf_parms2;
- // int serial_rate;
-
- rig_set_debug(verbose);
- my_rig=rig_init(my_model);
-
- if (!my_rig) {
- // fprintf(stderr, "Unknown rig num %d, or initialization error.\n",my_model);
- return -1;
- }
-
- // rig_file="COM1";
- // serial_rate=4800;
- // conf_parms2="data_bits=8,stop_bits=2,serial_handshake=Hardware";
-
- iret=set_conf(my_rig, conf_parms2);
- if (iret!=RIG_OK) {
- // fprintf(stderr, "Config parameter error: %s\n", rigerror(iret));
- return -2;
- }
-
- if (rig_file)
- strncpy(my_rig->state.rigport.pathname, rig_file, FILPATHLEN - 1);
-
- if (serial_rate!=0)
- my_rig->state.rigport.parm.serial.rate = serial_rate;
-
- if (civaddr)
- rig_set_conf(my_rig, rig_token_lookup(my_rig, "civaddr"), civaddr);
-
- iret = rig_open(my_rig);
- if(iret!=0) return -3;
- return 0;
-}
-
-int rigSetFreq(int fHz)
-{
- return rig_set_freq(my_rig,RIG_VFO_CURR,fHz);
-}
-
-int rigFreq(int *fHz)
-{
- int iret=0;
- freq_t freq;
- iret=rig_get_freq(my_rig, RIG_VFO_CURR, &freq);
- *fHz=freq;
- return iret;
-}
-
-int rigSetPTT(int iptt)
-{
- return rig_set_ptt(my_rig, RIG_VFO_CURR, iptt);
-}
-
-void rigClose()
-{
- rig_close(my_rig);
- rig_cleanup(my_rig);
-}
diff --git a/lib/rs.h b/lib/rs.h
deleted file mode 100644
index 06cbe34..0000000
--- a/lib/rs.h
+++ /dev/null
@@ -1,35 +0,0 @@
-/* User include file for the Reed-Solomon codec
- * Copyright 2002, Phil Karn KA9Q
- * May be used under the terms of the GNU General Public License (GPL)
- */
-
-/* General purpose RS codec, 8-bit symbols */
-void encode_rs_char(void *rs,unsigned char *data,unsigned char *parity);
-int decode_rs_char(void *rs,unsigned char *data,int *eras_pos,
- int no_eras);
-void *init_rs_char(int symsize,int gfpoly,
- int fcr,int prim,int nroots,
- int pad);
-void free_rs_char(void *rs);
-
-/* General purpose RS codec, integer symbols */
-void encode_rs_int(void *rs,int *data,int *parity);
-int decode_rs_int(void *rs,int *data,int *eras_pos,int no_eras);
-void *init_rs_int(int symsize,int gfpoly,int fcr,
- int prim,int nroots,int pad);
-void free_rs_int(void *rs);
-
-/* CCSDS standard (255,223) RS codec with conventional (*not* dual-basis)
- * symbol representation
- */
-void encode_rs_8(unsigned char *data,unsigned char *parity,int pad);
-int decode_rs_8(unsigned char *data,int *eras_pos,int no_eras,int pad);
-
-/* CCSDS standard (255,223) RS codec with dual-basis symbol representation */
-void encode_rs_ccsds(unsigned char *data,unsigned char *parity,int pad);
-int decode_rs_ccsds(unsigned char *data,int *eras_pos,int no_eras,int pad);
-
-/* Tables to map from conventional->dual (Taltab) and
- * dual->conventional (Tal1tab) bases
- */
-extern unsigned char Taltab[],Tal1tab[];
diff --git a/lib/s3avg.f90 b/lib/s3avg.f90
deleted file mode 100644
index f8f68ac..0000000
--- a/lib/s3avg.f90
+++ /dev/null
@@ -1,60 +0,0 @@
-subroutine s3avg(nsave,mode65,nutc,nhz,xdt,npol,ntol,s3,nsum,nkv,decoded)
-
-! Save the current synchronized spectra, s3(64,63), for possible
-! decoding of average.
-
- real s3(64,63) !Synchronized spectra for 63 symbols
- real s3a(64,63,64) !Saved spectra
- real s3b(64,63) !Average spectra
- integer iutc(64),ihz(64),ipol(64)
- real dt(64)
- character*22 decoded
- logical ltext,first
- data first/.true./
- save
-
- if(first) then
- iutc=-1
- ihz=0
- ipol=0
- first=.false.
- ihzdiff=min(100,ntol)
- dtdiff=0.2
- endif
-
- do i=1,64
- if(nutc.eq.iutc(i) .and. abs(nhz-ihz(i)).lt.ihzdiff) then
- nsave=mod(nsave-1+64,64)+1
- go to 10
- endif
- enddo
-
- iutc(nsave)=nutc !Save UTC
- ihz(nsave)=nhz !Save freq in Hz
- ipol(nsave)=npol !Save pol
- dt(nsave)=xdt !Save DT
- s3a(1:64,1:63,nsave)=s3 !Save the spectra
-
-10 s3b=0.
- do i=1,64 !Accumulate avg spectra
- if(iutc(i).lt.0) cycle
- if(mod(iutc(i),2).ne.mod(nutc,2)) cycle !Use only same sequence
- if(abs(nhz-ihz(i)).gt.ihzdiff) cycle !Freq must match
- if(abs(xdt-dt(i)).gt.dtdiff) cycle !DT must match
- s3b=s3b + s3a(1:64,1:63,i)
- nsum=nsum+1
- enddo
-
- decoded=' '
- if(nsum.ge.2) then !Try decoding the sverage
- nadd=mode65*nsum
- call extract(s3b,nadd,ncount,nhist,decoded,ltext) !Extract the message
- nkv=nsum
- if(ncount.lt.0) then
- nkv=0
- decoded=' '
- endif
- endif
-
- return
-end subroutine s3avg
diff --git a/lib/sec_midn.f90 b/lib/sec_midn.f90
deleted file mode 100644
index 0bbe62c..0000000
--- a/lib/sec_midn.f90
+++ /dev/null
@@ -1,11 +0,0 @@
-real function sec_midn()
- sec_midn=secnds(0.0)
- return
-end function sec_midn
-
-subroutine sleep_msec(n)
-
- call usleep(1000*n)
-
- return
-end subroutine sleep_msec
diff --git a/lib/setup65.f90 b/lib/setup65.f90
deleted file mode 100644
index 608b41b..0000000
--- a/lib/setup65.f90
+++ /dev/null
@@ -1,96 +0,0 @@
-subroutine setup65
-
-! Defines arrays related to the JT65 pseudo-random synchronizing pattern.
-! Executed at program start.
-
- integer nprc(126)
- common/prcom/pr(126),mdat(126),mref(126,2),mdat2(126),mref2(126,2)
-
-! JT65
- data nprc/ &
- 1,0,0,1,1,0,0,0,1,1,1,1,1,1,0,1,0,1,0,0, &
- 0,1,0,1,1,0,0,1,0,0,0,1,1,1,0,0,1,1,1,1, &
- 0,1,1,0,1,1,1,1,0,0,0,1,1,0,1,0,1,0,1,1, &
- 0,0,1,1,0,1,0,1,0,1,0,0,1,0,0,0,0,0,0,1, &
- 1,0,0,0,0,0,0,0,1,1,0,1,0,0,1,0,1,1,0,1, &
- 0,1,0,1,0,0,1,1,0,0,1,0,0,1,0,0,0,0,1,1, &
- 1,1,1,1,1,1/
- data mr2/0/ !Silence compiler warning
-
-! Put the appropriate pseudo-random sequence into pr
- nsym=126
- do i=1,nsym
- pr(i)=2*nprc(i)-1
- enddo
-
-! Determine locations of data and reference symbols
- k=0
- mr1=0
- do i=1,nsym
- if(pr(i).lt.0.0) then
- k=k+1
- mdat(k)=i
- else
- mr2=i
- if(mr1.eq.0) mr1=i
- endif
- enddo
- nsig=k
-
-! Determine the reference symbols for each data symbol.
- do k=1,nsig
- m=mdat(k)
- mref(k,1)=mr1
- do n=1,10 !Get ref symbol before data
- if((m-n).gt.0) then
- if (pr(m-n).gt.0.0) go to 10
- endif
- enddo
- go to 12
-10 mref(k,1)=m-n
-12 mref(k,2)=mr2
- do n=1,10 !Get ref symbol after data
- if((m+n).le.nsym) then
- if (pr(m+n).gt.0.0) go to 20
- endif
- enddo
- cycle
-20 mref(k,2)=m+n
- enddo
-
-! Now do it all again, using opposite logic on pr(i)
- k=0
- mr1=0
- do i=1,nsym
- if(pr(i).gt.0.0) then
- k=k+1
- mdat2(k)=i
- else
- mr2=i
- if(mr1.eq.0) mr1=i
- endif
- enddo
- nsig=k
-
- do k=1,nsig
- m=mdat2(k)
- mref2(k,1)=mr1
- do n=1,10
- if((m-n).gt.0) then
- if (pr(m-n).lt.0.0) go to 110
- endif
- enddo
- go to 112
-110 mref2(k,1)=m-n
-112 mref2(k,2)=mr2
- do n=1,10
- if((m+n).le.nsym) then
- if (pr(m+n).lt.0.0) go to 120
- endif
- enddo
- cycle
-120 mref2(k,2)=m+n
- enddo
-
- return
-end subroutine setup65
diff --git a/lib/sleep.h b/lib/sleep.h
deleted file mode 100644
index df60bc9..0000000
--- a/lib/sleep.h
+++ /dev/null
@@ -1,32 +0,0 @@
-/*
- * sleep.h 1.0 02/03/10
- *
- * Defines cross-platform sleep, usleep, etc.
- *
- * By Wu Yongwei
- *
- */
-
-#ifndef _SLEEP_H
-#define _SLEEP_H
-
-#ifdef _WIN32
-# if defined(_NEED_SLEEP_ONLY) && (defined(_MSC_VER) || defined(__MINGW32__))
-# include <stdlib.h>
-# define sleep(t) _sleep((t) * 1000)
-# else
-# include <windows.h>
-# define sleep(t) Sleep((t) * 1000)
-# endif
-# ifndef _NEED_SLEEP_ONLY
-# define msleep(t) Sleep(t)
-# define usleep(t) Sleep((t) / 1000)
-# endif
-#else
-# include <unistd.h>
-# ifndef _NEED_SLEEP_ONLY
-# define msleep(t) usleep((t) * 1000)
-# endif
-#endif
-
-#endif /* _SLEEP_H */
diff --git a/lib/sleep_msec.f90 b/lib/sleep_msec.f90
deleted file mode 100644
index 1a8dbe4..0000000
--- a/lib/sleep_msec.f90
+++ /dev/null
@@ -1,4 +0,0 @@
-subroutine sleep_msec(n)
- call usleep(n*1000)
- return
-end subroutine sleep_msec
diff --git a/lib/slope.f90 b/lib/slope.f90
deleted file mode 100644
index 5581ade..0000000
--- a/lib/slope.f90
+++ /dev/null
@@ -1,40 +0,0 @@
-subroutine slope(y,npts,xpk)
-
-! Remove best-fit slope from data in y(i). When fitting the straight line,
-! ignore the peak around xpk +/- 2.
-
- real y(npts)
- real x(100)
-
- do i=1,npts
- x(i)=i
- enddo
-
- sumw=0.
- sumx=0.
- sumy=0.
- sumx2=0.
- sumxy=0.
- sumy2=0.
-
- do i=1,npts
- if(abs(i-xpk).gt.2.0) then
- sumw=sumw + 1.0
- sumx=sumx + x(i)
- sumy=sumy + y(i)
- sumx2=sumx2 + x(i)**2
- sumxy=sumxy + x(i)*y(i)
- sumy2=sumy2 + y(i)**2
- endif
- enddo
-
- delta=sumw*sumx2 - sumx**2
- a=(sumx2*sumy - sumx*sumxy) / delta
- b=(sumw*sumxy - sumx*sumy) / delta
-
- do i=1,npts
- y(i)=y(i)-(a + b*x(i))
- enddo
-
- return
-end subroutine slope
diff --git a/lib/smo121.f90 b/lib/smo121.f90
deleted file mode 100644
index 7ae30ad..0000000
--- a/lib/smo121.f90
+++ /dev/null
@@ -1,13 +0,0 @@
-subroutine smo121(x,nz)
-
- real x(nz)
-
- x0=x(1)
- do i=2,nz-1
- x1=x(i)
- x(i)=0.5*x(i) + 0.25*(x0+x(i+1))
- x0=x1
- enddo
-
- return
-end subroutine smo121
diff --git a/lib/softsym.f90 b/lib/softsym.f90
deleted file mode 100644
index 8eda5e7..0000000
--- a/lib/softsym.f90
+++ /dev/null
@@ -1,50 +0,0 @@
-subroutine softsym(id2,npts8,nsps8,newdat,fpk,syncpk,snrdb,xdt, &
- freq,drift,schk,i1SoftSymbols)
-
-! Compute the soft symbols
-
- complex c2(0:4096-1)
- complex c3(0:4096-1)
- complex c5(0:4096-1)
- real a(3)
- integer*1 i1SoftSymbolsScrambled(207)
- integer*1 i1SoftSymbols(207)
- include 'jt9sync.f90'
-
- nspsd=16
- ndown=nsps8/nspsd
-
-! Mix, low-pass filter, and downsample to 16 samples per symbol
- call timer('downsam9',0)
- call downsam9(id2,npts8,nsps8,newdat,nspsd,fpk,c2,nz2)
- call timer('downsam9',1)
-
- call timer('peakdt9 ',0)
- call peakdt9(c2,nz2,nsps8,nspsd,c3,nz3,xdt) !Find DT
- call timer('peakdt9 ',1)
-
- fsample=1500.0/ndown
- a=0.
- call timer('afc9 ',0)
- call afc9(c3,nz3,fsample,a,syncpk) !Find deltaF, fDot, fDDot
- call timer('afc9 ',1)
- freq=fpk - a(1)
- drift=-2.0*a(2)
-
- call timer('twkfreq ',0)
- call twkfreq(c3,c5,nz3,fsample,a) !Correct for delta f, f1, f2 ==> a(1:3)
- call timer('twkfreq ',1)
-
-! Compute soft symbols (in scrambled order)
- call timer('symspec2',0)
- call symspec2(c5,nz3,nsps8,nspsd,fsample,freq,drift,snrdb,schk, &
- i1SoftSymbolsScrambled)
- call timer('symspec2',1)
-
-! Remove interleaving
- call timer('interlv9',0)
- call interleave9(i1SoftSymbolsScrambled,-1,i1SoftSymbols)
- call timer('interlv9',1)
-
- return
-end subroutine softsym
diff --git a/lib/sort.f90 b/lib/sort.f90
deleted file mode 100644
index 281ce02..0000000
--- a/lib/sort.f90
+++ /dev/null
@@ -1,4 +0,0 @@
-subroutine sort(n,arr)
- call ssort(arr,tmp,n,1)
- return
-end subroutine sort
diff --git a/lib/ss.bat b/lib/ss.bat
deleted file mode 100644
index 37f669a..0000000
--- a/lib/ss.bat
+++ /dev/null
@@ -1 +0,0 @@
-svn status | grep -v '?'
diff --git a/lib/ssort.f90 b/lib/ssort.f90
deleted file mode 100644
index 7d71238..0000000
--- a/lib/ssort.f90
+++ /dev/null
@@ -1,264 +0,0 @@
-subroutine ssort (x,y,n,kflag)
-! Sort an array and optionally make the same interchanges in
-! an auxiliary array. the array may be sorted in increasing
-! or decreasing order. a slightly modified quicksort
-! algorithm is used.
-
-! ssort sorts array x and optionally makes the same interchanges in
-! array y. the array x may be sorted in increasing order or
-! decreasing order. a slightly modified quicksort algorithm is used.
-
-! Description of parameters
-! x - array of values to be sorted
-! y - array to be (optionally) carried along
-! n - number of values in array x to be sorted
-! kflag - control parameter
-! = 2 means sort x in increasing order and carry y along.
-! = 1 means sort x in increasing order (ignoring y)
-! = -1 means sort x in decreasing order (ignoring y)
-! = -2 means sort x in decreasing order and carry y along.
-
- integer kflag, n
- integer x(n), y(n)
- real r
- integer t, tt, tty, ty
- integer i, ij, j, k, kk, l, m, nn
- integer il(21), iu(21)
-
- nn = n
- if (nn .lt. 1) then
-! print*,'ssort: The number of sort elements is not positive.'
-! print*,'ssort: n = ',nn,' kflag = ',kflag
- return
- endif
-
- kk = abs(kflag)
- if (kk.ne.1 .and. kk.ne.2) then
- print *,'the sort control parameter, k, is not 2, 1, -1, or -2.'
- return
- endif
-
-! Alter array x to get decreasing order if needed
-
- if (kflag .le. -1) then
- do i=1,nn
- x(i) = -x(i)
- enddo
- endif
-
- if (kk .eq. 2) go to 100
-
-! Sort x only
-
- m = 1
- i = 1
- j = nn
- r = 0.375e0
-
-20 if (i .eq. j) go to 60
- if (r .le. 0.5898437e0) then
- r = r+3.90625e-2
- else
- r = r-0.21875e0
- endif
-
-30 k = i
-
-! Select a central element of the array and save it in location t
-
- ij = i + int((j-i)*r)
- t = x(ij)
-
-! If first element of array is greater than t, interchange with t
-
- if (x(i) .gt. t) then
- x(ij) = x(i)
- x(i) = t
- t = x(ij)
- endif
- l = j
-
-! If last element of array is less than than t, interchange with t
- if (x(j) .lt. t) then
- x(ij) = x(j)
- x(j) = t
- t = x(ij)
-
-! If first element of array is greater than t, interchange with t
- if (x(i) .gt. t) then
- x(ij) = x(i)
- x(i) = t
- t = x(ij)
- endif
- endif
-
-! Find an element in the second half of the array which is smaller than t
-40 l = l-1
- if (x(l) .gt. t) go to 40
-
-! Find an element in the first half of the array which is greater than t
-50 k = k+1
- if (x(k) .lt. t) go to 50
-
-! Interchange these elements
- if (k .le. l) then
- tt = x(l)
- x(l) = x(k)
- x(k) = tt
- go to 40
- endif
-
-! Save upper and lower subscripts of the array yet to be sorted
- if (l-i .gt. j-k) then
- il(m) = i
- iu(m) = l
- i = k
- m = m+1
- else
- il(m) = k
- iu(m) = j
- j = l
- m = m+1
- endif
- go to 70
-
-! Begin again on another portion of the unsorted array
-60 m = m-1
- if (m .eq. 0) go to 190
- i = il(m)
- j = iu(m)
-
-70 if (j-i .ge. 1) go to 30
- if (i .eq. 1) go to 20
- i = i-1
-
-80 i = i+1
- if (i .eq. j) go to 60
- t = x(i+1)
- if (x(i) .le. t) go to 80
- k = i
-
-90 x(k+1) = x(k)
- k = k-1
- if (t .lt. x(k)) go to 90
- x(k+1) = t
- go to 80
-
-! Sort x and carry y along
-
-100 m = 1
- i = 1
- j = nn
- r = 0.375e0
-
-110 if (i .eq. j) go to 150
- if (r .le. 0.5898437e0) then
- r = r+3.90625e-2
- else
- r = r-0.21875e0
- endif
-
- 120 k = i
-! Select a central element of the array and save it in location t
- ij = i + int((j-i)*r)
- t = x(ij)
- ty = y(ij)
-
-! If first element of array is greater than t, interchange with t
- if (x(i) .gt. t) then
- x(ij) = x(i)
- x(i) = t
- t = x(ij)
- y(ij) = y(i)
- y(i) = ty
- ty = y(ij)
- endif
- l = j
-
-! If last element of array is less than t, interchange with t
- if (x(j) .lt. t) then
- x(ij) = x(j)
- x(j) = t
- t = x(ij)
- y(ij) = y(j)
- y(j) = ty
- ty = y(ij)
-
-! If first element of array is greater than t, interchange with t
- if (x(i) .gt. t) then
- x(ij) = x(i)
- x(i) = t
- t = x(ij)
- y(ij) = y(i)
- y(i) = ty
- ty = y(ij)
- endif
- endif
-
-! Find an element in the second half of the array which is smaller than t
-130 l = l-1
- if (x(l) .gt. t) go to 130
-
-! Find an element in the first half of the array which is greater than t
-140 k = k+1
- if (x(k) .lt. t) go to 140
-
-! Interchange these elements
- if (k .le. l) then
- tt = x(l)
- x(l) = x(k)
- x(k) = tt
- tty = y(l)
- y(l) = y(k)
- y(k) = tty
- go to 130
- endif
-
-! Save upper and lower subscripts of the array yet to be sorted
- if (l-i .gt. j-k) then
- il(m) = i
- iu(m) = l
- i = k
- m = m+1
- else
- il(m) = k
- iu(m) = j
- j = l
- m = m+1
- endif
- go to 160
-
-! Begin again on another portion of the unsorted array
-150 m = m-1
- if (m .eq. 0) go to 190
- i = il(m)
- j = iu(m)
-
-160 if (j-i .ge. 1) go to 120
- if (i .eq. 1) go to 110
- i = i-1
-
-170 i = i+1
- if (i .eq. j) go to 150
- t = x(i+1)
- ty = y(i+1)
- if (x(i) .le. t) go to 170
- k = i
-
-180 x(k+1) = x(k)
- y(k+1) = y(k)
- k = k-1
- if (t .lt. x(k)) go to 180
- x(k+1) = t
- y(k+1) = ty
- go to 170
-
-! Clean up
-190 if (kflag .le. -1) then
- do i=1,nn
- x(i) = -x(i)
- enddo
- endif
-
- return
-end subroutine ssort
diff --git a/lib/stdmsg.f90 b/lib/stdmsg.f90
deleted file mode 100644
index bc8d489..0000000
--- a/lib/stdmsg.f90
+++ /dev/null
@@ -1,12 +0,0 @@
-logical*1 function stdmsg(msg0)
-
- character*22 msg0,msg
- integer dat(12)
- logical text
-
- call packmsg(msg0,dat,text)
- call unpackmsg(dat,msg)
- stdmsg=msg.eq.msg0 .and. (.not.text)
-
- return
-end function stdmsg
diff --git a/lib/symspec.f90 b/lib/symspec.f90
deleted file mode 100644
index 2facb49..0000000
--- a/lib/symspec.f90
+++ /dev/null
@@ -1,113 +0,0 @@
-subroutine symspec(k,ntrperiod,nsps,ingain,slope,pxdb,s,df3,ihsym,npts8)
-
-! Input:
-! k pointer to the most recent new data
-! ntrperiod T/R sequence length, minutes
-! nsps samples per symbol, at 12000 Hz
-! ndiskdat 0/1 to indicate if data from disk
-! nb 0/1 status of noise blanker (off/on)
-! nbslider NB setting, 0-100
-
-! Output:
-! pxdb power (0-60 dB)
-! s() current spectrum for waterfall display
-! ihsym index number of this half-symbol (1-184)
-
-! jt9com
-! ss() JT9 symbol spectra at half-symbol steps
-! savg() average spectra for waterfall display
-
- include 'constants.f90'
- real*4 w3(MAXFFT3)
- real*4 s(NSMAX)
- real*4 scale(NSMAX)
- real*4 ssum(NSMAX)
- real*4 xc(0:MAXFFT3-1)
- complex cx(0:MAXFFT3/2)
- integer*2 id2
- common/jt9com/ss(184,NSMAX),savg(NSMAX),id2(NMAX),nutc,ndiskdat, &
- ntr,mousefqso,newdat,nfa,nfb,ntol,kin,nzhsym,nsynced,ndecoded
- data rms/999.0/,k0/99999999/,nfft3z/0/,slope0/0.0/
- equivalence (xc,cx)
- save
-
- if(ntrperiod.eq.-999) stop !Silence compiler warning
- nfft3=16384 !df=12000.0/16384 = 0.732422
- jstep=nsps/2 !Step size = half-symbol in id2()
- if(k.gt.NMAX) go to 900
- if(k.lt.2048) then !(2048 was nfft3) (Any need for this ???)
- ihsym=0
- go to 900 !Wait for enough samples to start
- endif
-
- if(nfft3.ne.nfft3z .or. slope.ne.slope0) then !New nfft3, compute window
- pi=4.0*atan(1.0)
- do i=1,nfft3
- w3(i)=2.0*(sin(i*pi/nfft3))**2 !Window for nfft3 spectrum
- enddo
- nfft3z=nfft3
- nh=NSMAX/2
- do i=1,NSMAX
- x=slope*float(i)/nh - 1.0 + 2.6
- scale(i)=10.0**x
- enddo
- slope0=slope
- endif
-
- if(k.lt.k0) then !Start a new data block
- ja=0
- ssum=0.
- ihsym=0
- if(ndiskdat.eq.0) id2(k+1:)=0 !Needed to prevent "ghosts". Not sure why.
- endif
- gain=10.0**(0.05*ingain)
- sq=0.
- do i=k0+1,k
- x1=id2(i)
- sq=sq + x1*x1
- enddo
- sq=sq * gain**2
- rms=sqrt(sq/(k-k0))
- pxdb=0.
- if(rms.gt.0.0) pxdb=20.0*log10(rms)
- if(pxdb.gt.60.0) pxdb=60.0
-
-
- k0=k
- ja=ja+jstep !Index of first sample
-
- fac0=0.1
- do i=0,nfft3-1 !Copy data into cx
- j=ja+i-(nfft3-1)
- xc(i)=0.
- if(j.ge.1) xc(i)=fac0*id2(j)
- enddo
-
- if(ihsym.lt.184) ihsym=ihsym+1
-
- xc(0:nfft3-1)=w3(1:nfft3)*xc(0:nfft3-1) !Apply window w3
- call four2a(xc,nfft3,1,-1,0) !Real-to-complex FFT
-
- n=min(184,ihsym)
- df3=12000.0/nfft3 !JT9-1: 0.732 Hz = 0.42 * tone spacing
-! i0=nint(1000.0/df3)
- i0=0
- iz=min(NSMAX,nint(5000.0/df3))
- fac=(1.0/nfft3)**2
- do i=1,iz
- j=i0+i-1
- if(j.lt.0) j=j+nfft3
- sx=fac*(real(cx(j))**2 + aimag(cx(j))**2)
- ss(n,i)=sx
- ssum(i)=ssum(i) + sx
- s(i)=gain*sx
- enddo
-
-! s=0.05*s/ref
- s=scale*s
- savg=scale*ssum/ihsym
-
-900 npts8=k/8
-
- return
-end subroutine symspec
diff --git a/lib/symspec2.f90 b/lib/symspec2.f90
deleted file mode 100644
index 92dc571..0000000
--- a/lib/symspec2.f90
+++ /dev/null
@@ -1,88 +0,0 @@
-subroutine symspec2(c5,nz3,nsps8,nspsd,fsample,freq,drift,snrdb,schk, &
- i1SoftSymbolsScrambled)
-
-! Compute soft symbols from the final downsampled data
-
- complex c5(0:4096-1)
- complex z
- integer*1 i1SoftSymbolsScrambled(207)
- real aa(3)
- real ss2(0:8,85)
- real ss3(0:7,69)
- include 'jt9sync.f90'
- data scale/10.0/
-
- aa(1)=-1500.0/nsps8
- aa(2)=0.
- aa(3)=0.
- do i=0,8 !Loop over the 9 tones
- if(i.ge.1) call twkfreq(c5,c5,nz3,fsample,aa)
- m=0
- k=-1
- do j=1,85 !Loop over all symbols
- z=0.
- do n=1,nspsd !Sum over 16 samples
- k=k+1
- z=z+c5(k)
- enddo
- ss2(i,j)=real(z)**2 + aimag(z)**2 !Symbol speactra, data and sync
- if(i.ge.1 .and. isync(j).eq.0) then
- m=m+1
- ss3(i-1,m)=ss2(i,j) !Symbol speactra, data only
- endif
- enddo
- enddo
-
- call chkss2(ss2,freq,drift,schk)
- if(schk.lt.2.0) go to 900
-
- ss=0.
- sig=0.
- do j=1,69
- smax=0.
- do i=0,7
- smax=max(smax,ss3(i,j))
- ss=ss+ss3(i,j)
- enddo
- sig=sig+smax
- ss=ss-smax
- enddo
- ave=ss/(69*7) !Baseline
- call pctile(ss2,9*85,35,xmed)
- ss3=ss3/ave
- sig=sig/69. !Signal
- t=max(1.0,sig - 1.0)
- snrdb=db(t) - 61.3
-
- m0=3
- k=0
- do j=1,69
- smax=0.
- do i=0,7
- if(ss3(i,j).gt.smax) smax=ss3(i,j)
- enddo
-
- do m=m0-1,0,-1 !Get bit-wise soft symbols
- if(m.eq.2) then
- r1=max(ss3(4,j),ss3(5,j),ss3(6,j),ss3(7,j))
- r0=max(ss3(0,j),ss3(1,j),ss3(2,j),ss3(3,j))
- else if(m.eq.1) then
- r1=max(ss3(2,j),ss3(3,j),ss3(4,j),ss3(5,j))
- r0=max(ss3(0,j),ss3(1,j),ss3(6,j),ss3(7,j))
- else
- r1=max(ss3(1,j),ss3(2,j),ss3(4,j),ss3(7,j))
- r0=max(ss3(0,j),ss3(3,j),ss3(5,j),ss3(6,j))
- endif
-
- k=k+1
- i4=nint(scale*(r1-r0))
- if(i4.lt.-127) i4=-127
- if(i4.gt.127) i4=127
- i4=i4+128
- if(i4.le.127) i1SoftSymbolsScrambled(k)=i4
- if(i4.ge.128) i1SoftSymbolsScrambled(k)=i4-256
- enddo
- enddo
-
-900 return
-end subroutine symspec2
diff --git a/lib/symspec65.f90 b/lib/symspec65.f90
deleted file mode 100644
index 5f6da88..0000000
--- a/lib/symspec65.f90
+++ /dev/null
@@ -1,47 +0,0 @@
-subroutine symspec65(dd,npts,ss,nhsym,savg)
-
-! Compute JT65 symbol spectra at half-symbol steps
-
- parameter (NFFT=8192)
- parameter (NSZ=3413) !NFFT*5000/12000
- parameter (MAXHSYM=322)
- real*8 hstep
- real*4 dd(npts)
- real*4 ss(MAXHSYM,NSZ)
- real*4 savg(NSZ)
- real*4 x(NFFT)
- complex c(0:NFFT/2)
- common/refspec/dfref,ref(NSZ)
- equivalence (x,c)
- save /refspec/
-
- hstep=2048.d0*12000.d0/11025.d0 !half-symbol = 2229.116 samples
- nsps=nint(2*hstep)
- df=12000.0/NFFT
- nhsym=npts/hstep - 1.0
- savg=0.
- fac1=1.e-3
-
- do j=1,nhsym
- i0=(j-1)*hstep
- x(1:nsps)=fac1*dd(i0+1:i0+nsps)
- x(nsps+1:)=0.
- call four2a(c,NFFT,1,-1,0) !r2c forward FFT
- do i=1,NSZ
- s=real(c(i))**2 + aimag(c(i))**2
- ss(j,i)=s
- savg(i)=savg(i)+s
- enddo
- enddo
- savg=savg/nhsym
-
- call flat65(ss,nhsym,MAXHSYM,NSZ,ref) !Flatten the 2d spectrum, saving
- dfref=df ! the reference spectrum ref()
-
- savg=savg/ref
- do j=1,nhsym
- ss(j,1:NSZ)=ss(j,1:NSZ)/ref
- enddo
-
- return
-end subroutine symspec65
diff --git a/lib/sync24.f90 b/lib/sync24.f90
deleted file mode 100644
index cf6bf5a..0000000
--- a/lib/sync24.f90
+++ /dev/null
@@ -1,179 +0,0 @@
-subroutine sync24(dat,jz,DFTolerance,NFreeze,MouseDF,mode,mode4, &
- dtx,dfx,snrx,snrsync,ccfblue,ccfred1,flip,width)
-
-! Synchronizes JT4 data, finding the best-fit DT and DF.
-
- parameter (NFFTMAX=2520) !Max length of FFTs
- parameter (NHMAX=NFFTMAX/2) !Max length of power spectra
- parameter (NSMAX=525) !Max number of half-symbol steps
- integer DFTolerance !Range of DF search
- real dat(jz)
- real psavg(NHMAX) !Average spectrum of whole record
- real s2(NHMAX,NSMAX) !2d spectrum, stepped by half-symbols
- real ccfblue(-5:540) !CCF with pseudorandom sequence
- real ccfred(-450:450) !Peak of ccfblue, as function of freq
- real ccfred1(-224:224) !Peak of ccfblue, as function of freq
- real tmp(1260)
- save
-
-! Do FFTs of twice symbol length, stepped by half symbols. Note that
-! we have already downsampled the data by factor of 2.
-
- nsym=207
- nfft=2520
- nh=nfft/2
- nq=nfft/4
- nsteps=jz/nq - 1
- df=0.5*11025.0/nfft
- psavg(1:nh)=0.
-
- do j=1,nsteps !Compute spectrum for each step, get average
- k=(j-1)*nq + 1
- call ps24(dat(k),nfft,s2(1,j))
- psavg(1:nh)=psavg(1:nh) + s2(1:nh,j)
- enddo
-
- call flat1(psavg,s2,nh,nsteps,NHMAX,NSMAX) !Flatten spectra
-
-! Set freq and lag ranges
- famin=200.
- fbmax=2700.
- fa=famin
- fb=fbmax
- if(NFreeze.eq.1) then
- fa=max(famin,1270.46+MouseDF-DFTolerance)
- fb=min(fbmax,1270.46+MouseDF+DFTolerance)
- else
- fa=max(famin,1270.46+MouseDF-600)
- fb=min(fbmax,1270.46+MouseDF+600)
- endif
- ia=fa/df
- ib=fb/df
- if(mode.eq.7) then
- ia=ia - 3*mode4
- ib=ib - 3*mode4
- endif
- i0=nint(1270.46/df)
- lag1=-5
- lag2=59
- syncbest=-1.e30
- syncbest2=-1.e30
- ccfred=0.
-
- do i=ia,ib !Find best frequency channel for CCF
-
- call xcor24(s2,i,nsteps,nsym,lag1,lag2,mode4,ccfblue,ccf0,lagpk0,flip)
- j=i-i0
- if(mode.eq.7) j=j + 3*mode4
- if(j.ge.-372 .and. j.le.372) ccfred(j)=ccf0
-
-! Find rms of the CCF, without main peak
- call slope(ccfblue(lag1),lag2-lag1+1,lagpk0-lag1+1.0)
- sync=abs(ccfblue(lagpk0))
- ppmax=psavg(i)-1.0
-
-! Find best sync value
- if(sync.gt.syncbest2) then
- ipk2=i
- lagpk2=lagpk0
- syncbest2=sync
- endif
-
-! We are most interested if snrx will be more than -30 dB.
- if(ppmax.gt.0.2938) then !Corresponds to snrx.gt.-30.0
- if(sync.gt.syncbest) then
- ipk=i
- lagpk=lagpk0
- syncbest=sync
- endif
- endif
- enddo
-
-! If we found nothing with snrx > -30 dB, take the best sync that *was* found.
- if(syncbest.lt.-10.) then
- ipk=ipk2
- lagpk=lagpk2
- syncbest=syncbest2
- endif
-
- dfx=(ipk-i0)*df
- if(mode.eq.7) dfx=dfx + 3*mode4*df
-
-! Peak up in time, at best whole-channel frequency
- call xcor24(s2,ipk,nsteps,nsym,lag1,lag2,mode4,ccfblue,ccfmax,lagpk,flip)
- xlag=lagpk
- if(lagpk.gt.lag1 .and. lagpk.lt.lag2) then
- call peakup(ccfblue(lagpk-1),ccfmax,ccfblue(lagpk+1),dx2)
- xlag=lagpk+dx2
- endif
-
-! Find rms of the CCF, without the main peak
- call slope(ccfblue(lag1),lag2-lag1+1,xlag-lag1+1.0)
- sq=0.
- nsq=0
- do lag=lag1,lag2
- if(abs(lag-xlag).gt.2.0) then
- sq=sq+ccfblue(lag)**2
- nsq=nsq+1
- endif
- enddo
- rms=sqrt(sq/nsq)
- snrsync=abs(ccfblue(lagpk))/rms - 1.1 !Empirical
-
- dt=2.0/11025.0
- istart=xlag*nq
- dtx=istart*dt
- snrx=-99.0
- ppmax=psavg(ipk)-1.0
-
- if(ppmax.gt.0.0001) then
- snrx=db(ppmax*df/2500.0) + 7.5 !Empirical
- if(mode.eq.7) snrx=snrx + 3.0 !Empirical
- endif
- if(snrx.lt.-33.0) snrx=-33.0
-
-! Compute width of sync tone to outermost -3 dB points
- i1=max(-450,ia-i0)
- i2=min(450,ib-i0)
- call pctile(ccfred(i1),i2-i1+1,45,base)
-
- jpk=ipk-i0
- if(abs(jpk).gt.450) then
- print*,'sync24 a:',jpk,ipk,i0
- snrsync=0.
- go to 999
- else
- stest=base + 0.5*(ccfred(jpk)-base) ! -3 dB
- endif
- do i=-10,0
- if(jpk+i.ge.-371) then
- if(ccfred(jpk+i).gt.stest) go to 30
- endif
- enddo
- i=0
-30 continue
- if(abs(jpk+i-1).gt.450 .or. abs(jpk+i).gt.450) then
- print*,'sync24 b:',jpk,i
- else
- x1=i-0.5
- endif
-
- do i=10,0,-1
- if(jpk+i.le.371) then
- if(ccfred(jpk+i).gt.stest) go to 32
- endif
- enddo
- i=0
-32 x2=i+0.5
- width=x2-x1
- if(width.gt.1.2) width=sqrt(width**2 - 1.44)
- width=df*width
- width=max(0.0,min(99.0,width))
-
- do i=-224,224
- ccfred1(i)=ccfred(i)
- enddo
-
-999 return
-end subroutine sync24
-
diff --git a/lib/sync9.f90 b/lib/sync9.f90
deleted file mode 100644
index 433e11f..0000000
--- a/lib/sync9.f90
+++ /dev/null
@@ -1,101 +0,0 @@
-subroutine sync9(ss,nzhsym,lag1,lag2,ia,ib,ccfred,red2,ipkbest)
-
- include 'constants.f90'
-! parameter (NSMAX=1365) !Max length of saved spectra
- real ss(184,NSMAX)
- real ss1(184)
- real ccfred(NSMAX)
- real savg(NSMAX)
- real savg2(NSMAX)
- real smo(-5:25)
- real sq(NSMAX)
- real red2(NSMAX)
- include 'jt9sync.f90'
-
- ipk=0
- ipkbest=0
- sbest=0.
- ccfred=0.
-
- do i=ia,ib !Loop over freq range
- ss1=ss(1:184,i)
- call pctile(ss1,nzhsym,40,xmed)
-! xmed=sum(ss1(1:nzhsym))/nzhsym
-
- ss1=ss1/xmed - 1.0
- do j=1,nzhsym
- if(ss1(j).gt.3.0) ss1(j)=3.0
- enddo
-
- call pctile(ss1,nzhsym,45,sbase)
- ss1=ss1-sbase
- sq0=dot_product(ss1(1:nzhsym),ss1(1:nzhsym))
- rms=sqrt(sq0/(nzhsym-1))
-
- smax=0.
- do lag=lag1,lag2 !DT = 2.5 to 5.0 s
- sum1=0.
- sq2=sq0
- nsum=nzhsym
- do j=1,16 !Sum over 16 sync symbols
- k=ii2(j) + lag
- if(k.ge.1 .and. k.le.nzhsym) then
- sum1=sum1 + ss1(k)
- sq2=sq2 - ss1(k)*ss1(k)
- nsum=nsum-1
- endif
- enddo
- if(sum1.gt.smax) then
- smax=sum1
- ipk=i
- endif
- rms=sqrt(sq2/(nsum-1))
- enddo
- ccfred(i)=smax !Best at this freq, over all lags
- if(smax.gt.sbest) then
- sbest=smax
- ipkbest=ipk
- endif
- enddo
-
- call pctile(ccfred(ia),ib-ia+1,50,xmed)
- if(xmed.le.0.0) xmed=1.0
- ccfred=2.0*ccfred/xmed
-
- savg=0.
- do j=1,nzhsym
- savg(ia:ib)=savg(ia:ib) + ss(j,ia:ib)
- enddo
-! df=1500.0/2048.0 ! 0.732422
-! df9=12000.0/6912.0 ! 1.736111
- savg(ia:ib)=savg(ia:ib)/nzhsym
- smo(0:20)=1.0/21.0
- smo(-5:-1)=-(1.0/21.0)*(21.0/10.0)
- smo(21:25)=smo(-5)
-
- do i=ia,ib
- sm=0.
- do j=-5,25
- if(i+j.ge.1 .and. i+j.lt.NSMAX) sm=sm + smo(j)*savg(i+j)
- enddo
- savg2(i)=sm
- sq(i)=sm*sm
- enddo
-
- call pctile(sq(ia:ib),ib-ia+1,20,sq0)
- rms=sqrt(sq0)
- savg2(ia:ib)=savg2(ia:ib)/(5.0*rms)
-
- red2=0.
- do i=ia+11,ib-10
- ref=max(savg2(i-10),savg2(i+10))
- red2(i)=savg2(i)-ref
- if(red2(i).lt.-99.0) red2(i)=-99.0
- if(red2(i).gt.99.0) red2(i)=99.0
-! write(30,3001) i,i*df+1000.0,savg2(i),red2(i),ccfred(i)
-!3001 format(i8,4f10.3)
- enddo
-! call flush(30)
-
- return
-end subroutine sync9
diff --git a/lib/tab.c b/lib/tab.c
deleted file mode 100644
index 3cd419a..0000000
--- a/lib/tab.c
+++ /dev/null
@@ -1,36 +0,0 @@
-/* 8-bit parity lookup table, generated by partab.c */
-unsigned char Partab[] = {
- 0, 1, 1, 0, 1, 0, 0, 1,
- 1, 0, 0, 1, 0, 1, 1, 0,
- 1, 0, 0, 1, 0, 1, 1, 0,
- 0, 1, 1, 0, 1, 0, 0, 1,
- 1, 0, 0, 1, 0, 1, 1, 0,
- 0, 1, 1, 0, 1, 0, 0, 1,
- 0, 1, 1, 0, 1, 0, 0, 1,
- 1, 0, 0, 1, 0, 1, 1, 0,
- 1, 0, 0, 1, 0, 1, 1, 0,
- 0, 1, 1, 0, 1, 0, 0, 1,
- 0, 1, 1, 0, 1, 0, 0, 1,
- 1, 0, 0, 1, 0, 1, 1, 0,
- 0, 1, 1, 0, 1, 0, 0, 1,
- 1, 0, 0, 1, 0, 1, 1, 0,
- 1, 0, 0, 1, 0, 1, 1, 0,
- 0, 1, 1, 0, 1, 0, 0, 1,
- 1, 0, 0, 1, 0, 1, 1, 0,
- 0, 1, 1, 0, 1, 0, 0, 1,
- 0, 1, 1, 0, 1, 0, 0, 1,
- 1, 0, 0, 1, 0, 1, 1, 0,
- 0, 1, 1, 0, 1, 0, 0, 1,
- 1, 0, 0, 1, 0, 1, 1, 0,
- 1, 0, 0, 1, 0, 1, 1, 0,
- 0, 1, 1, 0, 1, 0, 0, 1,
- 0, 1, 1, 0, 1, 0, 0, 1,
- 1, 0, 0, 1, 0, 1, 1, 0,
- 1, 0, 0, 1, 0, 1, 1, 0,
- 0, 1, 1, 0, 1, 0, 0, 1,
- 1, 0, 0, 1, 0, 1, 1, 0,
- 0, 1, 1, 0, 1, 0, 0, 1,
- 0, 1, 1, 0, 1, 0, 0, 1,
- 1, 0, 0, 1, 0, 1, 1, 0,
-};
-
diff --git a/lib/timer.f90 b/lib/timer.f90
deleted file mode 100644
index 1637493..0000000
--- a/lib/timer.f90
+++ /dev/null
@@ -1,112 +0,0 @@
-subroutine timer(dname,k)
-
-! Times procedure number n between a call with k=0 (tstart) and with
-! k=1 (tstop). Accumulates sums of these times in array ut (user time).
-! Also traces all calls (for debugging purposes) if limtrace.gt.0
-
- character*8 dname,name(50),space,ename
- character*16 sname
- logical on(50)
- real ut(50),ut0(50),dut(50)
- integer ncall(50),nlevel(50),nparent(50)
- integer onlevel(0:10)
- common/tracer/ limtrace,lu
- data eps/0.000001/,ntrace/0/
- data level/0/,nmax/0/,space/' '/
- data limtrace/0/,lu/-1/
- save
-
- if(limtrace.lt.0) go to 999
- if(lu.lt.1) lu=6
- if(k.gt.1) go to 40 !Check for "all done" (k>1)
- onlevel(0)=0
-
- do n=1,nmax !Check for existing name
- if(name(n).eq.dname) go to 20
- enddo
-
- nmax=nmax+1 !This is a new one
- n=nmax
- ncall(n)=0
- on(n)=.false.
- ut(n)=eps
- name(n)=dname
-
-20 if(k.eq.0) then !Get start times (k=0)
- if(on(n)) print*,'Error in timer: ',dname,' already on.'
- level=level+1 !Increment the level
- on(n)=.true.
- call system_clock(icount,irate)
- ut0(n)=float(icount)/irate
- ncall(n)=ncall(n)+1
- if(ncall(n).gt.1.and.nlevel(n).ne.level) then
- nlevel(n)=-1
- else
- nlevel(n)=level
- endif
- nparent(n)=onlevel(level-1)
- onlevel(level)=n
-
- else if(k.eq.1) then !Get stop times and accumulate sums. (k=1)
- if(on(n)) then
- on(n)=.false.
- call system_clock(icount,irate)
- ut1=float(icount)/irate
- ut(n)=ut(n)+ut1-ut0(n)
- endif
- level=level-1
- endif
-
- ntrace=ntrace+1
- if(ntrace.lt.limtrace) write(lu,1020) ntrace,dname,k,level,nparent(n)
-1020 format(i8,': ',a8,3i5)
- go to 998
-
-! Write out the timer statistics
-
-40 write(lu,1040)
-1040 format(/' name time frac dtime', &
- ' dfrac calls level parent'/73('-'))
-
- if(k.gt.100) then
- ndiv=k-100
- do i=1,nmax
- ncall(i)=ncall(i)/ndiv
- ut(i)=ut(i)/ndiv
- enddo
- endif
-
- total=ut(1)
- sum=0.
- sumf=0.
- do i=1,nmax
- dut(i)=ut(i)
- do j=i,nmax
- if(nparent(j).eq.i) dut(i)=dut(i)-ut(j)
- enddo
- utf=ut(i)/total
- dutf=dut(i)/total
- sum=sum+dut(i)
- sumf=sumf+dutf
- kk=nlevel(i)
- sname=space(1:kk)//name(i)//space(1:8-kk)
- ename=space
- if(i.ge.2) ename=name(nparent(i))
- write(lu,1060) float(i),sname,ut(i),utf,dut(i),dutf, &
- ncall(i),nlevel(i),ename
-1060 format(f4.0,a16,2(f10.2,f6.2),i7,i5,2x,a8)
- enddo
-
- write(lu,1070) sum,sumf
-1070 format(/36x,f10.2,f6.2)
- nmax=0
- eps=0.000001
- ntrace=0
- level=0
- space=' '
- onlevel(0)=0
-
-998 flush(lu)
-
-999 return
-end subroutine timer
diff --git a/lib/timeval.h b/lib/timeval.h
deleted file mode 100644
index 100dda5..0000000
--- a/lib/timeval.h
+++ /dev/null
@@ -1,74 +0,0 @@
-/*
- * timeval.h 1.0 01/12/19
- *
- * Defines gettimeofday, timeval, etc. for Win32
- *
- * By Wu Yongwei
- *
- */
-
-#ifndef _TIMEVAL_H
-#define _TIMEVAL_H
-
-#ifdef _WIN32
-
-#define WIN32_LEAN_AND_MEAN
-#include <windows.h>
-#include <time.h>
-
-#ifndef __GNUC__
-#define EPOCHFILETIME (116444736000000000i64)
-#else
-#define EPOCHFILETIME (116444736000000000LL)
-#endif
-
-//struct timeval {
-// long tv_sec; /* seconds */
-// long tv_usec; /* microseconds */
-//};
-
-struct timezone {
- int tz_minuteswest; /* minutes W of Greenwich */
- int tz_dsttime; /* type of dst correction */
-};
-
-__inline int gettimeofday(struct timeval *tv, struct timezone *tz)
-{
- FILETIME ft;
- LARGE_INTEGER li;
- __int64 t;
- static int tzflag;
-
- if (tv)
- {
- GetSystemTimeAsFileTime(&ft);
- li.LowPart = ft.dwLowDateTime;
- li.HighPart = ft.dwHighDateTime;
- t = li.QuadPart; /* In 100-nanosecond intervals */
- t -= EPOCHFILETIME; /* Offset to the Epoch time */
- t /= 10; /* In microseconds */
- tv->tv_sec = (long)(t / 1000000);
- tv->tv_usec = (long)(t % 1000000);
- }
-
- if (tz)
- {
- if (!tzflag)
- {
- _tzset();
- tzflag++;
- }
- tz->tz_minuteswest = _timezone / 60;
- tz->tz_dsttime = _daylight;
- }
-
- return 0;
-}
-
-#else /* _WIN32 */
-
-#include <sys/time.h>
-
-#endif /* _WIN32 */
-
-#endif /* _TIMEVAL_H */
diff --git a/lib/tstrig.c b/lib/tstrig.c
deleted file mode 100644
index 2e77fea..0000000
--- a/lib/tstrig.c
+++ /dev/null
@@ -1,26 +0,0 @@
-#include "config.h"
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include "tstrig.h"
-
-int set_conf(RIG *my_rig, char *conf_parms);
-
-int rig_control(rig_model_t my_model, int verbose);
-
-int main (int argc, char *argv[])
-{
- rig_model_t my_model = RIG_MODEL_DUMMY;
- int verbose=0;
-
- my_model=214;
- rig_control(my_model,verbose);
- return 0;
-}
-
-/*
-gcc -c -Wall -I../include rig_control.c
-gcc -c -Wall -I../include tstrig.c
-gcc -o tstrig.exe -Wl,--enable-auto-import tstrig.o rig_control.o libhamlib.dll.a
-strip tstrig.exe
-*/
diff --git a/lib/tstrig.h b/lib/tstrig.h
deleted file mode 100644
index ce62d3d..0000000
--- a/lib/tstrig.h
+++ /dev/null
@@ -1,50 +0,0 @@
-/*
- * rigctl_parse.h - (C) Stephane Fillod 2000-2010
- *
- * This program test/control a radio using Hamlib.
- * It takes commands in interactive mode as well as
- * from command line options.
- *
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License along
- * with this program; if not, write to the Free Software Foundation, Inc.,
- * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
- *
- */
-
-#ifndef RIGCTL_PARSE_H
-#define RIGCTL_PARSE_H
-
-#include <stdio.h>
-#include <hamlib/rig.h>
-
-/*
- * external prototype
- */
-
-int dumpcaps (RIG *, FILE *);
-int dumpconf (RIG *, FILE *);
-
-/*
- * Prototypes
- */
-void usage_rig(FILE *);
-void version();
-void list_models();
-int dump_chan(FILE *, RIG*, channel_t*);
-int print_conf_list(const struct confparams *cfp, rig_ptr_t data);
-int set_conf(RIG *my_rig, char *conf_parms);
-
-int rigctl_parse(RIG *my_rig, FILE *fin, FILE *fout, char *argv[], int argc);
-
-#endif /* RIGCTL_PARSE_H */
diff --git a/lib/twkfreq.f90 b/lib/twkfreq.f90
deleted file mode 100644
index 0a9b34d..0000000
--- a/lib/twkfreq.f90
+++ /dev/null
@@ -1,28 +0,0 @@
-subroutine twkfreq(c3,c4,npts,fsample,a)
-
- complex c3(npts)
- complex c4(npts)
- complex w,wstep
- real a(3)
- data twopi/6.283185307/
-
-! Mix the complex signal
- w=1.0
- wstep=1.0
- x0=0.5*(npts+1)
- s=2.0/npts
- do i=1,npts
- x=s*(i-x0)
- if(mod(i,100).eq.1) then
- p2=1.5*x*x - 0.5
-! p3=2.5*(x**3) - 1.5*x
-! p4=4.375*(x**4) - 3.75*(x**2) + 0.375
- dphi=(a(1) + x*a(2) + p2*a(3)) * (twopi/fsample)
- wstep=cmplx(cos(dphi),sin(dphi))
- endif
- w=w*wstep
- c4(i)=w*c3(i)
- enddo
-
- return
-end subroutine twkfreq
diff --git a/lib/twkfreq65.f90 b/lib/twkfreq65.f90
deleted file mode 100644
index 85847c7..0000000
--- a/lib/twkfreq65.f90
+++ /dev/null
@@ -1,25 +0,0 @@
-subroutine twkfreq65(c4aa,n5,a)
-
- complex c4aa(n5)
- real a(5)
- complex w,wstep
- data twopi/6.283185307/
-
-! Apply AFC corrections to the c4aa data
- w=1.0
- wstep=1.0
- x0=0.5*(n5+1)
- s=2.0/n5
- do i=1,n5
- x=s*(i-x0)
- if(mod(i,100).eq.1) then
- p2=1.5*x*x - 0.5
- dphi=(a(1) + x*a(2) + p2*a(3)) * (twopi/1378.125)
- wstep=cmplx(cos(dphi),sin(dphi))
- endif
- w=w*wstep
- c4aa(i)=w*c4aa(i)
- enddo
-
- return
-end subroutine twkfreq65
diff --git a/lib/unpackbits.f90 b/lib/unpackbits.f90
deleted file mode 100644
index a3ff15f..0000000
--- a/lib/unpackbits.f90
+++ /dev/null
@@ -1,22 +0,0 @@
-subroutine unpackbits(sym,nsymd,m0,dbits)
-
-! Unpack bits from sym() into dbits(), one bit per byte.
-! NB: nsymd is the number of input words, and m0 their length.
-! there will be m0*nsymd output bytes, each 0 or 1.
-
- integer sym(nsymd)
- integer*1 dbits(*)
-
- k=0
- do i=1,nsymd
- mask=ishft(1,m0-1)
- do j=1,m0
- k=k+1
- dbits(k)=0
- if(iand(mask,sym(i)).ne.0) dbits(k)=1
- mask=ishft(mask,-1)
- enddo
- enddo
-
- return
-end subroutine unpackbits
diff --git a/lib/unpackcall.f90 b/lib/unpackcall.f90
deleted file mode 100644
index f738926..0000000
--- a/lib/unpackcall.f90
+++ /dev/null
@@ -1,142 +0,0 @@
-subroutine unpackcall(ncall,word,iv2,psfx)
-
- parameter (NBASE=37*36*10*27*27*27)
- character word*12,c*37,psfx*4
-
- data c/'0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ '/
-
- n=ncall
- iv2=0
- if(n.ge.262177560) go to 20
- word='......'
- if(n.ge.262177560) go to 999 !Plain text message ...
- i=mod(n,27)+11
- word(6:6)=c(i:i)
- n=n/27
- i=mod(n,27)+11
- word(5:5)=c(i:i)
- n=n/27
- i=mod(n,27)+11
- word(4:4)=c(i:i)
- n=n/27
- i=mod(n,10)+1
- word(3:3)=c(i:i)
- n=n/10
- i=mod(n,36)+1
- word(2:2)=c(i:i)
- n=n/36
- i=n+1
- word(1:1)=c(i:i)
- do i=1,4
- if(word(i:i).ne.' ') go to 10
- enddo
- go to 999
-10 word=word(i:)
- go to 999
-
-20 if(n.ge.267796946) go to 999
-
-! We have a JT65v2 message
- if((n.ge.262178563) .and. (n.le.264002071)) Then
-! CQ with prefix
- iv2=1
- n=n-262178563
- i=mod(n,37)+1
- psfx(4:4)=c(i:i)
- n=n/37
- i=mod(n,37)+1
- psfx(3:3)=c(i:i)
- n=n/37
- i=mod(n,37)+1
- psfx(2:2)=c(i:i)
- n=n/37
- i=n+1
- psfx(1:1)=c(i:i)
- endif
-
- if((n.ge.264002072) .and. (n.le.265825580)) Then
-! QRZ with prefix
- iv2=2
- n=n-264002072
- i=mod(n,37)+1
- psfx(4:4)=c(i:i)
- n=n/37
- i=mod(n,37)+1
- psfx(3:3)=c(i:i)
- n=n/37
- i=mod(n,37)+1
- psfx(2:2)=c(i:i)
- n=n/37
- i=n+1
- psfx(1:1)=c(i:i)
- endif
-
- if((n.ge.265825581) .and. (n.le.267649089)) Then
-! DE with prefix
- iv2=3
- n=n-265825581
- i=mod(n,37)+1
- psfx(4:4)=c(i:i)
- n=n/37
- i=mod(n,37)+1
- psfx(3:3)=c(i:i)
- n=n/37
- i=mod(n,37)+1
- psfx(2:2)=c(i:i)
- n=n/37
- i=n+1
- psfx(1:1)=c(i:i)
- endif
-
- if((n.ge.267649090) .and. (n.le.267698374)) Then
-! CQ with suffix
- iv2=4
- n=n-267649090
- i=mod(n,37)+1
- psfx(3:3)=c(i:i)
- n=n/37
- i=mod(n,37)+1
- psfx(2:2)=c(i:i)
- n=n/37
- i=n+1
- psfx(1:1)=c(i:i)
- endif
-
- if((n.ge.267698375) .and. (n.le.267747659)) Then
-! QRZ with suffix
- iv2=5
- n=n-267698375
- i=mod(n,37)+1
- psfx(3:3)=c(i:i)
- n=n/37
- i=mod(n,37)+1
- psfx(2:2)=c(i:i)
- n=n/37
- i=n+1
- psfx(1:1)=c(i:i)
- endif
-
- if((n.ge.267747660) .and. (n.le.267796944)) Then
-! DE with suffix
- iv2=6
- n=n-267747660
- i=mod(n,37)+1
- psfx(3:3)=c(i:i)
- n=n/37
- i=mod(n,37)+1
- psfx(2:2)=c(i:i)
- n=n/37
- i=n+1
- psfx(1:1)=c(i:i)
- endif
-
- if(n.eq.267796945) Then
-! DE with no prefix or suffix
- iv2=7
- psfx = ' '
- endif
-
-999 if(word(1:3).eq.'3D0') word='3DA0'//word(4:)
-
- return
-end subroutine unpackcall
diff --git a/lib/unpackgrid.f90 b/lib/unpackgrid.f90
deleted file mode 100644
index 84dc744..0000000
--- a/lib/unpackgrid.f90
+++ /dev/null
@@ -1,45 +0,0 @@
-subroutine unpackgrid(ng,grid)
-
- parameter (NGBASE=180*180)
- character grid*4,grid6*6
-
- grid=' '
- if(ng.ge.32400) go to 10
- dlat=mod(ng,180)-90
- dlong=(ng/180)*2 - 180 + 2
- call deg2grid(dlong,dlat,grid6)
- grid=grid6(:4)
- if(grid(1:2).eq.'KA') then
- read(grid(3:4),*) n
- n=n-50
- write(grid,1001) n
-1001 format(i3.2)
- if(grid(1:1).eq.' ') grid(1:1)='+'
- else if(grid(1:2).eq.'LA') then
- read(grid(3:4),*) n
- n=n-50
- write(grid,1002) n
-1002 format('R',i3.2)
- if(grid(2:2).eq.' ') grid(2:2)='+'
- endif
- go to 900
-
-10 n=ng-NGBASE-1
- if(n.ge.1 .and.n.le.30) then
- write(grid,1012) -n
-1012 format(i3.2)
- else if(n.ge.31 .and.n.le.60) then
- n=n-30
- write(grid,1022) -n
-1022 format('R',i3.2)
- else if(n.eq.61) then
- grid='RO'
- else if(n.eq.62) then
- grid='RRR'
- else if(n.eq.63) then
- grid='73'
- endif
-
-900 return
-end subroutine unpackgrid
-
diff --git a/lib/unpackmsg.f90 b/lib/unpackmsg.f90
deleted file mode 100644
index aca7cfc..0000000
--- a/lib/unpackmsg.f90
+++ /dev/null
@@ -1,107 +0,0 @@
-subroutine unpackmsg(dat,msg)
-
- parameter (NBASE=37*36*10*27*27*27)
- parameter (NGBASE=180*180)
- integer dat(12)
- character c1*12,c2*12,grid*4,msg*22,grid6*6,psfx*4,junk2*4
- logical cqnnn
-
- cqnnn=.false.
- nc1=ishft(dat(1),22) + ishft(dat(2),16) + ishft(dat(3),10)+ &
- ishft(dat(4),4) + iand(ishft(dat(5),-2),15)
-
- nc2=ishft(iand(dat(5),3),26) + ishft(dat(6),20) + &
- ishft(dat(7),14) + ishft(dat(8),8) + ishft(dat(9),2) + &
- iand(ishft(dat(10),-4),3)
-
- ng=ishft(iand(dat(10),15),12) + ishft(dat(11),6) + dat(12)
-
- if(ng.ge.32768) then
- call unpacktext(nc1,nc2,ng,msg)
- go to 100
- endif
-
- call unpackcall(nc1,c1,iv2,psfx)
- if(iv2.eq.0) then
-! This is an "original JT65" message
- if(nc1.eq.NBASE+1) c1='CQ '
- if(nc1.eq.NBASE+2) c1='QRZ '
- nfreq=nc1-NBASE-3
- if(nfreq.ge.0 .and. nfreq.le.999) then
- write(c1,1002) nfreq
-1002 format('CQ ',i3.3)
- cqnnn=.true.
- endif
- endif
-
- call unpackcall(nc2,c2,junk1,junk2)
- call unpackgrid(ng,grid)
-
- if(iv2.gt.0) then
-! This is a JT65v2 message
- do i=1,4
- if(ichar(psfx(i:i)).eq.0) psfx(i:i)=' '
- enddo
-
- n1=len_trim(psfx)
- n2=len_trim(c2)
- if(iv2.eq.1) msg='CQ '//psfx(:n1)//'/'//c2(:n2)//' '//grid
- if(iv2.eq.2) msg='QRZ '//psfx(:n1)//'/'//c2(:n2)//' '//grid
- if(iv2.eq.3) msg='DE '//psfx(:n1)//'/'//c2(:n2)//' '//grid
- if(iv2.eq.4) msg='CQ '//c2(:n2)//'/'//psfx(:n1)//' '//grid
- if(iv2.eq.5) msg='QRZ '//c2(:n2)//'/'//psfx(:n1)//' '//grid
- if(iv2.eq.6) msg='DE '//c2(:n2)//'/'//psfx(:n1)//' '//grid
- if(iv2.eq.7) msg='DE '//c2(:n2)//' '//grid
- go to 100
- else
-
- endif
-
- grid6=grid//'ma'
- call grid2k(grid6,k)
- if(k.ge.1 .and. k.le.450) call getpfx2(k,c1)
- if(k.ge.451 .and. k.le.900) call getpfx2(k,c2)
-
- i=index(c1,char(0))
- if(i.ge.3) c1=c1(1:i-1)//' '
- i=index(c2,char(0))
- if(i.ge.3) c2=c2(1:i-1)//' '
-
- msg=' '
- j=0
- if(cqnnn) then
- msg=c1//' '
- j=7 !### ??? ###
- go to 10
- endif
-
- do i=1,12
- j=j+1
- msg(j:j)=c1(i:i)
- if(c1(i:i).eq.' ') go to 10
- enddo
- j=j+1
- msg(j:j)=' '
-
-10 do i=1,12
- if(j.le.21) j=j+1
- msg(j:j)=c2(i:i)
- if(c2(i:i).eq.' ') go to 20
- enddo
- if(j.le.21) j=j+1
- msg(j:j)=' '
-
-20 if(k.eq.0) then
- do i=1,4
- if(j.le.21) j=j+1
- msg(j:j)=grid(i:i)
- enddo
- if(j.le.21) j=j+1
- msg(j:j)=' '
- endif
-
-100 continue
- if(msg(1:6).eq.'CQ9DX ') msg(3:3)=' '
-
- return
-end subroutine unpackmsg
diff --git a/lib/unpacktext.f90 b/lib/unpacktext.f90
deleted file mode 100644
index 62451f9..0000000
--- a/lib/unpacktext.f90
+++ /dev/null
@@ -1,35 +0,0 @@
-subroutine unpacktext(nc1,nc2,nc3,msg)
-
- character*22 msg
- character*44 c
- data c/'0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ +-./?'/
-
- nc3=iand(nc3,32767) !Remove the "plain text" bit
- if(iand(nc1,1).ne.0) nc3=nc3+32768
- nc1=nc1/2
- if(iand(nc2,1).ne.0) nc3=nc3+65536
- nc2=nc2/2
-
- do i=5,1,-1
- j=mod(nc1,42)+1
- msg(i:i)=c(j:j)
- nc1=nc1/42
- enddo
-
- do i=10,6,-1
- j=mod(nc2,42)+1
- msg(i:i)=c(j:j)
- nc2=nc2/42
- enddo
-
- do i=13,11,-1
- j=mod(nc3,42)+1
- msg(i:i)=c(j:j)
- nc3=nc3/42
- enddo
- msg(14:22) = ' '
-
- return
-end subroutine unpacktext
-
-
diff --git a/lib/vit216.c b/lib/vit216.c
deleted file mode 100644
index 38984d2..0000000
--- a/lib/vit216.c
+++ /dev/null
@@ -1,219 +0,0 @@
-/* Viterbi decoder for arbitrary convolutional code
- * viterbi27 and viterbi37 for the r=1/2 and r=1/3 K=7 codes are faster
- * Copyright 1999 Phil Karn, KA9Q
- * May be used under the terms of the GNU Public License
- */
-
-/* Select code here */
-
-#define V216
-
-
-#ifdef V216
-#define K 16 /* Constraint length */
-#define N 2 /* Number of symbols per data bit */
-#define Polys Poly216 /* Select polynomials here */
-#endif
-
-/* Rate 1/2 codes */
-unsigned int Poly216[] = {0126723, 0152711}; /* k = 16 */
-
-#include <memory.h>
-#define NULL ((void *)0)
-
-#define LONGBITS 32
-#define LOGLONGBITS 5
-
-#undef max
-#define max(x,y) ((x) > (y) ? (x) : (y))
-#define D (1 << max(0,K-LOGLONGBITS-1))
-#define MAXNBITS 200 /* Maximum frame size (user bits) */
-
-extern unsigned char Partab[]; /* Parity lookup table */
-
-int Syms[1 << K];
-int VDInit = 0;
-
-int parity(int x)
-{
- x ^= (x >> 16);
- x ^= (x >> 8);
- return Partab[x & 0xff];
-}
-
-// Wrapper for calling "encode" from Fortran:
-//void __stdcall ENCODE(
-void enc216_(
-unsigned char data[], // User data, 8 bits per byte
-int *nbits, // Number of user bits
-unsigned char symbols[], // Encoded one-bit symbols, 8 per byte
-int *nsymbols, // Number of symbols
-int *kk, // K
-int *nn) // N
-{
- int nbytes;
- nbytes=(*nbits+7)/8; // Always encode multiple of 8 information bits
- enc216(symbols,data,nbytes,0,0); // Do the encoding
- *nsymbols=(*nbits+K-1)*N; // Return number of encoded symbols
- *kk=K;
- *nn=N;
-}
-
-/* Convolutionally encode data into binary symbols */
- enc216(unsigned char symbols[], unsigned char data[],
- unsigned int nbytes, unsigned int startstate,
- unsigned int endstate)
-{
- int i,j,k,n=-1;
- unsigned int encstate = startstate;
-
- for(k=0; k<nbytes; k++) {
- for(i=7;i>=0;i--){
- encstate = (encstate + encstate) + ((data[k] >> i) & 1);
- for(j=0;j<N;j++) {
- n=n+1;
- symbols[n] = parity(encstate & Polys[j]);
- }
- }
- }
- // Flush out with zero tail. (No need, if tail-biting code.)
- for(i=0; i<K-1;i++){
- encstate = (encstate << 1) | ((endstate >> i) & 1);
- for(j=0;j<N;j++) {
- n=n+1;
- symbols[n] = parity(encstate & Polys[j]);
- }
- }
- return 0;
-}
-
-// Wrapper for calling "viterbi" from Fortran:
-//void __stdcall VITERBI(
-void vit216_(
-unsigned char symbols[], /* Raw deinterleaved input symbols */
-unsigned int *Nbits, /* Number of decoded information bits */
-int mettab[2][256], /* Metric table, [sent sym][rx symbol] */
-unsigned char ddec[], /* Decoded output data */
-long *Metric /* Final path metric (bigger is better) */
-){
- long metric;
- vit216(&metric,ddec,symbols,*Nbits,mettab,0,0);
- *Metric=metric;
-}
-
-/* Viterbi decoder */
-int vit216(
-long *metric, /* Final path metric (returned value) */
-unsigned char *data, /* Decoded output data */
-unsigned char *symbols, /* Raw deinterleaved input symbols */
-unsigned int nbits, /* Number of output bits */
-int mettab[2][256], /* Metric table, [sent sym][rx symbol] */
-unsigned int startstate, /* Encoder starting state */
-unsigned int endstate /* Encoder ending state */
-){
- int bitcnt = -(K-1);
- long m0,m1;
- int i,j,sym,ipp;
- int mets[1 << N];
- unsigned long paths[(MAXNBITS+K-1)*D];
- unsigned long *pp,mask;
- long cmetric[1 << (K-1)],nmetric[1 << (K-1)];
-
- memset(paths,0,sizeof(paths));
-
- // Initialize on first time through:
- if(!VDInit){
- for(i=0;i<(1<<K);i++){
- sym = 0;
- for(j=0;j<N;j++)
- sym = (sym << 1) + parity(i & Polys[j]);
- Syms[i] = sym;
- }
- VDInit++;
- }
-
- // Keep only lower K-1 bits of specified startstate and endstate
- startstate &= ~((1<<(K-1)) - 1);
- endstate &= ~((1<<(K-1)) - 1);
-
- /* Initialize starting metrics */
- for(i=0;i< 1<<(K-1);i++)
- cmetric[i] = -999999;
- cmetric[startstate] = 0;
-
- pp = paths;
- ipp=0;
- for(;;){ /* For each data bit */
- /* Read input symbols and compute branch metrics */
- for(i=0;i< 1<<N;i++){
- mets[i] = 0;
- for(j=0;j<N;j++){
- mets[i] += mettab[(i >> (N-j-1)) & 1][symbols[j]];
- }
- }
- symbols += N;
- /* Run the add-compare-select operations */
- mask = 1;
- for(i=0;i< 1 << (K-1);i+=2){
- int b1,b2;
-
- b1 = mets[Syms[i]];
- nmetric[i] = m0 = cmetric[i/2] + b1;
- b2 = mets[Syms[i+1]];
- b1 -= b2;
- m1 = cmetric[(i/2) + (1<<(K-2))] + b2;
-
- if(m1 > m0){
- nmetric[i] = m1;
- *pp |= mask;
- }
-
- m0 -= b1;
- nmetric[i+1] = m0;
- m1 += b1;
-
- if(m1 > m0){
- nmetric[i+1] = m1;
- *pp |= mask << 1;
- }
-
- mask <<= 2;
- if(mask == 0){
- mask = 1;
- pp++;
- ipp++;
- }
- }
- if(mask != 1){
- pp++;
- ipp++;
- }
- if(++bitcnt == nbits){
- *metric = nmetric[endstate];
- break;
- }
- memcpy(cmetric,nmetric,sizeof(cmetric));
- }
-
- /* Chain back from terminal state to produce decoded data */
- if(data == NULL)
- return 0;/* Discard output */
- memset(data,0,(nbits+7)/8); /* round up in case nbits % 8 != 0 */
-
- for(i=nbits-1;i >= 0;i--){
- // int a0,a1;
- pp -= D;
- ipp -= D;
- m0=endstate >> LOGLONGBITS;
- m1=1L << (endstate & (LONGBITS-1));
- if(pp[m0] & m1) {
- // a0=nmetric[endstate];
- endstate |= (1 << (K-1));
- // a1=nmetric[endstate];
- data[i>>3] |= 0x80 >> (i&7);
- // printf("B %d %d %d %d\n",*metric,i,a0,a1);
- }
- endstate >>= 1;
- }
- return 0;
-}
diff --git a/lib/wrapkarn.c b/lib/wrapkarn.c
deleted file mode 100644
index 1b1a631..0000000
--- a/lib/wrapkarn.c
+++ /dev/null
@@ -1,70 +0,0 @@
-#include <math.h>
-#include <stdio.h>
-#include <float.h>
-#include <limits.h>
-#include <stdlib.h>
-#include "rs.h"
-
-static void *rs;
-static int first=1;
-
-void rs_encode_(int *dgen, int *sent)
-// Encode JT65 data dgen[12], producing sent[63].
-{
- int dat1[12];
- int b[51];
- int i;
-
- if(first) {
- // Initialize the JT65 codec
- rs=init_rs_int(6,0x43,3,1,51,0);
- first=0;
- }
-
- // Reverse data order for the Karn codec.
- for(i=0; i<12; i++) {
- dat1[i]=dgen[11-i];
- }
- // Compute the parity symbols
- encode_rs_int(rs,dat1,b);
-
- // Move parity symbols and data into sent[] array, in reverse order.
- for (i = 0; i < 51; i++) sent[50-i] = b[i];
- for (i = 0; i < 12; i++) sent[i+51] = dat1[11-i];
-}
-
-void rs_decode_(int *recd0, int *era0, int *numera0, int *decoded, int *nerr)
-// Decode JT65 received data recd0[63], producing decoded[12].
-// Erasures are indicated in era0[numera]. The number of corrected
-// errors is *nerr. If the data are uncorrectable, *nerr=-1 is returned.
-{
- int numera;
- int i;
- int era_pos[50];
- int recd[63];
-
- if(first) {
- rs=init_rs_int(6,0x43,3,1,51,0);
- first=0;
- }
-
- numera=*numera0;
- for(i=0; i<12; i++) recd[i]=recd0[62-i];
- for(i=0; i<51; i++) recd[12+i]=recd0[50-i];
- if(numera)
- for(i=0; i<numera; i++) era_pos[i]=era0[i];
- *nerr=decode_rs_int(rs,recd,era_pos,numera);
- for(i=0; i<12; i++) decoded[i]=recd[11-i];
-}
-
-
-void rs_encode__(int *dgen, int *sent)
-{
- rs_encode_(dgen, sent);
-}
-
-void rs_decode__(int *recd0, int *era0, int *numera0, int *decoded, int *nerr)
-{
- rs_decode_(recd0, era0, numera0, decoded, nerr);
-}
-
diff --git a/lib/wsjt24.f90 b/lib/wsjt24.f90
deleted file mode 100644
index 574f1dd..0000000
--- a/lib/wsjt24.f90
+++ /dev/null
@@ -1,181 +0,0 @@
-subroutine wsjt24(dat,npts,cfile6,NClearAve,MinSigdB, &
- DFTolerance,NFreeze,mode,mode4,Nseg,MouseDF,NAgain, &
- idf,lumsg,lcum,nspecial,ndf,NSyncOK,ccfblue,ccfred,ndiag)
-
-! Orchestrates the process of decoding JT4 messages, using data that
-! have been 2x downsampled.
-! No message averaging and no deep search, at present.
-
- parameter (MAXAVE=120)
- real dat(npts) !Raw data
- real*4 ccfblue(-5:540) !CCF in time
- real*4 ccfred(-224:224) !CCF in frequency
- integer DFTolerance
- logical first
- logical lcum
- character decoded*22,cfile6*6,special*5,cooo*3
- character*22 avemsg1,avemsg2,deepmsg
- character*77 line,ave1,ave2
- character*1 csync,c1
- character*12 mycall
- character*12 hiscall
- character*6 hisgrid
- character submode*1
- real*4 ccfbluesum(-5:540),ccfredsum(-224:224)
- common/ave/ppsave(207,7,MAXAVE),nflag(MAXAVE),nsave,iseg(MAXAVE)
- data first/.true./,ns10/0/,ns20/0/
- save
-
- if(first) then
- nsave=0
- first=.false.
- ave1=' '
- ave2=' '
- ccfblue=0.
- ccfred=0.
- if(nspecial.eq.999) go to 900 !Silence compiler warning
- endif
-
- ndepth=3 !###
- naggressive=0
- if(ndepth.ge.2) naggressive=1
- nq1=3
- nq2=6
- if(naggressive.eq.1) nq1=1
-
- if(NClearAve.ne.0) then
- nsave=0 !Clear the averaging accumulators
- ns10=0
- ns20=0
- ave1=' '
- ave2=' '
- endif
- if(MinSigdB.eq.99 .or. MinSigdB.eq.-99) then
- ns10=0 !For Include/Exclude ?
- ns20=0
- endif
-
-! Attempt to synchronize: look for sync pattern, get DF and DT.
- call sync24(dat,npts,DFTolerance,NFreeze,MouseDF,mode, &
- mode4,dtx,dfx,snrx,snrsync,ccfblue,ccfred,flip,width)
-
- csync=' '
- decoded=' '
- deepmsg=' '
- special=' '
- cooo=' '
- ncount=-1 !Flag for RS decode of current record
- ncount1=-1 !Flag for RS Decode of ave1
- ncount2=-1 !Flag for RS Decode of ave2
- NSyncOK=0
- nqual1=0
- nqual2=0
-
- if(nsave.lt.MAXAVE .and. (NAgain.eq.0 .or. NClearAve.eq.1)) nsave=nsave+1
- if(nsave.le.0) go to 900 !Prevent bounds error
-
- nflag(nsave)=0 !Clear the "good sync" flag
- iseg(nsave)=Nseg !Set the RX segment to 1 or 2
- nsync=nint(snrsync-3.0)
- nsnr=nint(snrx)
- if(nsnr.lt.-30 .or. nsync.lt.0) nsync=0
- nsnrlim=-33
- if(nsync.lt.MinSigdB .or. nsnr.lt.nsnrlim) go to 200
-
-! If we get here, we have achieved sync!
- NSyncOK=1
- nflag(nsave)=1 !Mark this RX file as good
- csync='*'
- if(flip.lt.0.0) then
- csync='#'
- cooo='O ?'
- endif
-
- call decode24(dat,npts,dtx,dfx,flip,mode,mode4,decoded, &
- ncount,deepmsg,qual,submode)
-
-200 kvqual=0
- if(ncount.ge.0) kvqual=1
- nqual=qual
- if(ndiag.eq.0 .and. nqual.gt.10) nqual=10
- if(nqual.ge.nq1 .and.kvqual.eq.0) decoded=deepmsg
-
- ndf=nint(dfx)
- if(flip.lt.0.0 .and. (kvqual.eq.1 .or. nqual.ge.nq2)) cooo='OOO'
- if(kvqual.eq.0.and.nqual.ge.nq1.and.nqual.lt.nq2) cooo(2:3)=' ?'
- if(decoded.eq.' ') cooo=' '
- do i=1,22
- c1=decoded(i:i)
- if(c1.ge.'a' .and. c1.le.'z') decoded(i:i)=char(ichar(c1)-32)
- enddo
- jdf=ndf+idf
-
-! call cs_lock('wsjt24')
- write(line,1010) cfile6,nsync,nsnr,dtx-1.0,jdf,nint(width), &
- csync,special,decoded(1:19),cooo,kvqual,nqual,submode
-1010 format(a6,i3,i5,f5.1,i5,i3,1x,a1,1x,a5,a19,1x,a3,i3,i5,1x,a1)
-
-! Blank all end-of-line stuff if no decode
- if(line(31:40).eq.' ') line=line(:30)
-
- if(lcum) write(21,1011) line
-
-! Write decoded msg unless this is an "Exclude" request:
- if(MinSigdB.lt.99) write(*,1011) line
-1011 format(a77)
-
- if(nsave.ge.1) call avemsg4(1,mode4,ndepth, &
- avemsg1,nused1,nq1,nq2,neme,mycall,hiscall,hisgrid,qual1, &
- ns1,ncount1)
- if(nsave.ge.1) call avemsg4(2,mode4,ndepth, &
- avemsg2,nused2,nq1,nq2,neme,mycall,hiscall,hisgrid,qual2, &
- ns2,ncount2)
- nqual1=qual1
- nqual2=qual2
- if(ndiag.eq.0 .and. nqual1.gt.10) nqual1=10
- if(ndiag.eq.0 .and. nqual2.gt.10) nqual2=10
- nc1=0
- nc2=0
- if(ncount1.ge.0) nc1=1
- if(ncount2.ge.0) nc2=1
-
-! Write the average line
- if(ns1.ge.1) then
- if(ns1.lt.10) write(ave1,1021) cfile6,1,nused1,ns1,avemsg1,nc1,nqual1
-1021 format(a6,i3,i4,'/',i1,20x,a19,i7,i5)
- if(ns1.ge.10 .and. nsave.le.99) write(ave1,1022) cfile6, &
- 1,nused1,ns1,avemsg1,nc1,nqual1
-1022 format(a6,i3,i4,'/',i2,19x,a19,i7,i5)
- if(ns1.ge.100) write(ave1,1023) cfile6,1,nused1,ns1, &
- avemsg1,nc1,nqual1
-1023 format(a6,i3,i4,'/',i3,18x,a19,i7,i5)
- if(lcum .and. (avemsg1.ne.' ')) &
- write(21,1011) ave1
- ns10=ns1
- endif
-
-! If Monitor segment #2 is available, write that line also
- if(ns2.ge.1) then
- if(ns2.lt.10) write(ave2,1021) cfile6,2,nused2,ns2,avemsg2,nc2,nqual2
- if(ns2.ge.10 .and. nsave.le.99) write(ave2,1022) cfile6, &
- 2,nused2,ns2,avemsg2,nc2,nqual2
- if(ns2.ge.100) write(ave2,1023) cfile6,2,nused2,ns2,avemsg2,nc2,nqual2
- if(lcum .and. (avemsg2.ne.' ')) &
- write(21,1011) ave2
- ns20=ns2
- endif
-
- if(ave1(31:40).eq.' ') ave1=ave1(:30)
- if(ave2(31:40).eq.' ') ave2=ave2(:30)
- write(12,1011) ave1
- write(12,1011) ave2
- call flush(12)
-! call cs_unlock
-
-900 continue
-
- ccfbluesum=ccfbluesum + ccfblue
- ccfredsum=ccfredsum + ccfred
-
- return
-end subroutine wsjt24
diff --git a/lib/wsjt24d.f90 b/lib/wsjt24d.f90
deleted file mode 100644
index 005e809..0000000
--- a/lib/wsjt24d.f90
+++ /dev/null
@@ -1,43 +0,0 @@
-program wsjt24d
-
- real*4 dat(60*11025/2)
- character*6 cfile6
- character*12 arg
- real ccfblue(-5:540) !X-cor function in JT65 mode (blue line)
- real ccfred(450) !Average spectrum of the whole file
- integer dftolerance
-
- nargs=iargc()
- if(nargs.ne.2) then
- print*,'Usage: wspr24d ifile1 ifile2'
- go to 999
- endif
- call getarg(1,arg)
- read(arg,*) ifile1
- call getarg(2,arg)
- read(arg,*) ifile2
-
- open(23,file='CALL3.TXT',status='old')
- open(50,file='vk7mo.dat',form='unformatted',status='old')
-
- do ifile=1,ifile2
- read(50,end=999) jz,cfile6,NClearAve,MinSigdB,DFTolerance,NFreeze, &
- mode,mode4,Nseg,MouseDF2,NAgain,idf,lumsg,lcum,nspecial,ndf, &
- NSyncOK,dat(1:jz)
- if(ifile.lt.ifile1) cycle
-
-! write(*,3000) ifile,cfile6,jz,mode,mode4,idf
-!3000 format(i3,2x,a6,i10,3i5)
-
- dftolerance=100
- nfreeze=1
- neme=0
-
-! call wsjt24(dat(4097),jz-4096,cfile6,NClearAve,MinSigdB,DFTolerance, &
- call wsjt24(dat,jz,cfile6,NClearAve,MinSigdB,DFTolerance, &
- NFreeze,mode,mode4,Nseg,MouseDF2,NAgain,idf,lumsg,lcum,nspecial, &
- ndf,NSyncOK,ccfblue,ccfred,ndiag)
- if(ifile.ge.ifile2) exit
- enddo
-
-999 end program wsjt24d
diff --git a/lib/xcor24.f90 b/lib/xcor24.f90
deleted file mode 100644
index b76093b..0000000
--- a/lib/xcor24.f90
+++ /dev/null
@@ -1,94 +0,0 @@
-subroutine xcor24(s2,ipk,nsteps,nsym,lag1,lag2,mode4,ccf,ccf0,lagpk,flip)
-
-! Computes ccf of a row of s2 and the pseudo-random array pr2. Returns
-! peak of the CCF and the lag at which peak occurs. For JT65, the
-! CCF peak may be either positive or negative, with negative implying
-! the "OOO" message.
-
- parameter (NHMAX=1260) !Max length of power spectra
- parameter (NSMAX=525) !Max number of half-symbol steps
- real s2(NHMAX,NSMAX) !2d spectrum, stepped by half-symbols
- real a(NSMAX)
- real ccf(-5:540)
- integer npr2(207)
- real pr2(207)
- logical first
- data lagmin/0/ !Silence g77 warning
- data first/.true./
- data npr2/ &
- 0,0,0,0,1,1,0,0,0,1,1,0,1,1,0,0,1,0,1,0,0,0,0,0,0,0,1,1,0,0, &
- 0,0,0,0,0,0,0,0,0,0,1,0,1,1,0,1,1,0,1,0,1,1,1,1,1,0,1,0,0,0, &
- 1,0,0,1,0,0,1,1,1,1,1,0,0,0,1,0,1,0,0,0,1,1,1,1,0,1,1,0,0,1, &
- 0,0,0,1,1,0,1,0,1,0,1,0,1,0,1,1,1,1,1,0,1,0,1,0,1,1,0,1,0,1, &
- 0,1,1,1,0,0,1,0,1,1,0,1,1,1,1,0,0,0,0,1,1,0,1,1,0,0,0,1,1,1, &
- 0,1,1,1,0,1,1,1,0,0,1,0,0,0,1,1,0,1,1,0,0,1,0,0,0,1,1,1,1,1, &
- 1,0,0,1,1,0,0,0,0,1,1,0,0,0,1,0,1,1,0,1,1,1,1,0,1,0,1/
- save
-
- if(first) then
- do i=1,207
- pr2(i)=2*npr2(i)-1
- enddo
- first=.false.
- endif
-
- do j=1,nsteps
- n=2*mode4
- if(mode4.eq.1) then
- a(j)=max(s2(ipk+n,j),s2(ipk+3*n,j)) - max(s2(ipk ,j),s2(ipk+2*n,j))
- else
- kz=mode4/2
- ss0=0.
- ss1=0.
- ss2=0.
- ss3=0.
- wsum=0.
- do k=-kz+1,kz-1
- w=float(kz-iabs(k))/mode4
- wsum=wsum+w
- if(ipk+k.lt.1 .or. ipk+3*n+k.gt.1260) then
- print*,'xcor24:',ipk,n,k
- else
- ss0=ss0 + w*s2(ipk +k,j)
- ss1=ss1 + w*s2(ipk+ n+k,j)
- ss2=ss2 + w*s2(ipk+2*n+k,j)
- ss3=ss3 + w*s2(ipk+3*n+k,j)
- endif
- enddo
- a(j)=(max(ss1,ss3) - max(ss0,ss2))/sqrt(wsum)
- endif
- enddo
-
- ccfmax=0.
- ccfmin=0.
- do lag=lag1,lag2
- x=0.
- do i=1,nsym
- j=2*i-1+lag
- if(j.ge.1 .and. j.le.nsteps) x=x+a(j)*pr2(i)
- enddo
- ccf(lag)=2*x !The 2 is for plotting scale
- if(ccf(lag).gt.ccfmax) then
- ccfmax=ccf(lag)
- lagpk=lag
- endif
-
- if(ccf(lag).lt.ccfmin) then
- ccfmin=ccf(lag)
- lagmin=lag
- endif
- enddo
-
- ccf0=ccfmax
- flip=1.0
- if(-ccfmin.gt.ccfmax) then
- do lag=lag1,lag2
- ccf(lag)=-ccf(lag)
- enddo
- lagpk=lagmin
- ccf0=-ccfmin
- flip=-1.0
- endif
-
- return
-end subroutine xcor24
diff --git a/lib/zplot9.f90 b/lib/zplot9.f90
deleted file mode 100644
index 6c56c9f..0000000
--- a/lib/zplot9.f90
+++ /dev/null
@@ -1,31 +0,0 @@
-subroutine zplot9(s,freq,drift)
-
- real s(0:8,85)
- character*1 line(85),mark(0:6)
- data mark/' ',' ','.','-','+','X','$'/
- include 'jt9sync.f90'
-
- write(32,1000) freq,drift
-1000 format('Freq:',f7.1,' Drift:',f5.1,' ',60('-'))
- do j=8,0,-1
- do i=1,85
- n=(s(j,i))
- if(n.lt.0) n=0
- if(n.gt.6) n=6
- line(i)=mark(n)
- enddo
- write(32,1010) j,line
-1010 format(i1,1x,85a1)
- enddo
- do i=1,85
- line(i)=' '
- if(isync(i).eq.1) line(i)='@'
- enddo
- write(32,1015)
-1015 format(87('-'))
- write(32,1020) line
-1020 format(2x,85a1)
- call flush(32)
-
- return
-end subroutine zplot9
diff --git a/logqso.cpp b/logqso.cpp
deleted file mode 100644
index f5690a1..0000000
--- a/logqso.cpp
+++ /dev/null
@@ -1,174 +0,0 @@
-#include "logqso.h"
-#include "ui_logqso.h"
-#include <QString>
-#include <QDebug>
-
-
-LogQSO::LogQSO(QWidget *parent) :
- QDialog(parent),
- ui(new Ui::LogQSO)
-{
- ui->setupUi(this);
-}
-
-LogQSO::~LogQSO()
-{
- delete ui;
-}
-
-void LogQSO::initLogQSO(QString hisCall, QString hisGrid, QString mode,
- QString rptSent, QString rptRcvd, QDateTime dateTime,
- double dialFreq, QString myCall, QString myGrid,
- bool noSuffix, bool toRTTY, bool dBtoComments)
-{
- ui->call->setText(hisCall);
- ui->grid->setText(hisGrid);
- ui->txPower->setText("");
- ui->comments->setText("");
- if(m_saveTxPower) ui->txPower->setText(m_txPower);
- if(m_saveComments) ui->comments->setText(m_comments);
- if(dBtoComments) {
- QString t=mode;
- if(rptSent!="") t+=" Sent: " + rptSent;
- if(rptRcvd!="") t+=" Rcvd: " + rptRcvd;
- ui->comments->setText(t);
- }
- if(noSuffix and mode.mid(0,3)=="JT9") mode="JT9";
- if(toRTTY and mode.mid(0,3)=="JT9") mode="RTTY";
- ui->mode->setText(mode);
- ui->sent->setText(rptSent);
- ui->rcvd->setText(rptRcvd);
- m_dateTime=dateTime;
- QString date=dateTime.toString("yyyy-MM-dd");
- ui->date->setText(date);
- QString time=dateTime.toString("hhmm");
- ui->time->setText(time);
- m_dialFreq=dialFreq;
- m_myCall=myCall;
- m_myGrid=myGrid;
- QString band="";
- if(dialFreq>0.135 and dialFreq<0.139) band="2200m";
- if(dialFreq>0.45 and dialFreq<0.55) band="630m";
- if(dialFreq>1.8 and dialFreq<2.0) band="160m";
- if(dialFreq>3.5 and dialFreq<4.0) band="80m";
- if(dialFreq>5.1 and dialFreq<5.45) band="60m";
- if(dialFreq>7.0 and dialFreq<7.3) band="40m";
- if(dialFreq>10.0 and dialFreq<10.15) band="30m";
- if(dialFreq>14.0 and dialFreq<14.35) band="20m";
- if(dialFreq>18.068 and dialFreq<18.168) band="17m";
- if(dialFreq>21.0 and dialFreq<21.45) band="15m";
- if(dialFreq>24.890 and dialFreq<24.990) band="12m";
- if(dialFreq>28.0 and dialFreq<29.7) band="10m";
- if(dialFreq>50.0 and dialFreq<54.0) band="6m";
- if(dialFreq>70.0 and dialFreq<71.0) band="4m";
- if(dialFreq>144.0 and dialFreq<148.0) band="2m";
- if(dialFreq>222.0 and dialFreq<225.0) band="1.25m";
- if(dialFreq>420.0 and dialFreq<450.0) band="70cm";
- if(dialFreq>902.0 and dialFreq<928.0) band="33cm";
- if(dialFreq>1240.0 and dialFreq<1300.0) band="23cm";
- if(dialFreq>2300.0 and dialFreq<2450.0) band="13cm";
- if(dialFreq>3300.0 and dialFreq<3500.0) band="9cm";
- if(dialFreq>5650.0 and dialFreq<5925.0) band="6cm";
- if(dialFreq>10000.0 and dialFreq<10500.0) band="3cm";
- if(dialFreq>24000.0 and dialFreq<24250.0) band="1.25cm";
- if(dialFreq>47000.0 and dialFreq<47200.0) band="6mm";
- if(dialFreq>75500.0 and dialFreq<81000.0) band="4mm";
- ui->band->setText(band);
- ui->cbTxPower->setChecked(m_saveTxPower);
- ui->cbComments->setChecked(m_saveComments);
-}
-
-void LogQSO::accept()
-{
- QString hisCall,hisGrid,mode,rptSent,rptRcvd,date,time,band;
- QString comments,name;
-
- hisCall=ui->call->text();
- hisGrid=ui->grid->text();
- mode=ui->mode->text();
- rptSent=ui->sent->text();
- rptRcvd=ui->rcvd->text();
- date=ui->date->text();
- date=date.mid(0,4) + date.mid(5,2) + date.mid(8,2);
- time=ui->time->text();
- band=ui->band->text();
- name=ui->name->text();
- m_txPower=ui->txPower->text();
- comments=ui->comments->text();
- m_comments=comments;
- QString strDialFreq(QString::number(m_dialFreq,'f',6));
-
-//Log this QSO to file "wsjtx_log.adi"
- QFile f2("wsjtx_log.adi");
- if(!f2.open(QIODevice::Text | QIODevice::Append)) {
- QMessageBox m;
- m.setText("Cannot open file \"wsjtx_log.adi\".");
- m.exec();
- } else {
- QTextStream out(&f2);
- if(f2.size()==0) out << "WSJT-X ADIF Export<eoh>" << endl;
-
- QString t;
- t="<call:" + QString::number(hisCall.length()) + ">" + hisCall;
- t+=" <gridsquare:" + QString::number(hisGrid.length()) + ">" + hisGrid;
- t+=" <mode:" + QString::number(mode.length()) + ">" + mode;
- t+=" <rst_sent:" + QString::number(rptSent.length()) + ">" + rptSent;
- t+=" <rst_rcvd:" + QString::number(rptRcvd.length()) + ">" + rptRcvd;
- t+=" <qso_date:8>" + date;
- t+=" <time_on:4>" + time;
- t+=" <band:" + QString::number(band.length()) + ">" + band;
- t+=" <freq:" + QString::number(strDialFreq.length()) + ">" + strDialFreq;
- t+=" <station_callsign:" + QString::number(m_myCall.length()) + ">" +
- m_myCall;
- t+=" <my_gridsquare:" + QString::number(m_myGrid.length()) + ">" +
- m_myGrid;
- if(m_txPower!="") t+= " <tx_pwr:" + QString::number(m_txPower.length()) +
- ">" + m_txPower;
- if(comments!="") t+=" <comment:" + QString::number(comments.length()) +
- ">" + comments;
- if(name!="") t+=" <name:" + QString::number(name.length()) +
- ">" + name;
- t+=" <eor>";
- out << t << endl;
- f2.close();
- }
-
-//Log this QSO to file "wsjtx.log"
- QFile f("wsjtx.log");
- if(!f.open(QIODevice::Text | QIODevice::Append)) {
- QMessageBox m;
- m.setText("Cannot open file \"wsjtx.log\".");
- m.exec();
- } else {
- QString logEntry=m_dateTime.date().toString("yyyy-MMM-dd,") +
- m_dateTime.time().toString("hh:mm,") + hisCall + "," +
- hisGrid + "," + strDialFreq + "," + mode +
- "," + rptSent + "," + rptRcvd;
- if(m_txPower!="") logEntry += "," + m_txPower;
- if(comments!="") logEntry += "," + comments;
- if(name!="") logEntry += "," + name;
- QTextStream out(&f);
- out << logEntry << endl;
- f.close();
- }
-
-//Clean up and finish logging
- emit(acceptQSO(true));
- QDialog::accept();
-}
-
-void LogQSO::reject()
-{
- emit(acceptQSO(false));
- QDialog::reject();
-}
-
-void LogQSO::on_cbTxPower_toggled(bool checked)
-{
- m_saveTxPower=checked;
-}
-
-void LogQSO::on_cbComments_toggled(bool checked)
-{
- m_saveComments=checked;
-}
diff --git a/logqso.h b/logqso.h
deleted file mode 100644
index 06b2edf..0000000
--- a/logqso.h
+++ /dev/null
@@ -1,53 +0,0 @@
-#ifndef LogQSO_H
-#define LogQSO_H
-
-#ifdef QT5
-#include <QtWidgets>
-#else
-#include <QtGui>
-#endif
-
-namespace Ui {
-class LogQSO;
-}
-
-class LogQSO : public QDialog
-{
- Q_OBJECT
-
-public:
- explicit LogQSO(QWidget *parent = 0);
- ~LogQSO();
- void initLogQSO(QString hisCall, QString hisGrid, QString mode,
- QString rptSent, QString rptRcvd, QDateTime dateTime,
- double dialFreq, QString myCall, QString myGrid,
- bool noSuffix, bool toRTTY, bool dBtoComments);
-
- double m_dialFreq;
-
- bool m_saveTxPower;
- bool m_saveComments;
-
- QString m_myCall;
- QString m_myGrid;
- QString m_txPower;
- QString m_comments;
-
- QDateTime m_dateTime;
-
-public slots:
- void accept();
- void reject();
-
-signals:
- void acceptQSO(bool accepted);
-
-private slots:
- void on_cbTxPower_toggled(bool checked);
- void on_cbComments_toggled(bool checked);
-
-private:
- Ui::LogQSO *ui;
-};
-
-#endif // LogQSO_H
diff --git a/logqso.ui b/logqso.ui
deleted file mode 100644
index a9c6fe9..0000000
--- a/logqso.ui
+++ /dev/null
@@ -1,759 +0,0 @@
-<?xml version="1.0" encoding="UTF-8"?>
-<ui version="4.0">
- <class>LogQSO</class>
- <widget class="QDialog" name="LogQSO">
- <property name="geometry">
- <rect>
- <x>0</x>
- <y>0</y>
- <width>372</width>
- <height>305</height>
- </rect>
- </property>
- <property name="maximumSize">
- <size>
- <width>16777215</width>
- <height>16777215</height>
- </size>
- </property>
- <property name="windowTitle">
- <string>Log QSO</string>
- </property>
- <layout class="QFormLayout" name="formLayout">
- <item row="0" column="0">
- <layout class="QVBoxLayout" name="verticalLayout">
- <item>
- <spacer name="verticalSpacer_3">
- <property name="orientation">
- <enum>Qt::Vertical</enum>
- </property>
- <property name="sizeType">
- <enum>QSizePolicy::MinimumExpanding</enum>
- </property>
- <property name="sizeHint" stdset="0">
- <size>
- <width>20</width>
- <height>10</height>
- </size>
- </property>
- </spacer>
- </item>
- <item>
- <widget class="QLabel" name="label">
- <property name="font">
- <font>
- <pointsize>10</pointsize>
- </font>
- </property>
- <property name="text">
- <string>Click OK to confirm the following QSO:</string>
- </property>
- </widget>
- </item>
- <item>
- <spacer name="verticalSpacer_4">
- <property name="orientation">
- <enum>Qt::Vertical</enum>
- </property>
- <property name="sizeType">
- <enum>QSizePolicy::MinimumExpanding</enum>
- </property>
- <property name="sizeHint" stdset="0">
- <size>
- <width>20</width>
- <height>10</height>
- </size>
- </property>
- </spacer>
- </item>
- <item>
- <layout class="QHBoxLayout" name="horizontalLayout_5">
- <item>
- <widget class="QLabel" name="lab1">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Fixed" vsizetype="Preferred">
- <horstretch>0</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="minimumSize">
- <size>
- <width>70</width>
- <height>0</height>
- </size>
- </property>
- <property name="maximumSize">
- <size>
- <width>70</width>
- <height>16777215</height>
- </size>
- </property>
- <property name="font">
- <font>
- <pointsize>10</pointsize>
- </font>
- </property>
- <property name="text">
- <string>Call</string>
- </property>
- <property name="alignment">
- <set>Qt::AlignCenter</set>
- </property>
- </widget>
- </item>
- <item>
- <widget class="QLabel" name="lab2">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Fixed" vsizetype="Preferred">
- <horstretch>0</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="minimumSize">
- <size>
- <width>100</width>
- <height>0</height>
- </size>
- </property>
- <property name="maximumSize">
- <size>
- <width>100</width>
- <height>16777215</height>
- </size>
- </property>
- <property name="font">
- <font>
- <pointsize>10</pointsize>
- </font>
- </property>
- <property name="text">
- <string>Date</string>
- </property>
- <property name="alignment">
- <set>Qt::AlignCenter</set>
- </property>
- </widget>
- </item>
- <item>
- <widget class="QLabel" name="lab3">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Fixed" vsizetype="Preferred">
- <horstretch>0</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="minimumSize">
- <size>
- <width>50</width>
- <height>0</height>
- </size>
- </property>
- <property name="maximumSize">
- <size>
- <width>50</width>
- <height>16777215</height>
- </size>
- </property>
- <property name="font">
- <font>
- <pointsize>10</pointsize>
- </font>
- </property>
- <property name="text">
- <string>Time</string>
- </property>
- <property name="alignment">
- <set>Qt::AlignCenter</set>
- </property>
- </widget>
- </item>
- <item>
- <widget class="QLabel" name="lab4">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Fixed" vsizetype="Preferred">
- <horstretch>0</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="minimumSize">
- <size>
- <width>50</width>
- <height>0</height>
- </size>
- </property>
- <property name="maximumSize">
- <size>
- <width>50</width>
- <height>16777215</height>
- </size>
- </property>
- <property name="font">
- <font>
- <pointsize>10</pointsize>
- </font>
- </property>
- <property name="text">
- <string>Mode</string>
- </property>
- <property name="alignment">
- <set>Qt::AlignCenter</set>
- </property>
- </widget>
- </item>
- <item>
- <widget class="QLabel" name="lab5">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Fixed" vsizetype="Preferred">
- <horstretch>0</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="minimumSize">
- <size>
- <width>50</width>
- <height>0</height>
- </size>
- </property>
- <property name="maximumSize">
- <size>
- <width>50</width>
- <height>16777215</height>
- </size>
- </property>
- <property name="font">
- <font>
- <pointsize>10</pointsize>
- </font>
- </property>
- <property name="text">
- <string>Band</string>
- </property>
- <property name="alignment">
- <set>Qt::AlignCenter</set>
- </property>
- </widget>
- </item>
- </layout>
- </item>
- <item>
- <layout class="QHBoxLayout" name="horizontalLayout_4">
- <item>
- <widget class="QLineEdit" name="call">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Fixed" vsizetype="Fixed">
- <horstretch>0</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="minimumSize">
- <size>
- <width>70</width>
- <height>0</height>
- </size>
- </property>
- <property name="maximumSize">
- <size>
- <width>70</width>
- <height>16777215</height>
- </size>
- </property>
- </widget>
- </item>
- <item>
- <widget class="QLineEdit" name="date">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Fixed" vsizetype="Fixed">
- <horstretch>0</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="minimumSize">
- <size>
- <width>100</width>
- <height>0</height>
- </size>
- </property>
- <property name="maximumSize">
- <size>
- <width>100</width>
- <height>16777215</height>
- </size>
- </property>
- </widget>
- </item>
- <item>
- <widget class="QLineEdit" name="time">
- <property name="minimumSize">
- <size>
- <width>50</width>
- <height>0</height>
- </size>
- </property>
- <property name="maximumSize">
- <size>
- <width>50</width>
- <height>16777215</height>
- </size>
- </property>
- </widget>
- </item>
- <item>
- <widget class="QLineEdit" name="mode">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Fixed" vsizetype="Fixed">
- <horstretch>0</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="minimumSize">
- <size>
- <width>50</width>
- <height>0</height>
- </size>
- </property>
- <property name="maximumSize">
- <size>
- <width>50</width>
- <height>16777215</height>
- </size>
- </property>
- </widget>
- </item>
- <item>
- <widget class="QLineEdit" name="band">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Fixed" vsizetype="Fixed">
- <horstretch>0</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="minimumSize">
- <size>
- <width>50</width>
- <height>0</height>
- </size>
- </property>
- <property name="maximumSize">
- <size>
- <width>50</width>
- <height>16777215</height>
- </size>
- </property>
- </widget>
- </item>
- </layout>
- </item>
- <item>
- <spacer name="verticalSpacer">
- <property name="orientation">
- <enum>Qt::Vertical</enum>
- </property>
- <property name="sizeType">
- <enum>QSizePolicy::MinimumExpanding</enum>
- </property>
- <property name="sizeHint" stdset="0">
- <size>
- <width>20</width>
- <height>10</height>
- </size>
- </property>
- </spacer>
- </item>
- <item>
- <layout class="QHBoxLayout" name="horizontalLayout_3">
- <item>
- <widget class="QLabel" name="lab6">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Fixed" vsizetype="Preferred">
- <horstretch>0</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="minimumSize">
- <size>
- <width>50</width>
- <height>0</height>
- </size>
- </property>
- <property name="maximumSize">
- <size>
- <width>50</width>
- <height>16777215</height>
- </size>
- </property>
- <property name="font">
- <font>
- <pointsize>10</pointsize>
- </font>
- </property>
- <property name="text">
- <string>Rpt Sent</string>
- </property>
- <property name="alignment">
- <set>Qt::AlignCenter</set>
- </property>
- </widget>
- </item>
- <item>
- <widget class="QLabel" name="lab7">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Fixed" vsizetype="Preferred">
- <horstretch>0</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="minimumSize">
- <size>
- <width>50</width>
- <height>0</height>
- </size>
- </property>
- <property name="maximumSize">
- <size>
- <width>50</width>
- <height>16777215</height>
- </size>
- </property>
- <property name="font">
- <font>
- <pointsize>10</pointsize>
- </font>
- </property>
- <property name="text">
- <string>Rpt Rcvd</string>
- </property>
- <property name="alignment">
- <set>Qt::AlignCenter</set>
- </property>
- </widget>
- </item>
- <item>
- <widget class="QLabel" name="lab8">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Fixed" vsizetype="Preferred">
- <horstretch>0</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="minimumSize">
- <size>
- <width>50</width>
- <height>0</height>
- </size>
- </property>
- <property name="maximumSize">
- <size>
- <width>50</width>
- <height>16777215</height>
- </size>
- </property>
- <property name="font">
- <font>
- <pointsize>10</pointsize>
- </font>
- </property>
- <property name="text">
- <string>Grid</string>
- </property>
- <property name="alignment">
- <set>Qt::AlignCenter</set>
- </property>
- </widget>
- </item>
- <item>
- <widget class="QLabel" name="lab9">
- <property name="enabled">
- <bool>true</bool>
- </property>
- <property name="sizePolicy">
- <sizepolicy hsizetype="Fixed" vsizetype="Preferred">
- <horstretch>0</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="minimumSize">
- <size>
- <width>100</width>
- <height>0</height>
- </size>
- </property>
- <property name="maximumSize">
- <size>
- <width>100</width>
- <height>16777215</height>
- </size>
- </property>
- <property name="font">
- <font>
- <pointsize>10</pointsize>
- </font>
- </property>
- <property name="text">
- <string>Name</string>
- </property>
- <property name="alignment">
- <set>Qt::AlignCenter</set>
- </property>
- </widget>
- </item>
- </layout>
- </item>
- <item>
- <layout class="QHBoxLayout" name="horizontalLayout_2">
- <item>
- <widget class="QLineEdit" name="sent">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Fixed" vsizetype="Fixed">
- <horstretch>0</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="minimumSize">
- <size>
- <width>50</width>
- <height>0</height>
- </size>
- </property>
- <property name="maximumSize">
- <size>
- <width>50</width>
- <height>16777215</height>
- </size>
- </property>
- </widget>
- </item>
- <item>
- <widget class="QLineEdit" name="rcvd">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Fixed" vsizetype="Fixed">
- <horstretch>0</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="minimumSize">
- <size>
- <width>50</width>
- <height>0</height>
- </size>
- </property>
- <property name="maximumSize">
- <size>
- <width>50</width>
- <height>16777215</height>
- </size>
- </property>
- </widget>
- </item>
- <item>
- <widget class="QLineEdit" name="grid">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Fixed" vsizetype="Fixed">
- <horstretch>0</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="minimumSize">
- <size>
- <width>50</width>
- <height>0</height>
- </size>
- </property>
- <property name="maximumSize">
- <size>
- <width>50</width>
- <height>16777215</height>
- </size>
- </property>
- </widget>
- </item>
- <item>
- <widget class="QLineEdit" name="name">
- <property name="enabled">
- <bool>true</bool>
- </property>
- <property name="sizePolicy">
- <sizepolicy hsizetype="Fixed" vsizetype="Fixed">
- <horstretch>0</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="minimumSize">
- <size>
- <width>100</width>
- <height>0</height>
- </size>
- </property>
- <property name="maximumSize">
- <size>
- <width>100</width>
- <height>16777215</height>
- </size>
- </property>
- </widget>
- </item>
- </layout>
- </item>
- <item>
- <spacer name="verticalSpacer_2">
- <property name="orientation">
- <enum>Qt::Vertical</enum>
- </property>
- <property name="sizeType">
- <enum>QSizePolicy::MinimumExpanding</enum>
- </property>
- <property name="sizeHint" stdset="0">
- <size>
- <width>20</width>
- <height>10</height>
- </size>
- </property>
- </spacer>
- </item>
- <item>
- <layout class="QHBoxLayout" name="horizontalLayout_6">
- <item>
- <widget class="QLabel" name="label_2">
- <property name="minimumSize">
- <size>
- <width>65</width>
- <height>0</height>
- </size>
- </property>
- <property name="text">
- <string>Tx power</string>
- </property>
- </widget>
- </item>
- <item>
- <widget class="QLineEdit" name="txPower"/>
- </item>
- <item>
- <widget class="QCheckBox" name="cbTxPower">
- <property name="text">
- <string>Retain</string>
- </property>
- </widget>
- </item>
- </layout>
- </item>
- <item>
- <spacer name="verticalSpacer_5">
- <property name="orientation">
- <enum>Qt::Vertical</enum>
- </property>
- <property name="sizeType">
- <enum>QSizePolicy::MinimumExpanding</enum>
- </property>
- <property name="sizeHint" stdset="0">
- <size>
- <width>20</width>
- <height>10</height>
- </size>
- </property>
- </spacer>
- </item>
- <item>
- <layout class="QHBoxLayout" name="horizontalLayout">
- <item>
- <widget class="QLabel" name="lab10">
- <property name="enabled">
- <bool>true</bool>
- </property>
- <property name="minimumSize">
- <size>
- <width>65</width>
- <height>0</height>
- </size>
- </property>
- <property name="font">
- <font>
- <pointsize>10</pointsize>
- </font>
- </property>
- <property name="text">
- <string>Comments</string>
- </property>
- </widget>
- </item>
- <item>
- <widget class="QLineEdit" name="comments">
- <property name="enabled">
- <bool>true</bool>
- </property>
- </widget>
- </item>
- <item>
- <widget class="QCheckBox" name="cbComments">
- <property name="text">
- <string>Retain</string>
- </property>
- </widget>
- </item>
- </layout>
- </item>
- <item>
- <widget class="QDialogButtonBox" name="buttonBox">
- <property name="orientation">
- <enum>Qt::Horizontal</enum>
- </property>
- <property name="standardButtons">
- <set>QDialogButtonBox::Cancel|QDialogButtonBox::Ok</set>
- </property>
- </widget>
- </item>
- </layout>
- </item>
- </layout>
- </widget>
- <tabstops>
- <tabstop>call</tabstop>
- <tabstop>date</tabstop>
- <tabstop>time</tabstop>
- <tabstop>mode</tabstop>
- <tabstop>band</tabstop>
- <tabstop>sent</tabstop>
- <tabstop>rcvd</tabstop>
- <tabstop>grid</tabstop>
- <tabstop>name</tabstop>
- <tabstop>txPower</tabstop>
- <tabstop>cbTxPower</tabstop>
- <tabstop>comments</tabstop>
- <tabstop>cbComments</tabstop>
- <tabstop>buttonBox</tabstop>
- </tabstops>
- <resources/>
- <connections>
- <connection>
- <sender>buttonBox</sender>
- <signal>accepted()</signal>
- <receiver>LogQSO</receiver>
- <slot>accept()</slot>
- <hints>
- <hint type="sourcelabel">
- <x>248</x>
- <y>254</y>
- </hint>
- <hint type="destinationlabel">
- <x>157</x>
- <y>274</y>
- </hint>
- </hints>
- </connection>
- <connection>
- <sender>buttonBox</sender>
- <signal>rejected()</signal>
- <receiver>LogQSO</receiver>
- <slot>reject()</slot>
- <hints>
- <hint type="sourcelabel">
- <x>316</x>
- <y>260</y>
- </hint>
- <hint type="destinationlabel">
- <x>286</x>
- <y>274</y>
- </hint>
- </hints>
- </connection>
- </connections>
-</ui>
diff --git a/main.cpp b/main.cpp
deleted file mode 100644
index add1ab1..0000000
--- a/main.cpp
+++ /dev/null
@@ -1,60 +0,0 @@
-#ifdef QT5
-#include <QtWidgets>
-#else
-#include <QtGui>
-#endif
-#include <QApplication>
-#include <portaudio.h>
-#include "mainwindow.h"
-
-// Multiple instances:
-QSharedMemory mem_jt9;
-QUuid my_uuid;
-QString my_key;
-
-int main(int argc, char *argv[])
-{
- QApplication a(argc, argv);
-
- QFile f("fonts.txt");
- if(f.open(QIODevice::ReadOnly)) {
- QTextStream in(&f); //Example:
- QString fontFamily; // helvetica
- qint32 fontSize,fontWeight; // 8,50
- in >> fontFamily >> fontSize >> fontWeight;
- f.close();
- QFont font;
- font=QFont(fontFamily,fontSize,fontWeight);
- a.setFont(font);
- }
-
- // Create and initialize shared memory segment
- // Multiple instances: generate shared memory keys with UUID
- my_uuid = QUuid::createUuid();
- my_key = my_uuid.toString();
- mem_jt9.setKey(my_key);
-
- if(!mem_jt9.attach()) {
- if (!mem_jt9.create(sizeof(jt9com_))) {
- QMessageBox::critical( 0, "Error", "Unable to create shared memory segment.");
- exit(1);
- }
- }
- char *to = (char*)mem_jt9.data();
- int size=sizeof(jt9com_);
- if(jt9com_.newdat==0) {
- }
- memset(to,0,size); //Zero all decoding params in shared memory
-
- //Initialize Portaudio
- PaError paerr=Pa_Initialize();
- if(paerr!=paNoError) {
- QMessageBox::critical( 0, "Error", "Unable to initialize PortAudio.");
- exit(1);
- }
-
-// Multiple instances: Call MainWindow() with the UUID key
- MainWindow w(&mem_jt9, &my_key);
- w.show();
- return a.exec();
-}
diff --git a/mainwindow.cpp b/mainwindow.cpp
deleted file mode 100644
index 7b50ec8..0000000
--- a/mainwindow.cpp
+++ /dev/null
@@ -1,3052 +0,0 @@
-//------------------------------------------------------------- MainWindow
-#include "mainwindow.h"
-#include "ui_mainwindow.h"
-#include "devsetup.h"
-#include "plotter.h"
-#include "about.h"
-#include "widegraph.h"
-#include "sleep.h"
-#include "getfile.h"
-#include <portaudio.h>
-#include "logqso.h"
-
-#ifdef QT5
-#include <QtConcurrent/QtConcurrentMap>
-#include <QtConcurrent/QtConcurrentRun>
-#endif
-
-int itone[126]; //Audio tones for all Tx symbols
-int icw[250]; //Dits for CW ID
-int outBufSize;
-int rc;
-qint32 g_COMportOpen;
-qint32 g_iptt;
-static int nc1=1;
-wchar_t buffer[256];
-bool btxok; //True if OK to transmit
-bool btxMute;
-double outputLatency; //Latency in seconds
-double dFreq[]={0.13613,0.4742,1.838,3.576,5.357,7.076,10.138,14.076,
- 18.102,21.076,24.917,28.076,50.276,70.091,144.489,432.178};
-
-WideGraph* g_pWideGraph = NULL;
-LogQSO* logDlg = NULL;
-Rig* rig = NULL;
-QTextEdit* pShortcuts;
-QTcpSocket* socket = new QTcpSocket(0);
-
-QString rev="$Rev: 3496 $";
-QString Program_Title_Version=" WSJT-X v1.1, r" + rev.mid(6,4) +
- " by K1JT";
-
-//-------------------------------------------------- MainWindow constructor
-// Multiple instances: new arg *thekey
-MainWindow::MainWindow(QSharedMemory *shdmem, QString *thekey, QWidget *parent) :
- QMainWindow(parent),
- ui(new Ui::MainWindow)
-{
- ui->setupUi(this);
- on_EraseButton_clicked();
- QActionGroup* paletteGroup = new QActionGroup(this);
- ui->actionCuteSDR->setActionGroup(paletteGroup);
- ui->actionLinrad->setActionGroup(paletteGroup);
- ui->actionAFMHot->setActionGroup(paletteGroup);
- ui->actionBlue->setActionGroup(paletteGroup);
-
- QActionGroup* modeGroup = new QActionGroup(this);
- ui->actionJT9_1->setActionGroup(modeGroup);
- ui->actionJT65->setActionGroup(modeGroup);
- ui->actionJT9_JT65->setActionGroup(modeGroup);
-
-
- QActionGroup* saveGroup = new QActionGroup(this);
- ui->actionNone->setActionGroup(saveGroup);
- ui->actionSave_decoded->setActionGroup(saveGroup);
- ui->actionSave_all->setActionGroup(saveGroup);
-
- QActionGroup* DepthGroup = new QActionGroup(this);
- ui->actionQuickDecode->setActionGroup(DepthGroup);
- ui->actionMediumDecode->setActionGroup(DepthGroup);
- ui->actionDeepestDecode->setActionGroup(DepthGroup);
-
- QButtonGroup* txMsgButtonGroup = new QButtonGroup;
- txMsgButtonGroup->addButton(ui->txrb1,1);
- txMsgButtonGroup->addButton(ui->txrb2,2);
- txMsgButtonGroup->addButton(ui->txrb3,3);
- txMsgButtonGroup->addButton(ui->txrb4,4);
- txMsgButtonGroup->addButton(ui->txrb5,5);
- txMsgButtonGroup->addButton(ui->txrb6,6);
- connect(txMsgButtonGroup,SIGNAL(buttonClicked(int)),SLOT(set_ntx(int)));
- connect(ui->decodedTextBrowser2,SIGNAL(selectCallsign(bool,bool)),this,
- SLOT(doubleClickOnCall(bool,bool)));
- connect(ui->decodedTextBrowser,SIGNAL(selectCallsign(bool,bool)),this,
- SLOT(doubleClickOnCall2(bool,bool)));
-
- setWindowTitle(Program_Title_Version);
- connect(&soundInThread, SIGNAL(readyForFFT(int)),
- this, SLOT(dataSink(int)));
- connect(&soundInThread, SIGNAL(error(QString)), this,
- SLOT(showSoundInError(QString)));
- connect(&soundInThread, SIGNAL(status(QString)), this,
- SLOT(showStatusMessage(QString)));
- createStatusBar();
-
- connect(&proc_jt9, SIGNAL(readyReadStandardOutput()),
- this, SLOT(readFromStdout()));
-
- connect(&proc_jt9, SIGNAL(error(QProcess::ProcessError)),
- this, SLOT(jt9_error()));
-
- connect(&proc_jt9, SIGNAL(readyReadStandardError()),
- this, SLOT(readFromStderr()));
-
- ui->bandComboBox->setEditable(true);
- ui->bandComboBox->lineEdit()->setReadOnly(true);
- ui->bandComboBox->lineEdit()->setAlignment(Qt::AlignCenter);
- for(int i = 0; i < ui->bandComboBox->count(); i++)
- ui->bandComboBox->setItemData(i, Qt::AlignCenter, Qt::TextAlignmentRole);
-
- ui->tx5->setContextMenuPolicy(Qt::CustomContextMenu);
- connect(ui->tx5, SIGNAL(customContextMenuRequested(const QPoint&)),
- this, SLOT(showMacros(const QPoint&)));
-
- ui->freeTextMsg->setContextMenuPolicy(Qt::CustomContextMenu);
- connect(ui->freeTextMsg, SIGNAL(customContextMenuRequested(const QPoint&)),
- this, SLOT(showMacros(const QPoint&)));
-
- QTimer *guiTimer = new QTimer(this);
- connect(guiTimer, SIGNAL(timeout()), this, SLOT(guiUpdate()));
- guiTimer->start(100); //Don't change the 100 ms!
- ptt0Timer = new QTimer(this);
- ptt0Timer->setSingleShot(true);
- connect(ptt0Timer, SIGNAL(timeout()), this, SLOT(stopTx2()));
- ptt1Timer = new QTimer(this);
- ptt1Timer->setSingleShot(true);
- connect(ptt1Timer, SIGNAL(timeout()), this, SLOT(startTx2()));
-
- logQSOTimer = new QTimer(this);
- logQSOTimer->setSingleShot(true);
- connect(logQSOTimer, SIGNAL(timeout()), this, SLOT(on_logQSOButton_clicked()));
-
- tuneButtonTimer= new QTimer(this);
- tuneButtonTimer->setSingleShot(true);
- connect(tuneButtonTimer, SIGNAL(timeout()), this,
- SLOT(on_stopTxButton_clicked()));
-
- killFileTimer = new QTimer(this);
- killFileTimer->setSingleShot(true);
- connect(killFileTimer, SIGNAL(timeout()), this, SLOT(killFile()));
-
- m_auto=false;
- m_waterfallAvg = 1;
- m_txFirst=false;
- btxMute=false;
- btxok=false;
- m_restart=false;
- m_transmitting=false;
- m_killAll=false;
- m_widebandDecode=false;
- m_ntx=1;
- m_myCall="";
- m_myGrid="FN20qi";
- m_appDir = QApplication::applicationDirPath();
- m_saveDir="/users/joe/wsjtx/install/save";
- m_rxFreq=1500;
- m_txFreq=1500;
- m_setftx=0;
- m_loopall=false;
- m_startAnother=false;
- m_saveDecoded=false;
- m_saveAll=false;
- m_sec0=-1;
- m_palette="Linrad";
- m_RxLog=1; //Write Date and Time to RxLog
- m_nutc0=9999;
- m_mode="JT9";
- m_rpt="-15";
- m_TRperiod=60;
- m_inGain=0;
- m_dataAvailable=false;
- g_iptt=0;
- g_COMportOpen=0;
- m_secID=0;
- m_promptToLog=false;
- m_blankLine=false;
- m_insertBlank=false;
- m_clearCallGrid=false;
- m_bMiles=false;
- m_decodedText2=false;
- m_freeText=false;
- m_msErase=0;
- m_sent73=false;
- m_watchdogLimit=5;
- m_tune=false;
- m_repeatMsg=0;
- m_bRigOpen=false;
- m_secBandChanged=0;
- m_bMultipleOK=false;
- m_dontReadFreq=false;
- m_lockTxFreq=false;
- ui->readFreq->setEnabled(false);
- m_QSOmsg="";
- m_CATerror=false;
- decodeBusy(false);
-
- signalMeter = new SignalMeter(ui->meterFrame);
- signalMeter->resize(50, 160);
-
-// qDebug() << signalMeter->size();
-
- ui->labAz->setStyleSheet("border: 0px;");
- ui->labDist->setStyleSheet("border: 0px;");
-
- mem_jt9 = shdmem;
-// Multiple instances:
- mykey_jt9 = thekey;
- readSettings(); //Restore user's setup params
- if(m_dFreq.length()<=1) { //Use the startup default frequencies
- m_dFreq.clear();
- for(int i=0; i<16; i++) {
- QString t;
- t.sprintf("%f",dFreq[i]);
- m_dFreq.append(t);
- }
- }
-
-#ifdef WIN32
- if(!m_bMultipleOK) {
- while(true) {
- int iret=killbyname("jt9.exe");
- if(iret == 603) break;
- if(iret != 0) msgBox("KillByName return code: " +
- QString::number(iret));
- }
- }
-#endif
-
- QFile lockFile(m_appDir + "/.lock"); //Create .lock so jt9 will wait
- lockFile.open(QIODevice::ReadWrite);
- //QFile quitFile(m_appDir + "/.lock");
- //quitFile.remove();
-
-// Multiple instances: make the Qstring key into command line arg
-// Multiple instances: start "jt9 -s <thekey>"
- QByteArray ba = mykey_jt9->toLocal8Bit();
- const char *bc = ba.data();
- proc_jt9.start(QDir::toNativeSeparators('"' + m_appDir + '"' + "/jt9 -s " + bc));
-
- m_pbdecoding_style1="QPushButton{background-color: cyan; \
- border-style: outset; border-width: 1px; border-radius: 5px; \
- border-color: black; min-width: 5em; padding: 3px;}";
- m_pbmonitor_style="QPushButton{background-color: #00ff00; \
- border-style: outset; border-width: 1px; border-radius: 5px; \
- border-color: black; min-width: 5em; padding: 3px;}";
- m_pbAutoOn_style="QPushButton{background-color: red; \
- border-style: outset; border-width: 1px; border-radius: 5px; \
- border-color: black; min-width: 5em; padding: 3px;}";
- m_pbTune_style="QPushButton{background-color: red; \
- border-style: outset; border-width: 1px; border-radius: 5px; \
- border-color: black; min-width: 5em; padding: 3px;}";
-
- genStdMsgs(m_rpt);
- if(m_mode!="JT9" and m_mode!="JT65" and m_mode!="JT9+JT65") m_mode="JT9";
- on_actionWide_Waterfall_triggered(); //###
- g_pWideGraph->setRxFreq(m_rxFreq);
- g_pWideGraph->setTxFreq(m_txFreq);
- g_pWideGraph->setLockTxFreq(m_lockTxFreq);
- g_pWideGraph->setFmin(m_fMin);
- g_pWideGraph->setModeTx(m_mode);
- g_pWideGraph->setModeTx(m_modeTx);
- dialFreqChanged2(m_dialFreq);
-
- connect(g_pWideGraph, SIGNAL(setFreq3(int,int)),this,
- SLOT(setFreq4(int,int)));
-
- if(m_mode=="JT9") on_actionJT9_1_triggered();
- if(m_mode=="JT65") on_actionJT65_triggered();
- if(m_mode=="JT9+JT65") on_actionJT9_JT65_triggered();
-
- future1 = new QFuture<void>;
- watcher1 = new QFutureWatcher<void>;
- connect(watcher1, SIGNAL(finished()),this,SLOT(diskDat()));
-
- future2 = new QFuture<void>;
- watcher2 = new QFutureWatcher<void>;
- connect(watcher2, SIGNAL(finished()),this,SLOT(diskWriteFinished()));
-
- soundInThread.setInputDevice(m_paInDevice);
- soundInThread.start(QThread::HighestPriority);
- soundOutThread.setOutputDevice(m_paOutDevice);
- soundOutThread.setTxFreq(m_txFreq);
- soundOutThread.setTune(false);
- m_monitoring=!m_monitorStartOFF; // Start with Monitoring ON/OFF
- soundInThread.setMonitoring(m_monitoring);
- m_diskData=false;
-
-// Create "m_worked", a dictionary of all calls in wsjtx.log
- QFile f("wsjtx.log");
- f.open(QIODevice::ReadOnly | QIODevice::Text);
- QTextStream in(&f);
- QString line,t,callsign;
- for(int i=0; i<99999; i++) {
- line=in.readLine();
- if(line.length()<=0) break;
- t=line.mid(18,12);
- callsign=t.mid(0,t.indexOf(","));
- }
- f.close();
-
- if(ui->actionLinrad->isChecked()) on_actionLinrad_triggered();
- if(ui->actionCuteSDR->isChecked()) on_actionCuteSDR_triggered();
- if(ui->actionAFMHot->isChecked()) on_actionAFMHot_triggered();
- if(ui->actionBlue->isChecked()) on_actionBlue_triggered();
-
- ui->decodedTextLabel->setFont(ui->decodedTextBrowser2->font());
- ui->decodedTextLabel2->setFont(ui->decodedTextBrowser->font());
- t="UTC dB DT Freq Message";
- ui->decodedTextLabel->setText(t);
- ui->decodedTextLabel2->setText(t);
-
-#ifdef WIN32
- if(m_pskReporter) {
- rc=ReporterInitialize(NULL,NULL);
- if(rc==0) {
- m_pskReporterInit=true;
- } else {
- m_pskReporterInit=false;
- rc=ReporterGetInformation(buffer,256);
- msgBox(QString::fromStdWString(buffer));
- }
- }
-#endif
-
-#ifdef UNIX
- psk_Reporter = new PSK_Reporter(this);
- psk_Reporter->setLocalStation(m_myCall,m_myGrid, "WSJT-X r" + rev.mid(6,4) );
-#endif
-
- ui->label_9->setStyleSheet("QLabel{background-color: #aabec8}");
- ui->label_10->setStyleSheet("QLabel{background-color: #aabec8}");
- ui->labUTC->setStyleSheet( \
- "QLabel { background-color : black; color : yellow; }");
- ui->labDialFreq->setStyleSheet( \
- "QLabel { background-color : black; color : yellow; }");
-
- QFile f2("ALL.TXT");
- f2.open(QIODevice::WriteOnly | QIODevice::Text | QIODevice::Append);
- QTextStream out(&f2);
- out << QDateTime::currentDateTimeUtc().toString("yyyy-MMM-dd hh:mm")
- << " " << m_dialFreq << " MHz " << m_mode << endl;
- f2.close();
-} // End of MainWindow constructor
-
-//--------------------------------------------------- MainWindow destructor
-MainWindow::~MainWindow()
-{
- writeSettings();
- if (soundInThread.isRunning()) {
- soundInThread.quit();
- soundInThread.wait(3000);
- }
- if (soundOutThread.isRunning()) {
- soundOutThread.quitExecution=true;
- soundOutThread.wait(3000);
- }
- if(!m_decoderBusy) {
- QFile lockFile(m_appDir + "/.lock");
- lockFile.remove();
- }
- delete ui;
-}
-
-//-------------------------------------------------------- writeSettings()
-void MainWindow::writeSettings()
-{
- QString inifile = m_appDir + "/wsjtx.ini";
- QSettings settings(inifile, QSettings::IniFormat);
-
- settings.beginGroup("MainWindow");
- settings.setValue("geometry", saveGeometry());
- settings.setValue("MRUdir", m_path);
- settings.setValue("TxFirst",m_txFirst);
- settings.setValue("DXcall",ui->dxCallEntry->text());
- settings.setValue("DXgrid",ui->dxGridEntry->text());
- if(g_pWideGraph->isVisible()) {
- m_wideGraphGeom = g_pWideGraph->geometry();
- settings.setValue("WideGraphGeom",m_wideGraphGeom);
- m_fMin=g_pWideGraph->getFmin();
- }
- settings.endGroup();
-
- settings.beginGroup("Common");
- settings.setValue("MyCall",m_myCall);
- settings.setValue("MyGrid",m_myGrid);
- settings.setValue("IDint",m_idInt);
- settings.setValue("PTTmethod",m_pttMethodIndex);
- settings.setValue("PTTport",m_pttPort);
- settings.setValue("SaveDir",m_saveDir);
- char soundName[128];
- if (Pa_GetDeviceInfo( m_paInDevice)) { // store name, number may be different next time
- snprintf( soundName, sizeof( soundName), "%s:%s",
- Pa_GetHostApiInfo( Pa_GetDeviceInfo( m_paInDevice)->hostApi)->name,
- Pa_GetDeviceInfo( m_paInDevice)->name);
- settings.setValue("SoundInName", soundName);
- }
- if (Pa_GetDeviceInfo( m_paOutDevice)) { // store name, number may be different next time
- snprintf( soundName, sizeof( soundName), "%s:%s",
- Pa_GetHostApiInfo( Pa_GetDeviceInfo( m_paOutDevice)->hostApi)->name,
- Pa_GetDeviceInfo( m_paOutDevice)->name);
- settings.setValue("SoundOutName", soundName);
- }
- settings.setValue("PaletteCuteSDR",ui->actionCuteSDR->isChecked());
- settings.setValue("PaletteLinrad",ui->actionLinrad->isChecked());
- settings.setValue("PaletteAFMHot",ui->actionAFMHot->isChecked());
- settings.setValue("PaletteBlue",ui->actionBlue->isChecked());
- settings.setValue("Mode",m_mode);
- settings.setValue("ModeTx",m_modeTx);
- settings.setValue("SaveNone",ui->actionNone->isChecked());
- settings.setValue("SaveDecoded",ui->actionSave_decoded->isChecked());
- settings.setValue("SaveAll",ui->actionSave_all->isChecked());
- settings.setValue("NDepth",m_ndepth);
- settings.setValue("MonitorOFF",m_monitorStartOFF);
- settings.setValue("DialFreq",m_dialFreq);
- settings.setValue("RxFreq",m_rxFreq);
- settings.setValue("TxFreq",m_txFreq);
- settings.setValue("InGain",m_inGain);
- settings.setValue("PSKReporter",m_pskReporter);
- settings.setValue("After73",m_After73);
- settings.setValue("Macros",m_macro);
- settings.setValue("DefaultFreqs",m_dFreq);
- settings.setValue("toRTTY",m_toRTTY);
- settings.setValue("NoSuffix",m_noSuffix);
- settings.setValue("dBtoComments",m_dBtoComments);
- settings.setValue("catEnabled",m_catEnabled);
- settings.setValue("Rig",m_rig);
- settings.setValue("RigIndex",m_rigIndex);
- settings.setValue("CATport",m_catPort);
- settings.setValue("CATportIndex",m_catPortIndex);
- settings.setValue("SerialRate",m_serialRate);
- settings.setValue("SerialRateIndex",m_serialRateIndex);
- settings.setValue("DataBits",m_dataBits);
- settings.setValue("DataBitsIndex",m_dataBitsIndex);
- settings.setValue("StopBits",m_stopBits);
- settings.setValue("StopBitsIndex",m_stopBitsIndex);
- settings.setValue("Handshake",m_handshake);
- settings.setValue("HandshakeIndex",m_handshakeIndex);
- settings.setValue("BandIndex",m_band);
- settings.setValue("PromptToLog",m_promptToLog);
- settings.setValue("InsertBlank",m_insertBlank);
- settings.setValue("ClearCallGrid",m_clearCallGrid);
- settings.setValue("Miles",m_bMiles);
- settings.setValue("GUItab",ui->tabWidget->currentIndex());
- settings.setValue("QuickCall",m_quickCall);
- settings.setValue("73TxDisable",m_73TxDisable);
- settings.setValue("Runaway",m_runaway);
- settings.setValue("Tx2QSO",m_tx2QSO);
- settings.setValue("MultipleOK",m_bMultipleOK);
- settings.setValue("DTRoff",m_bDTRoff);
- settings.setValue("pttData",m_pttData);
- settings.setValue("LogQSOgeom",m_logQSOgeom);
- settings.setValue("Polling",m_poll);
- settings.setValue("OutBufSize",outBufSize);
- settings.setValue("LockTxFreq",m_lockTxFreq);
- settings.setValue("SaveTxPower",m_saveTxPower);
- settings.setValue("SaveComments",m_saveComments);
- settings.setValue("TxPower",m_txPower);
- settings.setValue("LogComments",m_logComments);
- settings.setValue("PSKantenna",m_pskAntenna);
- settings.setValue("Fmin",m_fMin);
- settings.setValue("TxSplit",m_bSplit);
- settings.setValue("UseXIT",m_bXIT);
- settings.setValue("Plus2kHz",m_plus2kHz);
- settings.endGroup();
-}
-
-//---------------------------------------------------------- readSettings()
-void MainWindow::readSettings()
-{
- QString inifile = m_appDir + "/wsjtx.ini";
- QSettings settings(inifile, QSettings::IniFormat);
- settings.beginGroup("MainWindow");
- restoreGeometry(settings.value("geometry").toByteArray());
- ui->dxCallEntry->setText(settings.value("DXcall","").toString());
- ui->dxGridEntry->setText(settings.value("DXgrid","").toString());
- m_wideGraphGeom = settings.value("WideGraphGeom", \
- QRect(45,30,726,301)).toRect();
- m_path = settings.value("MRUdir", m_appDir + "/save").toString();
- m_txFirst = settings.value("TxFirst",false).toBool();
- ui->txFirstCheckBox->setChecked(m_txFirst);
- settings.endGroup();
-
- settings.beginGroup("Common");
- m_myCall=settings.value("MyCall","").toString();
- morse_(m_myCall.toLatin1().data(),icw,&m_ncw,m_myCall.length());
- m_myGrid=settings.value("MyGrid","").toString();
- m_idInt=settings.value("IDint",0).toInt();
- m_pttMethodIndex=settings.value("PTTmethod",1).toInt();
- m_pttPort=settings.value("PTTport",0).toInt();
- m_saveDir=settings.value("SaveDir",m_appDir + "/save").toString();
-
- char soundName[128];
- QString savedName = settings.value( "SoundInName", "default").toString();
- for (m_paInDevice = Pa_GetDeviceCount() - 1; m_paInDevice >= 0; m_paInDevice--) {
- snprintf( soundName, sizeof( soundName), "%s:%s",
- Pa_GetHostApiInfo( Pa_GetDeviceInfo( m_paInDevice)->hostApi)->name,
- Pa_GetDeviceInfo( m_paInDevice)->name);
- if ((savedName == soundName) && (Pa_GetDeviceInfo(m_paInDevice)->maxInputChannels > 0))
- break;
- }
- if (m_paInDevice < 0) { // no match for device name?
- m_paInDevice = Pa_GetDefaultInputDevice();
- if (m_paInDevice == paNoDevice) // no default input device?
- m_paInDevice = 0;
- }
-
- savedName = settings.value("SoundOutName", "default").toString();
- for (m_paOutDevice = Pa_GetDeviceCount() - 1; m_paOutDevice >= 0; m_paOutDevice--) {
- snprintf( soundName, sizeof( soundName), "%s:%s",
- Pa_GetHostApiInfo( Pa_GetDeviceInfo( m_paOutDevice)->hostApi)->name,
- Pa_GetDeviceInfo( m_paOutDevice)->name);
- if ((savedName == soundName) && (Pa_GetDeviceInfo(m_paOutDevice)->maxOutputChannels > 0))
- break;
- }
- if (m_paOutDevice < 0) { // no match for device name?
- m_paOutDevice = Pa_GetDefaultOutputDevice();
- if (m_paOutDevice == paNoDevice) // no default output device?
- m_paOutDevice = 0;
- }
-
- ui->actionCuteSDR->setChecked(settings.value(
- "PaletteCuteSDR",false).toBool());
- ui->actionLinrad->setChecked(settings.value(
- "PaletteLinrad",true).toBool());
- ui->actionAFMHot->setChecked(settings.value(
- "PaletteAFMHot",false).toBool());
- ui->actionBlue->setChecked(settings.value(
- "PaletteBlue",false).toBool());
- m_mode=settings.value("Mode","JT9").toString();
- m_modeTx=settings.value("ModeTx","JT9").toString();
- if(m_modeTx=="JT9") ui->pbTxMode->setText("Tx JT9 @");
- if(m_modeTx=="JT65") ui->pbTxMode->setText("Tx JT65 #");
- ui->actionNone->setChecked(settings.value("SaveNone",true).toBool());
- ui->actionSave_decoded->setChecked(settings.value(
- "SaveDecoded",false).toBool());
- ui->actionSave_all->setChecked(settings.value("SaveAll",false).toBool());
- m_dialFreq=settings.value("DialFreq",14.078).toDouble();
- m_rxFreq=settings.value("RxFreq",1500).toInt();
- ui->RxFreqSpinBox->setValue(m_rxFreq);
- m_txFreq=settings.value("TxFreq",1500).toInt();
- ui->TxFreqSpinBox->setValue(m_txFreq);
- soundOutThread.setTxFreq(m_txFreq);
- m_saveDecoded=ui->actionSave_decoded->isChecked();
- m_saveAll=ui->actionSave_all->isChecked();
- m_ndepth=settings.value("NDepth",3).toInt();
- m_inGain=settings.value("InGain",0).toInt();
- ui->inGain->setValue(m_inGain);
- m_monitorStartOFF=settings.value("MonitorOFF",false).toBool();
- ui->actionMonitor_OFF_at_startup->setChecked(m_monitorStartOFF);
- m_pskReporter=settings.value("PSKReporter",false).toBool();
- m_After73=settings.value("After73",false).toBool();
- m_macro=settings.value("Macros","TNX 73 GL").toStringList();
- m_dFreq=settings.value("DefaultFreqs","").toStringList();
- m_toRTTY=settings.value("toRTTY",false).toBool();
- ui->actionConvert_JT9_x_to_RTTY->setChecked(m_toRTTY);
- m_noSuffix=settings.value("NoSuffix",false).toBool();
- ui->actionLog_JT9_without_submode->setChecked(m_noSuffix);
- m_dBtoComments=settings.value("dBtoComments",false).toBool();
- ui->actionLog_dB_reports_to_Comments->setChecked(m_dBtoComments);
- m_rig=settings.value("Rig",214).toInt();
- m_rigIndex=settings.value("RigIndex",100).toInt();
- m_catPort=settings.value("CATport","None").toString();
- m_catPortIndex=settings.value("CATportIndex",0).toInt();
- m_serialRate=settings.value("SerialRate",4800).toInt();
- m_serialRateIndex=settings.value("SerialRateIndex",1).toInt();
- m_dataBits=settings.value("DataBits",8).toInt();
- m_dataBitsIndex=settings.value("DataBitsIndex",1).toInt();
- m_stopBits=settings.value("StopBits",2).toInt();
- m_stopBitsIndex=settings.value("StopBitsIndex",1).toInt();
- m_handshake=settings.value("Handshake","None").toString();
- m_handshakeIndex=settings.value("HandshakeIndex",0).toInt();
- m_band=settings.value("BandIndex",7).toInt();
- ui->bandComboBox->setCurrentIndex(m_band);
- dialFreqChanged2(m_dialFreq);
- m_catEnabled=settings.value("catEnabled",false).toBool();
- m_promptToLog=settings.value("PromptToLog",false).toBool();
- ui->actionPrompt_to_log_QSO->setChecked(m_promptToLog);
- m_insertBlank=settings.value("InsertBlank",false).toBool();
- ui->actionBlank_line_between_decoding_periods->setChecked(m_insertBlank);
- m_clearCallGrid=settings.value("ClearCallGrid",false).toBool();
- ui->actionClear_DX_Call_and_Grid_after_logging->setChecked(m_clearCallGrid);
- m_bMiles=settings.value("Miles",false).toBool();
- ui->actionDisplay_distance_in_miles->setChecked(m_bMiles);
- int n=settings.value("GUItab",0).toInt();
- ui->tabWidget->setCurrentIndex(n);
- m_quickCall=settings.value("QuickCall",false).toBool();
- ui->actionDouble_click_on_call_sets_Tx_Enable->setChecked(m_quickCall);
- m_73TxDisable=settings.value("73TxDisable",false).toBool();
- ui->action_73TxDisable->setChecked(m_73TxDisable);
- m_runaway=settings.value("Runaway",false).toBool();
- ui->actionRunaway_Tx_watchdog->setChecked(m_runaway);
- m_tx2QSO=settings.value("Tx2QSO",false).toBool();
- ui->actionTx2QSO->setChecked(m_tx2QSO);
- m_bMultipleOK=settings.value("MultipleOK",false).toBool();
- ui->actionAllow_multiple_instances->setChecked(m_bMultipleOK);
- m_bDTRoff=settings.value("DTRoff",false).toBool();
- m_pttData=settings.value("pttData",false).toBool();
- m_poll=settings.value("Polling",0).toInt();
- m_logQSOgeom=settings.value("LogQSOgeom",QRect(500,400,424,283)).toRect();
- outBufSize=settings.value("OutBufSize",4096).toInt();
- m_lockTxFreq=settings.value("LockTxFreq",false).toBool();
- ui->cbTxLock->setChecked(m_lockTxFreq);
- m_saveTxPower=settings.value("SaveTxPower",false).toBool();
- m_saveComments=settings.value("SaveComments",false).toBool();
- m_txPower=settings.value("TxPower","").toString();
- m_logComments=settings.value("LogComments","").toString();
- m_pskAntenna=settings.value("PSKantenna","").toString();
- m_fMin=settings.value("fMin",2500).toInt();
- m_bSplit=settings.value("TxSplit",false).toBool();
- m_bXIT=settings.value("UseXit",false).toBool();
- m_plus2kHz=settings.value("Plus2kHz",false).toBool();
- ui->cbPlus2kHz->setChecked(m_plus2kHz);
- settings.endGroup();
-
- if(!ui->actionLinrad->isChecked() && !ui->actionCuteSDR->isChecked() &&
- !ui->actionAFMHot->isChecked() && !ui->actionBlue->isChecked()) {
- on_actionLinrad_triggered();
- ui->actionLinrad->setChecked(true);
- }
- if(m_ndepth==1) ui->actionQuickDecode->setChecked(true);
- if(m_ndepth==2) ui->actionMediumDecode->setChecked(true);
- if(m_ndepth==3) ui->actionDeepestDecode->setChecked(true);
-
- statusChanged();
-}
-
-//-------------------------------------------------------------- dataSink()
-void MainWindow::dataSink(int k)
-{
- static float s[NSMAX];
- static int ihsym=0;
- static int nzap=0;
- static int trmin;
- static int npts8;
- static float px=0.0;
- static float df3;
- static float slope;
-
- if(m_diskData) {
- jt9com_.ndiskdat=1;
- } else {
- jt9com_.ndiskdat=0;
- }
-
-// Get power, spectrum, and ihsym
- trmin=m_TRperiod/60;
- slope=0.0;
- if(g_pWideGraph!=NULL) slope=(float)g_pWideGraph->getSlope();
- symspec_(&k,&trmin,&m_nsps,&m_inGain,&slope,&px,s,&df3,&ihsym,&npts8);
- if(ihsym <=0) return;
- QString t;
- m_pctZap=nzap*100.0/m_nsps;
- t.sprintf(" Rx noise: %5.1f ",px);
- signalMeter->setValue(px); // Update thermometer
- if(m_monitoring || m_diskData) {
- g_pWideGraph->dataSink2(s,df3,ihsym,m_diskData);
- }
-
- if(ihsym == m_hsymStop) {
- m_dataAvailable=true;
- jt9com_.npts8=(ihsym*m_nsps)/16;
- jt9com_.newdat=1;
- jt9com_.nagain=0;
- jt9com_.nzhsym=m_hsymStop;
- QDateTime t = QDateTime::currentDateTimeUtc();
- m_dateTime=t.toString("yyyy-MMM-dd hh:mm");
- decode(); //Start decoder
- if(!m_diskData) { //Always save; may delete later
- int ihr=t.time().toString("hh").toInt();
- int imin=t.time().toString("mm").toInt();
- imin=imin - (imin%(m_TRperiod/60));
- QString t2;
- t2.sprintf("%2.2d%2.2d",ihr,imin);
- m_fname=m_saveDir + "/" + t.date().toString("yyMMdd") + "_" +
- t2 + ".wav";
- *future2 = QtConcurrent::run(savewav, m_fname, m_TRperiod);
- watcher2->setFuture(*future2);
- }
- }
- soundInThread.m_dataSinkBusy=false;
-}
-
-void MainWindow::showSoundInError(const QString& errorMsg)
- {QMessageBox::critical(this, tr("Error in SoundIn"), errorMsg);}
-
-void MainWindow::showStatusMessage(const QString& statusMsg)
- {statusBar()->showMessage(statusMsg);}
-
-void MainWindow::on_actionDeviceSetup_triggered() //Setup Dialog
-{
- DevSetup dlg(this);
- dlg.m_myCall=m_myCall;
- dlg.m_myGrid=m_myGrid;
- dlg.m_pskAntenna=m_pskAntenna;
- dlg.m_idInt=m_idInt;
- dlg.m_pttMethodIndex=m_pttMethodIndex;
- dlg.m_pttPort=m_pttPort;
- dlg.m_saveDir=m_saveDir;
- dlg.m_paInDevice=m_paInDevice;
- dlg.m_paOutDevice=m_paOutDevice;
- dlg.m_pskReporter=m_pskReporter;
- dlg.m_After73=m_After73;
- dlg.m_macro=m_macro;
- dlg.m_dFreq=m_dFreq;
- dlg.m_catEnabled=m_catEnabled;
- dlg.m_rig=m_rig;
- dlg.m_rigIndex=m_rigIndex;
- dlg.m_catPort=m_catPort;
- dlg.m_catPortIndex=m_catPortIndex;
- dlg.m_serialRate=m_serialRate;
- dlg.m_serialRateIndex=m_serialRateIndex;
- dlg.m_dataBits=m_dataBits;
- dlg.m_dataBitsIndex=m_dataBitsIndex;
- dlg.m_stopBits=m_stopBits;
- dlg.m_stopBitsIndex=m_stopBitsIndex;
- dlg.m_handshake=m_handshake;
- dlg.m_handshakeIndex=m_handshakeIndex;
- dlg.m_bDTRoff=m_bDTRoff;
- dlg.m_pttData=m_pttData;
- dlg.m_poll=m_poll;
- dlg.m_bSplit=m_bSplit;
- dlg.m_bXIT=m_bXIT;
-
- if(m_bRigOpen) {
- rig->close();
- ui->readFreq->setStyleSheet("");
- ui->readFreq->setEnabled(false);
- if(m_rig<9900) delete rig;
- m_bRigOpen=false;
- m_catEnabled=false;
- m_CATerror=false;
- }
-
- dlg.initDlg();
- if(dlg.exec() == QDialog::Accepted) {
- m_myCall=dlg.m_myCall;
- m_myGrid=dlg.m_myGrid;
- m_pskAntenna=dlg.m_pskAntenna;
- m_idInt=dlg.m_idInt;
- m_pttMethodIndex=dlg.m_pttMethodIndex;
- m_pttPort=dlg.m_pttPort;
- m_saveDir=dlg.m_saveDir;
- m_paInDevice=dlg.m_paInDevice;
- m_paOutDevice=dlg.m_paOutDevice;
- m_macro=dlg.m_macro;
- m_dFreq=dlg.m_dFreq;
- m_catEnabled=dlg.m_catEnabled;
- m_rig=dlg.m_rig;
- m_rigIndex=dlg.m_rigIndex;
- m_catPort=dlg.m_catPort;
- m_catPortIndex=dlg.m_catPortIndex;
- m_serialRate=dlg.m_serialRate;
- m_serialRateIndex=dlg.m_serialRateIndex;
- m_dataBits=dlg.m_dataBits;
- m_dataBitsIndex=dlg.m_dataBitsIndex;
- m_stopBits=dlg.m_stopBits;
- m_stopBitsIndex=dlg.m_stopBitsIndex;
- m_handshake=dlg.m_handshake;
- m_handshakeIndex=dlg.m_handshakeIndex;
- m_bDTRoff=dlg.m_bDTRoff;
- m_pttData=dlg.m_pttData;
- m_poll=dlg.m_poll;
-
-#ifdef WIN32
- if(dlg.m_pskReporter!=m_pskReporter) {
- if(dlg.m_pskReporter) {
- int rc=ReporterInitialize(NULL,NULL);
- if(rc==0) {
- m_pskReporterInit=true;
- } else {
- m_pskReporterInit=false;
- rc=ReporterGetInformation(buffer,256);
- msgBox(QString::fromStdWString(buffer));
- }
- } else {
- rc=ReporterUninitialize();
- m_pskReporterInit=false;
- }
- }
-#endif
- m_pskReporter=dlg.m_pskReporter;
-
-#ifdef UNIX
- if(m_pskReporter) {
- psk_Reporter->setLocalStation(m_myCall,m_myGrid, "WSJT-X r" + rev.mid(6,4) );
- }
-#endif
-
- m_After73=dlg.m_After73;
-
- if(dlg.m_restartSoundIn) {
- soundInThread.quit();
- soundInThread.wait(1000);
- soundInThread.setInputDevice(m_paInDevice);
- soundInThread.start(QThread::HighestPriority);
- }
-
- if(dlg.m_restartSoundOut) {
- soundOutThread.quitExecution=true;
- soundOutThread.wait(1000);
- soundOutThread.setOutputDevice(m_paOutDevice);
- }
- }
- m_catEnabled=dlg.m_catEnabled;
-
- if(m_catEnabled) {
- rigOpen();
- } else {
- ui->readFreq->setStyleSheet("");
- }
-
- if(dlg.m_bSplit!=m_bSplit or dlg.m_bXIT!=m_bXIT) {
- m_bSplit=dlg.m_bSplit;
- m_bXIT=dlg.m_bXIT;
- if(m_bSplit or m_bXIT) setXIT(m_txFreq);
- if(m_bRigOpen and !m_bSplit) {
- int ret=rig->setSplitFreq(MHz(m_dialFreq),RIG_VFO_B);
- if(ret!=RIG_OK) {
- QString rt;
- rt.sprintf("Setting VFO_B failed: %d",ret);
- msgBox(rt);
- }
- }
- }
-}
-
-void MainWindow::on_monitorButton_clicked() //Monitor
-{
- m_monitoring=true;
- soundInThread.setMonitoring(true);
- m_diskData=false;
-}
-
-void MainWindow::on_actionLinrad_triggered() //Linrad palette
-{
- if(g_pWideGraph != NULL) g_pWideGraph->setPalette("Linrad");
-}
-
-void MainWindow::on_actionCuteSDR_triggered() //CuteSDR palette
-{
- if(g_pWideGraph != NULL) g_pWideGraph->setPalette("CuteSDR");
-}
-
-void MainWindow::on_actionAFMHot_triggered()
-{
- if(g_pWideGraph != NULL) g_pWideGraph->setPalette("AFMHot");
-}
-
-void MainWindow::on_actionBlue_triggered()
-{
- if(g_pWideGraph != NULL) g_pWideGraph->setPalette("Blue");
-}
-
-void MainWindow::on_actionAbout_triggered() //Display "About"
-{
- CAboutDlg dlg(this,Program_Title_Version);
- dlg.exec();
-}
-
-void MainWindow::on_autoButton_clicked() //Auto
-{
- m_auto = !m_auto;
- if(m_auto) {
- ui->autoButton->setStyleSheet(m_pbAutoOn_style);
- } else {
- btxok=false;
- ui->autoButton->setStyleSheet("");
- on_monitorButton_clicked();
- m_repeatMsg=0;
- }
-}
-
-void MainWindow::keyPressEvent( QKeyEvent *e ) //keyPressEvent
-{
- int n;
- switch(e->key())
- {
- case Qt::Key_1:
- if(e->modifiers() & Qt::AltModifier) {
- on_txb1_clicked();
- break;
- }
- case Qt::Key_2:
- if(e->modifiers() & Qt::AltModifier) {
- on_txb2_clicked();
- break;
- }
- case Qt::Key_3:
- if(e->modifiers() & Qt::AltModifier) {
- on_txb3_clicked();
- break;
- }
- case Qt::Key_4:
- if(e->modifiers() & Qt::AltModifier) {
- on_txb4_clicked();
- break;
- }
- case Qt::Key_5:
- if(e->modifiers() & Qt::AltModifier) {
- on_txb5_clicked();
- break;
- }
- case Qt::Key_6:
- if(e->modifiers() & Qt::AltModifier) {
- on_txb6_clicked();
- break;
- }
- case Qt::Key_D:
- if(e->modifiers() & Qt::ShiftModifier) {
- if(!m_decoderBusy) {
- jt9com_.newdat=0;
- jt9com_.nagain=0;
- decode();
- break;
- }
- }
- break;
- case Qt::Key_F4:
- ui->dxCallEntry->setText("");
- ui->dxGridEntry->setText("");
- genStdMsgs("");
- m_ntx=6;
- ui->txrb6->setChecked(true);
- break;
- case Qt::Key_F6:
- if(e->modifiers() & Qt::ShiftModifier) {
- on_actionDecode_remaining_files_in_directory_triggered();
- }
- break;
- case Qt::Key_F11:
- n=11;
- if(e->modifiers() & Qt::ControlModifier) n+=100;
- bumpFqso(n);
- break;
- case Qt::Key_F12:
- n=12;
- if(e->modifiers() & Qt::ControlModifier) n+=100;
- bumpFqso(n);
- break;
- case Qt::Key_F:
- if(e->modifiers() & Qt::ControlModifier) {
- if(ui->tabWidget->currentIndex()==0) {
- ui->tx5->clear();
- ui->tx5->setFocus();
- } else {
- ui->freeTextMsg->clear();
- ui->freeTextMsg->setFocus();
- }
- break;
- }
- case Qt::Key_G:
- if(e->modifiers() & Qt::AltModifier) {
- genStdMsgs(m_rpt);
- break;
- }
- case Qt::Key_H:
- if(e->modifiers() & Qt::AltModifier) {
- on_stopTxButton_clicked();
- break;
- }
- case Qt::Key_L:
- if(e->modifiers() & Qt::ControlModifier) {
- lookup();
- genStdMsgs(m_rpt);
- break;
- }
- case Qt::Key_V:
- if(e->modifiers() & Qt::AltModifier) {
- m_fileToSave=m_fname;
- break;
- }
- }
-}
-
-void MainWindow::bumpFqso(int n) //bumpFqso()
-{
- int i;
- bool ctrl = (n>=100);
- n=n%100;
- i=g_pWideGraph->rxFreq();
- if(n==11) i--;
- if(n==12) i++;
- g_pWideGraph->setRxFreq(i);
- if(ctrl) {
- ui->TxFreqSpinBox->setValue(i);
- g_pWideGraph->setTxFreq(i);
- }
-}
-
-void MainWindow::dialFreqChanged2(double f)
-{
- m_dialFreq=f;
- if(m_band<0 or m_band>15 or m_dFreq.length()<=1) return;
- QString t;
- t.sprintf("%.6f",m_dialFreq);
- int n=t.length();
- t=t.mid(0,n-3) + " " + t.mid(n-3,3);
- double fBand=m_dFreq[m_band].toDouble();
- if(qAbs(m_dialFreq-fBand)<0.01) {
- ui->labDialFreq->setStyleSheet( \
- "QLabel { background-color : black; color : yellow; }");
- } else {
- ui->labDialFreq->setStyleSheet( \
- "QLabel { background-color : red; color : yellow; }");
- ui->labDialFreq->setText(t);
- }
- ui->labDialFreq->setText(t);
- statusChanged();
- if(g_pWideGraph!=NULL) g_pWideGraph->setDialFreq(m_dialFreq);
-}
-
-void MainWindow::statusChanged()
-{
- QFile f("wsjtx_status.txt");
- if(f.open(QFile::WriteOnly | QIODevice::Text)) {
- QTextStream out(&f);
- out << m_dialFreq << ";" << m_mode << ";" << m_hisCall << ";"
- << ui->rptSpinBox->value() << ";" << m_modeTx << endl;
- f.close();
- } else {
- msgBox("Cannot open file \"wsjtx_status.txt\".");
- return;
- }
-}
-
-bool MainWindow::eventFilter(QObject *object, QEvent *event) //eventFilter()
-{
- if (event->type() == QEvent::KeyPress) {
- QKeyEvent *keyEvent = static_cast<QKeyEvent *>(event);
- MainWindow::keyPressEvent(keyEvent);
- return QObject::eventFilter(object, event);
- }
- return QObject::eventFilter(object, event);
-}
-
-void MainWindow::createStatusBar() //createStatusBar
-{
- lab1 = new QLabel("Receiving");
- lab1->setAlignment(Qt::AlignHCenter);
- lab1->setMinimumSize(QSize(80,18));
- lab1->setStyleSheet("QLabel{background-color: #00ff00}");
- lab1->setFrameStyle(QFrame::Panel | QFrame::Sunken);
- statusBar()->addWidget(lab1);
-
- lab2 = new QLabel("");
- lab2->setAlignment(Qt::AlignHCenter);
- lab2->setMinimumSize(QSize(150,18));
- lab2->setFrameStyle(QFrame::Panel | QFrame::Sunken);
- statusBar()->addWidget(lab2);
-
- lab3 = new QLabel("");
- lab3->setAlignment(Qt::AlignHCenter);
- lab3->setMinimumSize(QSize(80,18));
- lab3->setFrameStyle(QFrame::Panel | QFrame::Sunken);
- statusBar()->addWidget(lab3);
-}
-
-void MainWindow::on_actionExit_triggered() //Exit()
-{
- OnExit();
-}
-
-void MainWindow::closeEvent(QCloseEvent*)
-{
- OnExit();
-}
-
-void MainWindow::OnExit()
-{
- g_pWideGraph->saveSettings();
- if(m_fname != "") killFile();
- m_killAll=true;
- mem_jt9->detach();
- QFile quitFile(m_appDir + "/.quit");
- quitFile.open(QIODevice::ReadWrite);
- QFile lockFile(m_appDir + "/.lock");
- lockFile.remove(); // Allow jt9 to terminate
- bool b=proc_jt9.waitForFinished(1000);
- if(!b) proc_jt9.kill();
- quitFile.remove();
- qApp->exit(0); // Exit the event loop
-}
-
-void MainWindow::on_stopButton_clicked() //stopButton
-{
- m_monitoring=false;
- soundInThread.setMonitoring(m_monitoring);
- m_loopall=false;
-}
-
-void MainWindow::msgBox(QString t) //msgBox
-{
- msgBox0.setText(t);
- msgBox0.exec();
-}
-
-void MainWindow::on_actionOnline_Users_Guide_triggered() //Display manual
-{
- QDesktopServices::openUrl(QUrl(
- "http://www.physics.princeton.edu/pulsar/K1JT/WSJT-X_Users_Guide_v1.1.pdf",
- QUrl::TolerantMode));
-}
-
-void MainWindow::on_actionWide_Waterfall_triggered() //Display Waterfalls
-{
- if(g_pWideGraph==NULL) {
- g_pWideGraph = new WideGraph(0);
- g_pWideGraph->setWindowTitle("Wide Graph");
- g_pWideGraph->setGeometry(m_wideGraphGeom);
- Qt::WindowFlags flags = Qt::WindowCloseButtonHint |
- Qt::WindowMinimizeButtonHint;
- g_pWideGraph->setWindowFlags(flags);
- connect(g_pWideGraph, SIGNAL(freezeDecode2(int)),this,
- SLOT(freezeDecode(int)));
- connect(g_pWideGraph, SIGNAL(f11f12(int)),this,
- SLOT(bumpFqso(int)));
- connect(g_pWideGraph, SIGNAL(setXIT2(int)),this,
- SLOT(setXIT(int)));
-// connect(g_pWideGraph, SIGNAL(dialFreqChanged(double)),this,
-// SLOT(dialFreqChanged2(double)));
- }
- g_pWideGraph->show();
-}
-
-void MainWindow::on_actionOpen_triggered() //Open File
-{
- m_monitoring=false;
- soundInThread.setMonitoring(m_monitoring);
- QString fname;
- fname=QFileDialog::getOpenFileName(this, "Open File", m_path,
- "WSJT Files (*.wav)");
- if(fname != "") {
- m_path=fname;
- int i;
- i=fname.indexOf(".wav") - 11;
- if(i>=0) {
- lab1->setStyleSheet("QLabel{background-color: #66ff66}");
- lab1->setText(" " + fname.mid(i,15) + " ");
- }
- on_stopButton_clicked();
- m_diskData=true;
- *future1 = QtConcurrent::run(getfile, fname, m_TRperiod);
- watcher1->setFuture(*future1); // call diskDat() when done
- }
-}
-
-void MainWindow::on_actionOpen_next_in_directory_triggered() //Open Next
-{
- int i,len;
- QFileInfo fi(m_path);
- QStringList list;
- list= fi.dir().entryList().filter(".wav");
- for (i = 0; i < list.size()-1; ++i) {
- if(i==list.size()-2) m_loopall=false;
- len=list.at(i).length();
- if(list.at(i)==m_path.right(len)) {
- int n=m_path.length();
- QString fname=m_path.replace(n-len,len,list.at(i+1));
- m_path=fname;
- int i;
- i=fname.indexOf(".wav") - 11;
- if(i>=0) {
- lab1->setStyleSheet("QLabel{background-color: #66ff66}");
- lab1->setText(" " + fname.mid(i,len) + " ");
- }
- m_diskData=true;
- *future1 = QtConcurrent::run(getfile, fname, m_TRperiod);
- watcher1->setFuture(*future1);
- return;
- }
- }
-}
- //Open all remaining files
-void MainWindow::on_actionDecode_remaining_files_in_directory_triggered()
-{
- m_loopall=true;
- on_actionOpen_next_in_directory_triggered();
-}
-
-void MainWindow::diskDat() //diskDat()
-{
- int k;
- int kstep=m_nsps/2;
- m_diskData=true;
- for(int n=1; n<=m_hsymStop; n++) { // Do the half-symbol FFTs
- k=(n+1)*kstep;
- jt9com_.npts8=k/8;
- dataSink(k);
- if(n%10 == 1 or n == m_hsymStop)
- qApp->processEvents(); //Keep GUI responsive
- }
-}
-
-void MainWindow::diskWriteFinished() //diskWriteFinished
-{
-}
-
-//Delete ../save/*.wav
-void MainWindow::on_actionDelete_all_wav_files_in_SaveDir_triggered()
-{
- int i;
- QString fname;
- int ret = QMessageBox::warning(this, "Confirm Delete",
- "Are you sure you want to delete all *.wav files in\n" +
- QDir::toNativeSeparators(m_saveDir) + " ?",
- QMessageBox::Yes | QMessageBox::No, QMessageBox::Yes);
- if(ret==QMessageBox::Yes) {
- QDir dir(m_saveDir);
- QStringList files=dir.entryList(QDir::Files);
- QList<QString>::iterator f;
- for(f=files.begin(); f!=files.end(); ++f) {
- fname=*f;
- i=(fname.indexOf(".wav"));
- if(i>10) dir.remove(fname);
- }
- }
-}
-
-void MainWindow::on_actionNone_triggered() //Save None
-{
- m_saveDecoded=false;
- m_saveAll=false;
- ui->actionNone->setChecked(true);
-}
-
-void MainWindow::on_actionSave_decoded_triggered()
-{
- m_saveDecoded=true;
- m_saveAll=false;
- ui->actionSave_decoded->setChecked(true);
-}
-
-void MainWindow::on_actionSave_all_triggered() //Save All
-{
- m_saveDecoded=false;
- m_saveAll=true;
- ui->actionSave_all->setChecked(true);
-}
-
-void MainWindow::on_actionKeyboard_shortcuts_triggered()
-{
- pShortcuts = new QTextEdit(0);
- pShortcuts->setReadOnly(true);
- pShortcuts->setFontPointSize(10);
- pShortcuts->setWindowTitle("Keyboard Shortcuts");
- pShortcuts->setGeometry(QRect(45,50,430,460));
- Qt::WindowFlags flags = Qt::WindowCloseButtonHint |
- Qt::WindowMinimizeButtonHint;
- pShortcuts->setWindowFlags(flags);
- QString shortcuts = m_appDir + "/shortcuts.txt";
- QFile f(shortcuts);
- if(!f.open(QIODevice::ReadOnly | QIODevice::Text)) {
- msgBox("Cannot open " + shortcuts);
- return;
- }
- QTextStream s(&f);
- QString t;
- for(int i=0; i<100; i++) {
- t=s.readLine();
- pShortcuts->append(t);
- if(s.atEnd()) break;
- }
- pShortcuts->show();
-}
-
-void MainWindow::on_actionSpecial_mouse_commands_triggered()
-{
- QTextEdit* pMouseCmnds;
- pMouseCmnds = new QTextEdit(0);
- pMouseCmnds->setReadOnly(true);
- pMouseCmnds->setFontPointSize(10);
- pMouseCmnds->setWindowTitle("Special Mouse Commands");
- pMouseCmnds->setGeometry(QRect(45,50,440,300));
- Qt::WindowFlags flags = Qt::WindowCloseButtonHint |
- Qt::WindowMinimizeButtonHint;
- pMouseCmnds->setWindowFlags(flags);
- QString mouseCmnds = m_appDir + "/mouse_commands.txt";
- QFile f(mouseCmnds);
- if(!f.open(QIODevice::ReadOnly | QIODevice::Text)) {
- msgBox("Cannot open " + mouseCmnds);
- return;
- }
- QTextStream s(&f);
- QString t;
- for(int i=0; i<100; i++) {
- t=s.readLine();
- pMouseCmnds->append(t);
- if(s.atEnd()) break;
- }
- pMouseCmnds->show();
-}
-
-void MainWindow::on_DecodeButton_clicked() //Decode request
-{
- if(!m_decoderBusy) {
- jt9com_.newdat=0;
- jt9com_.nagain=1;
- decode();
- }
-}
-
-void MainWindow::freezeDecode(int n) //freezeDecode()
-{
- bool ctrl = (n>=100);
- int i=g_pWideGraph->rxFreq();
- if(ctrl) {
- ui->TxFreqSpinBox->setValue(i);
- g_pWideGraph->setTxFreq(i);
- }
- if((n%100)==2) on_DecodeButton_clicked();
-}
-
-void MainWindow::decode() //decode()
-{
- if(!m_dataAvailable) return;
- ui->DecodeButton->setStyleSheet(m_pbdecoding_style1);
- if(jt9com_.newdat==1 && (!m_diskData)) {
- qint64 ms = QDateTime::currentMSecsSinceEpoch() % 86400000;
- int imin=ms/60000;
- int ihr=imin/60;
- imin=imin % 60;
- imin=imin - (imin % (m_TRperiod/60));
- jt9com_.nutc=100*ihr + imin;
- }
-
- jt9com_.nfqso=g_pWideGraph->rxFreq();
- jt9com_.ndepth=m_ndepth;
- jt9com_.ndiskdat=0;
- if(m_diskData) jt9com_.ndiskdat=1;
- int nfa=g_pWideGraph->getFmin();
- int nfb=g_pWideGraph->getFmax();
- if(m_mode=="JT9") nfa=200; //decode from 0 to fmax
- if(m_mode=="JT65") nfa=nfb; //decode from 0 to fmax
- jt9com_.nfa=nfa;
- jt9com_.nfb=nfb;
- jt9com_.ntol=20;
- if(jt9com_.nutc < m_nutc0) m_RxLog |= 1; //Date and Time to all.txt
- m_nutc0=jt9com_.nutc;
- jt9com_.ntxmode=9;
- if(m_modeTx=="JT65") jt9com_.ntxmode=65;
- jt9com_.nmode=9;
- if(m_mode=="JT65") jt9com_.nmode=65;
- if(m_mode=="JT9+JT65") jt9com_.nmode=9+65;
- jt9com_.ntrperiod=m_TRperiod;
- m_nsave=0;
- if(m_saveDecoded) m_nsave=2;
- jt9com_.nsave=m_nsave;
- strncpy(jt9com_.datetime, m_dateTime.toLatin1(), 20);
-
- //newdat=1 ==> this is new data, must do the big FFT
- //nagain=1 ==> decode only at fQSO +/- Tol
-
- char *to = (char*)mem_jt9->data();
- char *from = (char*) jt9com_.ss;
- int size=sizeof(jt9com_);
- if(jt9com_.newdat==0) {
- int noffset = 4*184*NSMAX + 4*NSMAX + 2*NTMAX*12000;
- to += noffset;
- from += noffset;
- size -= noffset;
- }
- memcpy(to, from, qMin(mem_jt9->size(), size));
-
- QFile lockFile(m_appDir + "/.lock"); // Allow jt9 to start
- lockFile.remove();
- decodeBusy(true);
-}
-
-void MainWindow::jt9_error() //jt9_error
-{
- if(!m_killAll) {
- msgBox("Error starting or running\n" + m_appDir + "/jt9 -s");
- exit(1);
- }
-}
-
-void MainWindow::readFromStderr() //readFromStderr
-{
- QByteArray t=proc_jt9.readAllStandardError();
- msgBox(t);
-}
-
-void MainWindow::readFromStdout() //readFromStdout
-{
- while(proc_jt9.canReadLine()) {
- QByteArray t=proc_jt9.readLine();
- if(t.indexOf("<DecodeFinished>") >= 0) {
- m_bdecoded = (t.mid(23,1).toInt()==1);
- bool keepFile=m_saveAll or (m_saveDecoded and m_bdecoded);
- if(!keepFile and !m_diskData) killFileTimer->start(45*1000); //Kill in 45 s
- jt9com_.nagain=0;
- jt9com_.ndiskdat=0;
- QFile lockFile(m_appDir + "/.lock");
- lockFile.open(QIODevice::ReadWrite);
- ui->DecodeButton->setStyleSheet("");
- decodeBusy(false);
- m_RxLog=0;
- m_startAnother=m_loopall;
- m_blankLine=true;
- return;
- } else {
- QFile f("ALL.TXT");
- f.open(QIODevice::WriteOnly | QIODevice::Text | QIODevice::Append);
- QTextStream out(&f);
- if(m_RxLog && 1) {
- out << QDateTime::currentDateTimeUtc().toString("yyyy-MMM-dd hh:mm")
- << " " << m_dialFreq << " MHz " << m_mode << endl;
- m_RxLog=0;
- }
- int n=t.length();
- out << t.mid(0,n-2) << endl;
- f.close();
-
- QTextCursor cursor;
- QTextBlockFormat bf;
- if(m_insertBlank and m_blankLine and jt9com_.nagain==0) {
- QString bg="#d3d3d3";
- bf.setBackground(QBrush(QColor(bg)));
- QString tt="----------------------------------------";
- QString s = "<table border=0 cellspacing=0 width=100%><tr><td bgcolor=\"" +
- bg + "\"><pre>" + tt + "</pre></td></tr></table>";
- cursor = ui->decodedTextBrowser->textCursor();
- cursor.movePosition(QTextCursor::End);
- bf = cursor.blockFormat();
- bf.setBackground(QBrush(QColor(bg)));
- cursor.insertHtml(s);
- m_blankLine=false;
- }
-
- QString bg="white";
- if(t.indexOf(" CQ ")>0) bg="#66ff66"; //green
- if(m_myCall!="" and t.indexOf(" "+m_myCall+" ")>0) bg="#ff6666"; //red
- bool bQSO=abs(t.mid(14,4).toInt() - g_pWideGraph->rxFreq()) <= 10;
- QString t1=t.replace("\n","").mid(0,t.length()-4);
- QString s = "<table border=0 cellspacing=0 width=100%><tr><td bgcolor=\"" +
- bg + "\"><pre>" + t1 + "</pre></td></tr></table>";
- bool b65=t1.indexOf("#")==19;
- if(bQSO) {
- cursor = ui->decodedTextBrowser2->textCursor();
- cursor.movePosition(QTextCursor::End);
- bf = cursor.blockFormat();
- bf.setBackground(QBrush(QColor(bg)));
- cursor.insertHtml(s);
- ui->decodedTextBrowser2->setTextCursor(cursor);
- m_QSOmsg=t1;
- if(b65 and m_modeTx!="JT65") on_pbTxMode_clicked();
- if(!b65 and m_modeTx=="JT65") on_pbTxMode_clicked();
- }
-
- if(jt9com_.nagain==0) {
- if(t.indexOf(" CQ ")>0) bg="#66ff66"; //green
- if(m_myCall!="" and t.indexOf(" "+m_myCall+" ")>0) bg="#ff6666"; //red
- QString s = "<table border=0 cellspacing=0 width=100%><tr><td bgcolor=\"" +
- bg + "\"><pre>" + t1 + "</pre></td></tr></table>";
- cursor = ui->decodedTextBrowser->textCursor();
- cursor.movePosition(QTextCursor::End);
- bf = cursor.blockFormat();
- bf.setBackground(QBrush(QColor(bg)));
- cursor.insertHtml(s);
- ui->decodedTextBrowser->setTextCursor(cursor);
- }
-
- QString msg=t.mid(21);
- int i1=msg.indexOf("\r");
- if(i1>0) msg=msg.mid(0,i1-1) + " ";
- bool b=stdmsg_(msg.mid(0,22).toLatin1().constData(),22);
- QStringList w=msg.split(" ",QString::SkipEmptyParts);
- if(b and w[0]==m_myCall) {
- QString tt="";
- if(w.length()>=3) tt=w[2];
- bool ok;
- i1=tt.toInt(&ok);
- if(ok and i1>=-50 and i1<50) {
- m_rptRcvd=tt;
- } else {
- if(tt.mid(0,1)=="R") {
- i1=tt.mid(1).toInt(&ok);
- if(ok and i1>=-50 and i1<50) {
- m_rptRcvd=tt.mid(1);
- }
- }
- }
- }
-
- int nsec=QDateTime::currentMSecsSinceEpoch()/1000-m_secBandChanged;
- bool okToPost=(nsec>50);
- QString msgmode="JT9";
- if(b65) msgmode="JT65";
- i1=msg.indexOf(" ");
- QString c2=msg.mid(i1+1);
- int i2=c2.indexOf(" ");
- QString g2=c2.mid(i2+1,4);
- c2=c2.mid(0,i2);
- QString remote="call," + c2 + ",";
- if(gridOK(g2)) remote += "gridsquare," + g2 + ",";
- int nHz=t.mid(14,4).toInt();
- uint nfreq=1000000.0*m_dialFreq + nHz + 0.5;
- remote += "freq," + QString::number(nfreq);
- int nsnr=t.mid(5,3).toInt();
- remote += ",mode," + msgmode + ",snr," + QString::number(nsnr) + ",,";
- wchar_t tremote[256];
- remote.toWCharArray(tremote);
-
-#ifdef WIN32
- if(m_pskReporterInit and b and !m_diskData and okToPost) {
-
- QString local="station_callsign#" + m_myCall + "#" +
- "my_gridsquare#" + m_myGrid + "#";
- if(m_pskAntenna!="") local += "my_antenna#" + m_pskAntenna + "#";
- local += "programid#WSJT-X#programversion#" + rev.mid(6,4) + "##";
- wchar_t tlocal[256];
- local.toWCharArray(tlocal);
-
- int flags=REPORTER_SOURCE_AUTOMATIC;
- rc=ReporterSeenCallsign(tremote,tlocal,flags);
- if(rc!=0) {
- ReporterGetInformation(buffer,256);
- }
- rc=ReporterTickle();
- if(rc!=0) {
- rc=ReporterGetInformation(buffer,256);
- }
- }
-#else
- if(m_pskReporter and b and !m_diskData and okToPost) {
- QString freq = QString::number(nfreq);
- QString snr= QString::number(nsnr);
- if(gridOK(g2)) {
- psk_Reporter->addRemoteStation(c2,g2,freq,msgmode,snr,
- QString::number(QDateTime::currentDateTime().toTime_t()));
- }
- }
-#endif
- }
- }
-}
-
-void MainWindow::killFile()
-{
- if(m_fname==m_fileToSave) {
- } else {
- QFile savedFile(m_fname);
- savedFile.remove();
- }
-}
-
-void MainWindow::on_EraseButton_clicked() //Erase
-{
- qint64 ms=QDateTime::currentMSecsSinceEpoch();
- ui->decodedTextBrowser2->clear();
- m_QSOmsg="";
- if((ms-m_msErase)<500) {
- ui->decodedTextBrowser->clear();
- QFile f(m_appDir + "/decoded.txt");
- if(f.exists()) f.remove();
- }
- m_msErase=ms;
-}
-
-void MainWindow::decodeBusy(bool b) //decodeBusy()
-{
- m_decoderBusy=b;
- ui->DecodeButton->setEnabled(!b);
- ui->actionOpen->setEnabled(!b);
- ui->actionOpen_next_in_directory->setEnabled(!b);
- ui->actionDecode_remaining_files_in_directory->setEnabled(!b);
-}
-
-//------------------------------------------------------------- //guiUpdate()
-void MainWindow::guiUpdate()
-{
- static int iptt0=0;
- static bool btxok0=false;
- static char message[29];
- static char msgsent[29];
- static int nsendingsh=0;
- static int giptt00=-1;
- static int gcomport00=-1;
- static double onAirFreq0=0.0;
- int ret=0;
- QString rt;
-
- double tx1=0.0;
- double tx2=1.0 + 85.0*m_nsps/12000.0 + icw[0]*2560.0/48000.0;
- if(m_modeTx=="JT65") tx2=1.0 + 126*4096/11025.0 + icw[0]*2560.0/48000.0;
-
- if(!m_txFirst) {
- tx1 += m_TRperiod;
- tx2 += m_TRperiod;
- }
- qint64 ms = QDateTime::currentMSecsSinceEpoch() % 86400000;
- int nsec=ms/1000;
- double tsec=0.001*ms;
- double t2p=fmod(tsec,2*m_TRperiod);
- bool bTxTime = ((t2p >= tx1) and (t2p < tx2)) or m_tune;
-
- if(m_auto or m_tune) {
- QFile f("txboth");
- if(f.exists() and fmod(tsec,m_TRperiod) < (1.0 + 85.0*m_nsps/12000.0)) {
- bTxTime=true;
- }
-
- double onAirFreq=m_dialFreq+1.e-6*m_txFreq;
- if(onAirFreq>10.139900 and onAirFreq<10.140320) {
- bTxTime=false;
- if(m_tune) on_tuneButton_clicked();
- if(onAirFreq!=onAirFreq0) {
- onAirFreq0=onAirFreq;
- on_autoButton_clicked();
- QString t="Please choose another Tx frequency.\n";
- t+="WSJT-X will not knowingly transmit\n";
- t+="in the WSPR sub-band on 30 m.";
- msgBox0.setText(t);
- msgBox0.show();
- }
- }
-
- float fTR=float((nsec%m_TRperiod))/m_TRperiod;
- if(g_iptt==0 and ((bTxTime and !btxMute and fTR<0.4) or m_tune )) {
- icw[0]=m_ncw;
-
-//Raise PTT
- if(m_catEnabled and m_bRigOpen and m_pttMethodIndex==0) {
- g_iptt=1;
- if(m_pttData) ret=rig->setPTT(RIG_PTT_ON_DATA, RIG_VFO_CURR);
- if(!m_pttData) ret=rig->setPTT(RIG_PTT_ON_MIC, RIG_VFO_CURR);
- if(ret!=RIG_OK) {
- rt.sprintf("CAT control PTT failed: %d",ret);
- msgBox(rt);
- }
-
- }
-
- if(m_pttMethodIndex==1 or m_pttMethodIndex==2) { //DTR or RTS
- ptt(m_pttPort,1,&g_iptt,&g_COMportOpen);
- }
- if(m_pttMethodIndex==3) { //VOX
- g_iptt=1;
- }
- ptt1Timer->start(200); //Sequencer delay
- }
- if(!bTxTime || btxMute) {
- btxok=false;
- }
- }
-
-// Calculate Tx tones when needed
- if((g_iptt==1 && iptt0==0) || m_restart) {
- QByteArray ba;
- if(m_ntx == 1) ba=ui->tx1->text().toLocal8Bit();
- if(m_ntx == 2) ba=ui->tx2->text().toLocal8Bit();
- if(m_ntx == 3) ba=ui->tx3->text().toLocal8Bit();
- if(m_ntx == 4) ba=ui->tx4->text().toLocal8Bit();
- if(m_ntx == 5) ba=ui->tx5->text().toLocal8Bit();
- if(m_ntx == 6) ba=ui->tx6->text().toLocal8Bit();
- if(m_ntx == 7) ba=ui->genMsg->text().toLocal8Bit();
- if(m_ntx == 8) ba=ui->freeTextMsg->text().toLocal8Bit();
-
- ba2msg(ba,message);
-// ba2msg(ba,msgsent);
- int len1=22;
- int ichk=0,itext=0;
- if(m_modeTx=="JT9") genjt9_(message,&ichk,msgsent,itone,&itext,len1,len1);
- if(m_modeTx=="JT65") gen65_(message,&ichk,msgsent,itone,&itext,len1,len1);
- msgsent[22]=0;
- QString t=QString::fromLatin1(msgsent);
- if(m_tune) t="TUNE";
- lab2->setText("Last Tx: " + t);
- if(m_restart) {
- QFile f("ALL.TXT");
- f.open(QIODevice::WriteOnly | QIODevice::Text | QIODevice::Append);
- QTextStream out(&f);
- out << QDateTime::currentDateTimeUtc().toString("hhmm")
- << " Transmitting " << m_dialFreq << " MHz " << m_modeTx
- << ": " << t << endl;
- f.close();
- if(m_tx2QSO) displayTxMsg(t);
- }
-
- QStringList w=t.split(" ",QString::SkipEmptyParts);
- t="";
- if(w.length()==3) t=w[2];
- icw[0]=0;
- m_sent73=(t=="73" or itext!=0);
- if(m_sent73) {
- if(m_After73) icw[0]=m_ncw;
- if(m_promptToLog and !m_tune) logQSOTimer->start(200);
- }
-
- if(m_idInt>0) {
- int nmin=(m_sec0-m_secID)/60;
- if(nmin >= m_idInt) {
- icw[0]=m_ncw;
- m_secID=m_sec0;
- }
- }
-
- QString t2=QDateTime::currentDateTimeUtc().toString("hhmm");
- if(itext==0 and w.length()>=3 and w[1]==m_myCall) {
- int i1;
- bool ok;
- i1=t.toInt(&ok);
- if(ok and i1>=-50 and i1<50) {
- m_rptSent=t;
- m_qsoStart=t2;
- } else {
- if(t.mid(0,1)=="R") {
- i1=t.mid(1).toInt(&ok);
- if(ok and i1>=-50 and i1<50) {
- m_rptSent=t.mid(1);
- m_qsoStart=t2;
- }
- }
- }
- }
- if(itext==1 or (w.length()==3 and w[2]=="73")) m_qsoStop=t2;
- m_restart=false;
- }
-
-
-// If PTT was just raised, start a countdown for raising TxOK:
-// NB: could be better implemented with a timer
- if(g_iptt == 1 && iptt0 == 0) {
- nc1=-9; // TxDelay = 0.8 s
- }
- if(nc1 <= 0) {
- nc1++;
- }
- if(nc1 == 0) {
- QString t=QString::fromLatin1(msgsent);
- if(t==m_msgSent0) {
- m_repeatMsg++;
- } else {
- m_repeatMsg=0;
- m_msgSent0=t;
- }
-
- signalMeter->setValue(0);
- m_monitoring=false;
- soundInThread.setMonitoring(false);
- btxok=true;
- m_transmitting=true;
- ui->pbTxMode->setEnabled(false);
- if(!m_tune) {
- QFile f("ALL.TXT");
- f.open(QIODevice::WriteOnly | QIODevice::Text | QIODevice::Append);
- QTextStream out(&f);
- out << QDateTime::currentDateTimeUtc().toString("hhmm")
- << " Transmitting " << m_dialFreq << " MHz " << m_modeTx
- << ": " << t << endl;
- f.close();
- }
- if(m_tx2QSO and !m_tune) displayTxMsg(t);
- }
-
- if(!btxok && btxok0 && g_iptt==1) stopTx();
-
-/*
-// If btxok was just lowered, start a countdown for lowering PTT
- if(!btxok && btxok0 && g_iptt==1) nc0=-11; //RxDelay = 1.0 s
- if(nc0 <= 0) {
- nc0++;
- }
-*/
-
- if(m_monitoring) {
- ui->monitorButton->setStyleSheet(m_pbmonitor_style);
- } else {
- ui->monitorButton->setStyleSheet("");
- }
-
- if(m_startAnother) {
- m_startAnother=false;
- on_actionOpen_next_in_directory_triggered();
- }
-
- if(m_catEnabled and !m_bRigOpen) {
- rigOpen();
- }
-
- if(nsec != m_sec0) { //Once per second
- QDateTime t = QDateTime::currentDateTimeUtc();
- if(m_transmitting) {
- if(nsendingsh==1) {
- lab1->setStyleSheet("QLabel{background-color: #66ffff}");
- } else if(nsendingsh==-1) {
- lab1->setStyleSheet("QLabel{background-color: #ffccff}");
- } else {
- lab1->setStyleSheet("QLabel{background-color: #ffff33}");
- }
- if(m_tune) {
- lab1->setText("Tx: TUNE");
- } else {
- char s[37];
- sprintf(s,"Tx: %s",msgsent);
- lab1->setText(s);
- }
- } else if(m_monitoring) {
- lab1->setStyleSheet("QLabel{background-color: #00ff00}");
- lab1->setText("Receiving ");
- } else if (!m_diskData) {
- lab1->setStyleSheet("");
- lab1->setText("");
- }
-
- m_setftx=0;
- QString utc = t.date().toString("yyyy MMM dd") + "\n " +
- t.time().toString() + " ";
- ui->labUTC->setText(utc);
- if(!m_monitoring and !m_diskData) {
- signalMeter->setValue(0);
- }
-
- if(m_catEnabled and m_poll>0 and (nsec%m_poll)==0 and !m_decoderBusy) {
- double fMHz;
- if(m_dontReadFreq) {
- m_dontReadFreq=false;
- } else if(!m_transmitting) {
- for(int iter=0; iter<3; iter++) {
- fMHz=rig->getFreq(RIG_VFO_CURR)/1000000.0;
- if(fMHz<0.0 and iter>=2) {
- rt.sprintf("Rig control error %d\nFailed to read frequency.",
- int(1000000.0*fMHz));
- msgBox(rt);
- m_catEnabled=false;
- ui->readFreq->setStyleSheet("QPushButton{background-color: red; \
- border-width: 0px; border-radius: 5px;}");
- }
- }
- int ndiff=1000000.0*(fMHz-m_dialFreq);
- if(ndiff!=0) dialFreqChanged2(fMHz);
- }
- }
-
- m_sec0=nsec;
- }
-
- if(g_iptt!=giptt00 or g_COMportOpen!=gcomport00) {
- giptt00=g_iptt;
- gcomport00=g_COMportOpen;
- }
-
- iptt0=g_iptt;
- btxok0=btxok;
-} //End of GUIupdate
-
-void MainWindow::displayTxMsg(QString t)
-{
- QString bg="yellow";
- QTextBlockFormat bf;
- QTextCursor cursor;
- QString t1=" @ ";
- if(m_modeTx=="JT65") t1=" # ";
- QString t2;
- t2.sprintf("%4d",m_txFreq);
- t=QDateTime::currentDateTimeUtc().toString("hhmm") + \
- " Tx " + t2 + t1 + t;
- QString s = "<table border=0 cellspacing=0 width=100%><tr><td bgcolor=\"" +
- bg + "\"><pre>" + t + "</pre></td></tr></table>";
- cursor = ui->decodedTextBrowser2->textCursor();
- cursor.movePosition(QTextCursor::End);
- bf = cursor.blockFormat();
- bf.setBackground(QBrush(QColor(bg)));
- cursor.insertHtml(s);
- ui->decodedTextBrowser2->setTextCursor(cursor);
-}
-
-void MainWindow::startTx2()
-{
- if(!soundOutThread.isRunning()) {
- QString t=ui->tx6->text();
- double snr=t.mid(1,5).toDouble();
- if(snr>0.0 or snr < -50.0) snr=99.0;
- soundOutThread.setTxSNR(snr);
- soundOutThread.m_modeTx=m_modeTx;
- soundOutThread.start(QThread::HighestPriority);
- signalMeter->setValue(0);
- m_monitoring=false;
- soundInThread.setMonitoring(false);
- btxok=true;
- m_transmitting=true;
- ui->pbTxMode->setEnabled(false);
- }
-}
-
-void MainWindow::stopTx()
-{
- if (soundOutThread.isRunning()) {
- soundOutThread.quitExecution=true;
- soundOutThread.wait(3000);
- }
- m_transmitting=false;
- ui->pbTxMode->setEnabled(true);
- g_iptt=0;
- lab1->setStyleSheet("");
- lab1->setText("");
- ptt0Timer->start(200); //Sequencer delay
- m_monitoring=true;
- soundInThread.setMonitoring(true);
-}
-
-void MainWindow::stopTx2()
-{
- int ret=0;
- QString rt;
-
-//Lower PTT
- if(m_catEnabled and m_bRigOpen and m_pttMethodIndex==0) {
- ret=rig->setPTT(RIG_PTT_OFF, RIG_VFO_CURR); //CAT control for PTT=0
- if(ret!=RIG_OK) {
- rt.sprintf("CAT control PTT failed: %d",ret);
- msgBox(rt);
- }
- }
- if(m_pttMethodIndex==1 or m_pttMethodIndex==2) {
- ptt(m_pttPort,0,&g_iptt,&g_COMportOpen);
- }
- if(m_73TxDisable and m_sent73) on_stopTxButton_clicked();
-
- if(m_runaway and m_repeatMsg>m_watchdogLimit) {
- on_stopTxButton_clicked();
- msgBox0.setText("Runaway Tx watchdog");
- msgBox0.show();
- m_repeatMsg=0;
- }
-}
-
-void MainWindow::ba2msg(QByteArray ba, char message[]) //ba2msg()
-{
- int iz=ba.length();
- for(int i=0;i<22; i++) {
- if(i<iz) {
- message[i]=ba[i];
- } else {
- message[i]=32;
- }
- }
- message[22]=0;
-}
-
-void MainWindow::on_txFirstCheckBox_stateChanged(int nstate) //TxFirst
-{
- m_txFirst = (nstate==2);
-}
-
-void MainWindow::set_ntx(int n) //set_ntx()
-{
- m_ntx=n;
-}
-
-void MainWindow::on_txb1_clicked() //txb1
-{
- m_ntx=1;
- ui->txrb1->setChecked(true);
- m_restart=true;
-}
-
-void MainWindow::on_txb2_clicked() //txb2
-{
- m_ntx=2;
- ui->txrb2->setChecked(true);
- m_restart=true;
-}
-
-void MainWindow::on_txb3_clicked() //txb3
-{
- m_ntx=3;
- ui->txrb3->setChecked(true);
- m_restart=true;
-}
-
-void MainWindow::on_txb4_clicked() //txb4
-{
- m_ntx=4;
- ui->txrb4->setChecked(true);
- m_restart=true;
-}
-
-void MainWindow::on_txb5_clicked() //txb5
-{
- m_ntx=5;
- ui->txrb5->setChecked(true);
- m_restart=true;
-}
-
-void MainWindow::on_txb6_clicked() //txb6
-{
- m_ntx=6;
- ui->txrb6->setChecked(true);
- m_restart=true;
-}
-
-void MainWindow::doubleClickOnCall2(bool shift, bool ctrl)
-{
-
- m_decodedText2=true;
- doubleClickOnCall(shift,ctrl);
- m_decodedText2=false;
-}
-
-void MainWindow::doubleClickOnCall(bool shift, bool ctrl)
-{
- QTextCursor cursor;
- if(!m_decodedText2) cursor=ui->decodedTextBrowser2->textCursor();
- if(m_decodedText2) cursor=ui->decodedTextBrowser->textCursor();
- cursor.select(QTextCursor::LineUnderCursor);
- int i2=cursor.position();
- if(shift and i2==-9999) return; //Silence compiler warning
-
- QString t;
- if(!m_decodedText2) t= ui->decodedTextBrowser2->toPlainText(); //Full contents
- if(m_decodedText2) t= ui->decodedTextBrowser->toPlainText();
-
- QString t1 = t.mid(0,i2); //contents up to \n on selected line
- int i1=t1.lastIndexOf("\n") + 1; //points to first char of line
- QString t2 = t1.mid(i1,i2-i1); //selected line
-// if(t2.indexOf("Tx")==6) return; //Ignore Tx line
- int i4=t.mid(i1).length();
- if(i4>55) i4=55;
- QString t3=t.mid(i1,i4);
- int i5=t3.indexOf(" CQ DX ");
- if(i5>0) t3=t3.mid(0,i5+3) + "_" + t3.mid(i5+4); //Make it "CQ_DX" (one word)
- QStringList t4=t3.split(" ",QString::SkipEmptyParts);
- if(t4.length() <5) return; //Skip the rest if no decoded text
-
- int i9=m_QSOmsg.indexOf(t2);
- if(i9<0 and t2.indexOf("Tx")==-1) {
- QString bg="white";
- if(t2.indexOf(" CQ ")>0) bg="#66ff66"; //green
- if(m_myCall!="" and t2.indexOf(" "+m_myCall+" ")>0) bg="#ff6666"; //red
- QTextBlockFormat bf;
- QString s = "<table border=0 cellspacing=0 width=100%><tr><td bgcolor=\"" +
- bg + "\"><pre>" + t2 + "</pre></td></tr></table>";
- cursor = ui->decodedTextBrowser2->textCursor();
- cursor.movePosition(QTextCursor::End);
- bf = cursor.blockFormat();
- bf.setBackground(QBrush(QColor(bg)));
- cursor.insertHtml(s);
- ui->decodedTextBrowser2->setTextCursor(cursor);
- m_QSOmsg=t2;
- }
-
- int nfreq=t4.at(3).toInt();
- if(t4.at(1)=="Tx") nfreq=t4.at(2).toInt();
- g_pWideGraph->setRxFreq(nfreq); //Set Rx freq
- if(t4.at(1)=="Tx") {
- if(ctrl) ui->TxFreqSpinBox->setValue(nfreq); //Set Tx freq
- return;
- }
- if(t4.at(4)=="@") {
- m_modeTx="JT9";
- ui->pbTxMode->setText("Tx JT9 @");
- g_pWideGraph->setModeTx(m_modeTx);
- }
- if(t4.at(4)=="#") {
- m_modeTx="JT65";
- ui->pbTxMode->setText("Tx JT65 #");
- g_pWideGraph->setModeTx(m_modeTx);
- }
- QString firstcall=t4.at(5);
- // Don't change Tx freq if a station is calling me, unless m_lockTxFreq
- // is true or CTRL is held down or
- if((firstcall!=m_myCall) or m_lockTxFreq or ctrl) {
- ui->TxFreqSpinBox->setValue(nfreq);
- }
- QString hiscall=t4.at(6);
- QString hisgrid="";
- if(t4.length()>=8) hisgrid=t4.at(7);
- if(hiscall!=ui->dxCallEntry->text()) ui->dxGridEntry->setText("");
- ui->dxCallEntry->setText(hiscall);
- if(gridOK(hisgrid)) ui->dxGridEntry->setText(hisgrid);
- if(ui->dxGridEntry->text()=="") lookup();
- m_hisGrid=ui->dxGridEntry->text();
- int n = 60*t2.mid(0,2).toInt() + t2.mid(2,2).toInt();
- int nmod=n%(m_TRperiod/30);
- m_txFirst=(nmod!=0);
- ui->txFirstCheckBox->setChecked(m_txFirst);
- QString rpt=t4.at(1);
- if(rpt.indexOf(" ")==0) rpt="+" + rpt.mid(2,2);
- if(rpt.indexOf(" -")==0) rpt=rpt.mid(1,2);
- if(rpt.indexOf(" ")==0) rpt="+" + rpt.mid(1,2);
- int nr=rpt.toInt();
- if(nr<-50) rpt="-50";
- if(nr>49) rpt="+49";
- if(nr>=-9 and nr<=-1) rpt="-0" + rpt.mid(1);
- if(nr>=0 and nr<=9) rpt="+0" + rpt;
- if(nr>=10) rpt="+" + rpt;
- ui->rptSpinBox->setValue(rpt.toInt());
- genStdMsgs(rpt);
- if(t2.indexOf(m_myCall)>=0) {
- if(t4.length()>=7 and !gridOK(t4.at(7))) {
- QString r=t4.at(7);
- if(r.mid(0,3)=="RRR") {
- m_ntx=5;
- ui->txrb5->setChecked(true);
- if(ui->tabWidget->currentIndex()==1) {
- ui->genMsg->setText(ui->tx5->text());
- m_ntx=7;
- ui->rbGenMsg->setChecked(true);
- }
- } else if(r.mid(0,1)=="R") {
- m_ntx=4;
- ui->txrb4->setChecked(true);
- if(ui->tabWidget->currentIndex()==1) {
- ui->genMsg->setText(ui->tx4->text());
- m_ntx=7;
- ui->rbGenMsg->setChecked(true);
- }
- } else if(r.toInt()>=-50 and r.toInt()<=49) {
- m_ntx=3;
- ui->txrb3->setChecked(true);
- if(ui->tabWidget->currentIndex()==1) {
- ui->genMsg->setText(ui->tx3->text());
- m_ntx=7;
- ui->rbGenMsg->setChecked(true);
- }
- } else if(r.toInt()==73) {
- m_ntx=5;
- ui->txrb5->setChecked(true);
- if(ui->tabWidget->currentIndex()==1) {
- ui->genMsg->setText(ui->tx5->text());
- m_ntx=7;
- ui->rbGenMsg->setChecked(true);
- }
- }
- } else {
- m_ntx=2;
- ui->txrb2->setChecked(true);
- if(ui->tabWidget->currentIndex()==1) {
- ui->genMsg->setText(ui->tx2->text());
- m_ntx=7;
- ui->rbGenMsg->setChecked(true);
- }
- }
-
- } else {
- m_ntx=1;
- ui->txrb1->setChecked(true);
- if(ui->tabWidget->currentIndex()==1) {
- ui->genMsg->setText(ui->tx1->text());
- m_ntx=7;
- ui->rbGenMsg->setChecked(true);
- }
- }
- if(m_quickCall) {
- m_auto=true;
- ui->autoButton->setStyleSheet(m_pbAutoOn_style);
- }
-}
-
-void MainWindow::genStdMsgs(QString rpt) //genStdMsgs()
-{
- QString t;
- QString hisCall=ui->dxCallEntry->text().toUpper().trimmed();
- ui->dxCallEntry->setText(hisCall);
- if(hisCall=="") {
- ui->labAz->setText("");
- ui->labDist->setText("");
- ui->tx1->setText("");
- ui->tx2->setText("");
- ui->tx3->setText("");
- ui->tx4->setText("");
- ui->tx5->setText("");
- ui->tx6->setText("");
- if(m_myCall!="" and m_myGrid!="") {
- t="CQ " + m_myCall + " " + m_myGrid.mid(0,4);
- msgtype(t, ui->tx6);
- }
- ui->genMsg->setText("");
- ui->freeTextMsg->setText("");
- return;
- }
- QString hisBase=baseCall(hisCall);
- QString myBase=baseCall(m_myCall);
- QString t0=hisBase + " " + myBase + " ";
- t=t0 + m_myGrid.mid(0,4);
- if(myBase!=m_myCall) t="DE " + m_myCall + " " + m_myGrid.mid(0,4);
- msgtype(t, ui->tx1);
- if(rpt == "") {
- t=t+" OOO";
- msgtype(t, ui->tx2);
- msgtype("RO", ui->tx3);
- msgtype("RRR", ui->tx4);
- msgtype("73", ui->tx5);
- } else {
- t=t0 + rpt;
- msgtype(t, ui->tx2);
- t=t0 + "R" + rpt;
- msgtype(t, ui->tx3);
- t=t0 + "RRR";
- msgtype(t, ui->tx4);
- t=t0 + "73";
- if(myBase!=m_myCall) t="DE " + m_myCall + " 73";
- msgtype(t, ui->tx5);
- }
-
- t="CQ " + m_myCall + " " + m_myGrid.mid(0,4);
- msgtype(t, ui->tx6);
- m_ntx=1;
- ui->txrb1->setChecked(true);
- m_rpt=rpt;
-}
-
-QString MainWindow::baseCall(QString t)
-{
- int n1=t.indexOf("/");
- if(n1<0) return t;
- int n2=t.length()-n1-1;
- if(n2>=n1) return t.mid(n1+1);
- return t.mid(0,n1);
-}
-
-void MainWindow::lookup() //lookup()
-{
- QString hisCall=ui->dxCallEntry->text().toUpper().trimmed();
- ui->dxCallEntry->setText(hisCall);
- QString call3File = m_appDir + "/CALL3.TXT";
- QFile f(call3File);
- if(!f.open(QIODevice::ReadOnly | QIODevice::Text)) {
- msgBox("Cannot open " + call3File);
- return;
- }
- char c[132];
- qint64 n=0;
- for(int i=0; i<999999; i++) {
- n=f.readLine(c,sizeof(c));
- if(n <= 0) {
- ui->dxGridEntry->setText("");
- break;
- }
- QString t=QString(c);
- if(t.indexOf(hisCall)==0) {
- int i1=t.indexOf(",");
- QString hisgrid=t.mid(i1+1,6);
- i1=hisgrid.indexOf(",");
- if(i1>0) {
- hisgrid=hisgrid.mid(0,4);
- } else {
- hisgrid=hisgrid.mid(0,4) + hisgrid.mid(4,2).toLower();
- }
- ui->dxGridEntry->setText(hisgrid);
- break;
- }
- }
- f.close();
-}
-
-void MainWindow::on_lookupButton_clicked() //Lookup button
-{
- lookup();
-}
-
-void MainWindow::on_addButton_clicked() //Add button
-{
- if(ui->dxGridEntry->text()=="") {
- msgBox("Please enter a valid grid locator.");
- return;
- }
- m_call3Modified=false;
- QString hisCall=ui->dxCallEntry->text().toUpper().trimmed();
- QString hisgrid=ui->dxGridEntry->text().trimmed();
- QString newEntry=hisCall + "," + hisgrid;
-
-// int ret = QMessageBox::warning(this, "Add",
-// newEntry + "\n" + "Is this station known to be active on EME?",
-// QMessageBox::Yes | QMessageBox::No, QMessageBox::Yes);
-// if(ret==QMessageBox::Yes) {
-// newEntry += ",EME,,";
-// } else {
- newEntry += ",,,";
-// }
-
- QString call3File = m_appDir + "/CALL3.TXT";
- QFile f1(call3File);
- if(!f1.open(QIODevice::ReadOnly | QIODevice::Text)) {
- msgBox("Cannot open " + call3File);
- return;
- }
- if(f1.size()==0) {
- f1.close();
- f1.open(QIODevice::WriteOnly | QIODevice::Text);
- QTextStream out(&f1);
- out << "ZZZZZZ" << endl;
- f1.close();
- f1.open(QIODevice::ReadOnly | QIODevice::Text);
- }
- QString tmpFile = m_appDir + "/CALL3.TMP";
- QFile f2(tmpFile);
- if(!f2.open(QIODevice::WriteOnly | QIODevice::Text)) {
- msgBox("Cannot open " + tmpFile);
- return;
- }
- QTextStream in(&f1);
- QTextStream out(&f2);
- QString hc=hisCall;
- QString hc1="";
- QString hc2="AAAAAA";
- QString s;
- do {
- s=in.readLine();
- hc1=hc2;
- if(s.mid(0,2)=="//") {
- out << s + "\n";
- } else {
- int i1=s.indexOf(",");
- hc2=s.mid(0,i1);
- if(hc>hc1 && hc<hc2) {
- out << newEntry + "\n";
- if(s.mid(0,6)=="ZZZZZZ") {
- out << s + "\n";
-// exit; //Statement has no effect!
- }
- m_call3Modified=true;
- } else if(hc==hc2) {
- QString t=s + "\n\n is already in CALL3.TXT\n" +
- "Do you wish to replace it?";
- int ret = QMessageBox::warning(this, "Add",t,
- QMessageBox::Yes | QMessageBox::No, QMessageBox::Yes);
- if(ret==QMessageBox::Yes) {
- out << newEntry + "\n";
- m_call3Modified=true;
- }
- } else {
- if(s!="") out << s + "\n";
- }
- }
- } while(!s.isNull());
-
- f1.close();
- if(hc>hc1 && !m_call3Modified) {
- out << newEntry + "\n";
- }
- if(m_call3Modified) {
- QFile f0(m_appDir + "/CALL3.OLD");
- if(f0.exists()) f0.remove();
- QFile f1(m_appDir + "/CALL3.TXT");
- f1.rename(m_appDir + "/CALL3.OLD");
- f2.rename(m_appDir + "/CALL3.TXT");
- f2.close();
- }
-}
-
-void MainWindow::msgtype(QString t, QLineEdit* tx) //msgtype()
-{
- char message[23];
- char msgsent[23];
- int len1=22;
-
- t=t.toUpper();
- QByteArray s=t.toUpper().toLocal8Bit();
- ba2msg(s,message);
- int ichk=1,itext=0;
- genjt9_(message,&ichk,msgsent,itone,&itext,len1,len1);
- msgsent[22]=0;
- bool text=false;
- if(itext!=0) text=true;
- QString t1;
- t1.fromLatin1(msgsent);
- if(text) t1=t1.mid(0,13);
- QPalette p(tx->palette());
- if(text) {
- p.setColor(QPalette::Base,"#ffccff");
- } else {
- p.setColor(QPalette::Base,Qt::white);
- }
- tx->setPalette(p);
- int len=t.length();
- if(text) {
- len=qMin(len,13);
- tx->setText(t.mid(0,len).toUpper());
- } else {
- tx->setText(t);
- }
-}
-
-void MainWindow::on_tx1_editingFinished() //tx1 edited
-{
- QString t=ui->tx1->text();
- msgtype(t, ui->tx1);
-}
-
-void MainWindow::on_tx2_editingFinished() //tx2 edited
-{
- QString t=ui->tx2->text();
- msgtype(t, ui->tx2);
-}
-
-void MainWindow::on_tx3_editingFinished() //tx3 edited
-{
- QString t=ui->tx3->text();
- msgtype(t, ui->tx3);
-}
-
-void MainWindow::on_tx4_editingFinished() //tx4 edited
-{
- QString t=ui->tx4->text();
- msgtype(t, ui->tx4);
-}
-
-void MainWindow::on_tx5_editingFinished() //tx5 edited
-{
- QString t=ui->tx5->text();
- msgtype(t, ui->tx5);
-}
-
-void MainWindow::on_tx6_editingFinished() //tx6 edited
-{
- QString t=ui->tx6->text();
- msgtype(t, ui->tx6);
- double snr=t.mid(1,5).toDouble();
- if(snr>0.0 or snr < -50.0) snr=99.0;
- soundOutThread.setTxSNR(snr);
-}
-
-void MainWindow::on_dxCallEntry_textChanged(const QString &t) //dxCall changed
-{
- m_hisCall=t.toUpper().trimmed();
- ui->dxCallEntry->setText(m_hisCall);
- statusChanged();
-}
-
-void MainWindow::on_dxGridEntry_textChanged(const QString &t) //dxGrid changed
-{
- int n=t.length();
- if(n!=4 and n!=6) {
- ui->labAz->setText("");
- ui->labDist->setText("");
- return;
- }
- if(!t[0].isLetter() or !t[1].isLetter()) return;
- if(!t[2].isDigit() or !t[3].isDigit()) return;
- if(n==4) m_hisGrid=t.mid(0,2).toUpper() + t.mid(2,2);
- if(n==6) m_hisGrid=t.mid(0,2).toUpper() + t.mid(2,2) +
- t.mid(4,2).toLower();
- ui->dxGridEntry->setText(m_hisGrid);
- if(gridOK(m_hisGrid)) {
- qint64 nsec = QDateTime::currentMSecsSinceEpoch() % 86400;
- double utch=nsec/3600.0;
- int nAz,nEl,nDmiles,nDkm,nHotAz,nHotABetter;
-
- azdist_(m_myGrid.toLatin1().data(),m_hisGrid.toLatin1().data(),&utch,
- &nAz,&nEl,&nDmiles,&nDkm,&nHotAz,&nHotABetter,6,6);
- QString t;
- t.sprintf("Az: %d",nAz);
- ui->labAz->setText(t);
- if(m_bMiles) t.sprintf("%d mi",int(0.621371*nDkm));
- if(!m_bMiles) t.sprintf("%d km",nDkm);
- ui->labDist->setText(t);
- } else {
- ui->labAz->setText("");
- ui->labDist->setText("");
- }
-}
-
-void MainWindow::on_genStdMsgsPushButton_clicked() //genStdMsgs button
-{
- genStdMsgs(m_rpt);
-}
-
-void MainWindow::on_logQSOButton_clicked() //Log QSO button
-{
- if(m_hisCall=="") return;
- m_dateTimeQSO=QDateTime::currentDateTimeUtc();
-
- logDlg = new LogQSO(0);
- logDlg->m_saveTxPower=m_saveTxPower;
- logDlg->m_saveComments=m_saveComments;
- logDlg->m_txPower=m_txPower;
- logDlg->m_comments=m_logComments;
- logDlg->initLogQSO(m_hisCall,m_hisGrid,m_modeTx,m_rptSent,m_rptRcvd,
- m_dateTimeQSO,m_dialFreq+m_txFreq/1.0e6,
- m_myCall,m_myGrid,m_noSuffix,m_toRTTY,m_dBtoComments);
- connect(logDlg, SIGNAL(acceptQSO(bool)),this,SLOT(acceptQSO2(bool)));
- if(m_logQSOgeom != QRect(500,400,424,283)) logDlg->setGeometry(m_logQSOgeom);
- logDlg->show();
-}
-
-void MainWindow::acceptQSO2(bool accepted)
-{
- if(accepted) {
- m_logQSOgeom=logDlg->geometry();
- m_saveTxPower=logDlg->m_saveTxPower;
- m_saveComments=logDlg->m_saveComments;
- m_txPower=logDlg->m_txPower;
- m_logComments=logDlg->m_comments;
- if(m_clearCallGrid) {
- m_hisCall="";
- ui->dxCallEntry->setText("");
- m_hisGrid="";
- ui->dxGridEntry->setText("");
- m_rptSent="";
- m_rptRcvd="";
- m_qsoStart="";
- m_qsoStop="";
- }
- }
-}
-
-void MainWindow::on_actionJT9_1_triggered()
-{
- m_mode="JT9";
- if(m_modeTx!="JT9") on_pbTxMode_clicked();
- statusChanged();
- m_TRperiod=60;
- m_nsps=6912;
- m_hsymStop=173;
- soundInThread.setPeriod(m_TRperiod,m_nsps);
- soundOutThread.setPeriod(m_TRperiod,m_nsps);
- lab3->setStyleSheet("QLabel{background-color: #ff6ec7}");
- lab3->setText(m_mode);
- ui->actionJT9_1->setChecked(true);
- g_pWideGraph->setPeriod(m_TRperiod,m_nsps);
- g_pWideGraph->setMode(m_mode);
- g_pWideGraph->setModeTx(m_modeTx);
- ui->pbTxMode->setEnabled(false);
-}
-
-void MainWindow::on_actionJT65_triggered()
-{
- m_mode="JT65";
- if(m_modeTx!="JT65") on_pbTxMode_clicked();
- statusChanged();
- m_TRperiod=60;
- m_nsps=6912; //For symspec only
- m_hsymStop=173;
- soundInThread.setPeriod(m_TRperiod,m_nsps);
- soundOutThread.setPeriod(m_TRperiod,m_nsps);
- lab3->setStyleSheet("QLabel{background-color: #ffff00}");
- lab3->setText(m_mode);
- ui->actionJT65->setChecked(true);
- g_pWideGraph->setPeriod(m_TRperiod,m_nsps);
- g_pWideGraph->setMode(m_mode);
- g_pWideGraph->setModeTx(m_modeTx);
- ui->pbTxMode->setEnabled(false);
-}
-
-void MainWindow::on_actionJT9_JT65_triggered()
-{
- m_mode="JT9+JT65";
-// if(m_modeTx!="JT9") on_pbTxMode_clicked();
- statusChanged();
- m_TRperiod=60;
- m_nsps=6912;
- m_hsymStop=173;
- soundInThread.setPeriod(m_TRperiod,m_nsps);
- soundOutThread.setPeriod(m_TRperiod,m_nsps);
- lab3->setStyleSheet("QLabel{background-color: #ffa500}");
- lab3->setText(m_mode);
- ui->actionJT9_JT65->setChecked(true);
- g_pWideGraph->setPeriod(m_TRperiod,m_nsps);
- g_pWideGraph->setMode(m_mode);
- g_pWideGraph->setModeTx(m_modeTx);
- ui->pbTxMode->setEnabled(true);
-}
-
-void MainWindow::on_TxFreqSpinBox_valueChanged(int n)
-{
- m_txFreq=n;
- if(g_pWideGraph!=NULL) g_pWideGraph->setTxFreq(n);
- if(m_lockTxFreq) ui->RxFreqSpinBox->setValue(n);
- soundOutThread.setTxFreq(n);
-}
-
-void MainWindow::on_RxFreqSpinBox_valueChanged(int n)
-{
- m_rxFreq=n;
- if(g_pWideGraph!=NULL) g_pWideGraph->setRxFreq(n);
- if(m_lockTxFreq) ui->TxFreqSpinBox->setValue(n);
-}
-
-void MainWindow::on_actionQuickDecode_triggered()
-{
- m_ndepth=1;
- ui->actionQuickDecode->setChecked(true);
-}
-
-void MainWindow::on_actionMediumDecode_triggered()
-{
- m_ndepth=2;
- ui->actionMediumDecode->setChecked(true);
-}
-
-void MainWindow::on_actionDeepestDecode_triggered()
-{
- m_ndepth=3;
- ui->actionDeepestDecode->setChecked(true);
-}
-
-void MainWindow::on_inGain_valueChanged(int n)
-{
- m_inGain=n;
-}
-
-void MainWindow::on_actionMonitor_OFF_at_startup_triggered()
-{
- m_monitorStartOFF=!m_monitorStartOFF;
-}
-
-void MainWindow::on_actionErase_ALL_TXT_triggered() //Erase ALL.TXT
-{
- int ret = QMessageBox::warning(this, "Confirm Erase",
- "Are you sure you want to erase file ALL.TXT ?",
- QMessageBox::Yes | QMessageBox::No, QMessageBox::Yes);
- if(ret==QMessageBox::Yes) {
- QFile f("ALL.TXT");
- f.remove();
- m_RxLog=1;
- }
-}
-
-void MainWindow::on_actionErase_wsjtx_log_adi_triggered()
-{
- int ret = QMessageBox::warning(this, "Confirm Erase",
- "Are you sure you want to erase file wsjtx_log.adi ?",
- QMessageBox::Yes | QMessageBox::No, QMessageBox::Yes);
- if(ret==QMessageBox::Yes) {
- QFile f("wsjtx_log.adi");
- f.remove();
- }
-}
-
-void MainWindow::showMacros(const QPoint &pos)
-{
- if(m_macro.length()<10) return;
- QPoint globalPos = ui->tx5->mapToGlobal(pos);
- QMenu popupMenu;
- QAction* popup1 = new QAction(m_macro[0],ui->tx5);
- QAction* popup2 = new QAction(m_macro[1],ui->tx5);
- QAction* popup3 = new QAction(m_macro[2],ui->tx5);
- QAction* popup4 = new QAction(m_macro[3],ui->tx5);
- QAction* popup5 = new QAction(m_macro[4],ui->tx5);
- QAction* popup6 = new QAction(m_macro[5],ui->tx5);
- QAction* popup7 = new QAction(m_macro[6],ui->tx5);
- QAction* popup8 = new QAction(m_macro[7],ui->tx5);
- QAction* popup9 = new QAction(m_macro[8],ui->tx5);
- QAction* popup10 = new QAction(m_macro[9],ui->tx5);
-
- if(m_macro[0]!="") popupMenu.addAction(popup1);
- if(m_macro[1]!="") popupMenu.addAction(popup2);
- if(m_macro[2]!="") popupMenu.addAction(popup3);
- if(m_macro[3]!="") popupMenu.addAction(popup4);
- if(m_macro[4]!="") popupMenu.addAction(popup5);
- if(m_macro[5]!="") popupMenu.addAction(popup6);
- if(m_macro[6]!="") popupMenu.addAction(popup7);
- if(m_macro[7]!="") popupMenu.addAction(popup8);
- if(m_macro[8]!="") popupMenu.addAction(popup9);
- if(m_macro[9]!="") popupMenu.addAction(popup10);
-
- connect(popup1,SIGNAL(triggered()), this, SLOT(onPopup1()));
- connect(popup2,SIGNAL(triggered()), this, SLOT(onPopup2()));
- connect(popup3,SIGNAL(triggered()), this, SLOT(onPopup3()));
- connect(popup4,SIGNAL(triggered()), this, SLOT(onPopup4()));
- connect(popup5,SIGNAL(triggered()), this, SLOT(onPopup5()));
- connect(popup6,SIGNAL(triggered()), this, SLOT(onPopup6()));
- connect(popup7,SIGNAL(triggered()), this, SLOT(onPopup7()));
- connect(popup8,SIGNAL(triggered()), this, SLOT(onPopup8()));
- connect(popup9,SIGNAL(triggered()), this, SLOT(onPopup9()));
- connect(popup10,SIGNAL(triggered()), this, SLOT(onPopup10()));
- popupMenu.exec(globalPos);
-}
-
-void MainWindow::onPopup1() { ui->tx5->setText(m_macro[0]); freeText(); }
-void MainWindow::onPopup2() { ui->tx5->setText(m_macro[1]); freeText(); }
-void MainWindow::onPopup3() { ui->tx5->setText(m_macro[2]); freeText(); }
-void MainWindow::onPopup4() { ui->tx5->setText(m_macro[3]); freeText(); }
-void MainWindow::onPopup5() { ui->tx5->setText(m_macro[4]); freeText(); }
-void MainWindow::onPopup6() { ui->tx5->setText(m_macro[5]); freeText(); }
-void MainWindow::onPopup7() { ui->tx5->setText(m_macro[6]); freeText(); }
-void MainWindow::onPopup8() { ui->tx5->setText(m_macro[7]); freeText(); }
-void MainWindow::onPopup9() { ui->tx5->setText(m_macro[8]); freeText(); }
-void MainWindow::onPopup10() { ui->tx5->setText(m_macro[9]); freeText(); }
-
-void MainWindow::freeText() { ui->freeTextMsg->setText(ui->tx5->text()); }
-
-bool MainWindow::gridOK(QString g)
-{
- bool b=g.mid(0,1).compare("A")>=0 and
- g.mid(0,1).compare("R")<=0 and
- g.mid(1,1).compare("A")>=0 and
- g.mid(1,1).compare("R")<=0 and
- g.mid(2,1).compare("0")>=0 and
- g.mid(2,1).compare("9")<=0 and
- g.mid(3,1).compare("0")>=0 and
- g.mid(3,1).compare("9")<=0;
- return b;
-}
-
-void MainWindow::on_actionConvert_JT9_x_to_RTTY_triggered(bool checked)
-{
- m_toRTTY=checked;
-}
-
-void MainWindow::on_actionLog_JT9_without_submode_triggered(bool checked)
-{
- m_noSuffix=checked;
-}
-
-void MainWindow::on_actionLog_dB_reports_to_Comments_triggered(bool checked)
-{
- m_dBtoComments=checked;
-}
-
-void MainWindow::on_bandComboBox_activated(int index)
-{
- int ret=0;
- QString rt;
-
- m_band=index;
- QString t=m_dFreq[index];
- m_dialFreq=t.toDouble();
- if(m_plus2kHz) m_dialFreq+=0.002;
- dialFreqChanged2(m_dialFreq);
- m_repeatMsg=0;
- m_secBandChanged=QDateTime::currentMSecsSinceEpoch()/1000;
- if(m_catEnabled) {
- if(!m_bRigOpen) {
- rigOpen();
- }
- if(m_bRigOpen) {
- m_dontReadFreq=true;
- ret=rig->setFreq(MHz(m_dialFreq));
- if(m_bSplit or m_bXIT) setXIT(m_txFreq);
-
- if(g_pWideGraph!=NULL) {
- bumpFqso(11);
- bumpFqso(12);
- }
- if(ret!=RIG_OK) {
- rt.sprintf("Set rig frequency failed: %d",ret);
- msgBox(rt);
- }
- }
- }
- QFile f2("ALL.TXT");
- f2.open(QIODevice::WriteOnly | QIODevice::Text | QIODevice::Append);
- QTextStream out(&f2);
- out << QDateTime::currentDateTimeUtc().toString("yyyy-MMM-dd hh:mm")
- << " " << m_dialFreq << " MHz " << m_mode << endl;
- f2.close();
-}
-
-void MainWindow::on_actionPrompt_to_log_QSO_triggered(bool checked)
-{
- m_promptToLog=checked;
-}
-
-void MainWindow::on_actionBlank_line_between_decoding_periods_triggered(bool checked)
-{
- m_insertBlank=checked;
-}
-
-void MainWindow::on_actionClear_DX_Call_and_Grid_after_logging_triggered(bool checked)
-{
- m_clearCallGrid=checked;
-}
-
-void MainWindow::on_actionDisplay_distance_in_miles_triggered(bool checked)
-{
- m_bMiles=checked;
- on_dxGridEntry_textChanged(m_hisGrid);
-}
-
-void MainWindow::on_pbCallCQ_clicked()
-{
- genStdMsgs(m_rpt);
- ui->genMsg->setText(ui->tx6->text());
- m_ntx=7;
- ui->rbGenMsg->setChecked(true);
- if(m_transmitting) m_restart=true;
-}
-
-void MainWindow::on_pbAnswerCaller_clicked()
-{
- genStdMsgs(m_rpt);
- ui->genMsg->setText(ui->tx2->text());
- m_ntx=7;
- ui->rbGenMsg->setChecked(true);
- if(m_transmitting) m_restart=true;
-}
-
-void MainWindow::on_pbSendRRR_clicked()
-{
- genStdMsgs(m_rpt);
- ui->genMsg->setText(ui->tx4->text());
- m_ntx=7;
- ui->rbGenMsg->setChecked(true);
- if(m_transmitting) m_restart=true;
-}
-
-void MainWindow::on_pbAnswerCQ_clicked()
-{
- genStdMsgs(m_rpt);
- ui->genMsg->setText(ui->tx1->text());
- m_ntx=7;
- ui->rbGenMsg->setChecked(true);
- if(m_transmitting) m_restart=true;
-}
-
-void MainWindow::on_pbSendReport_clicked()
-{
- genStdMsgs(m_rpt);
- ui->genMsg->setText(ui->tx3->text());
- m_ntx=7;
- ui->rbGenMsg->setChecked(true);
- if(m_transmitting) m_restart=true;
-}
-
-void MainWindow::on_pbSend73_clicked()
-{
- genStdMsgs(m_rpt);
- ui->genMsg->setText(ui->tx5->text());
- m_ntx=7;
- ui->rbGenMsg->setChecked(true);
- if(m_transmitting) m_restart=true;
-}
-
-void MainWindow::on_rbGenMsg_toggled(bool checked)
-{
- m_freeText=!checked;
- if(!m_freeText) {
- m_ntx=7;
- if(m_transmitting) m_restart=true;
- }
-}
-
-void MainWindow::on_rbFreeText_toggled(bool checked)
-{
- m_freeText=checked;
- if(m_freeText) {
- m_ntx=8;
- if (m_transmitting) m_restart=true;
- }
-}
-
-void MainWindow::on_freeTextMsg_editingFinished()
-{
- QString t=ui->freeTextMsg->text();
- msgtype(t, ui->freeTextMsg);
-}
-
-void MainWindow::on_actionDouble_click_on_call_sets_Tx_Enable_triggered(bool checked)
-{
- m_quickCall=checked;
-}
-
-void MainWindow::on_rptSpinBox_valueChanged(int n)
-{
- m_rpt=QString::number(n);
- int ntx0=m_ntx;
- QString t=ui->tx5->text();
- genStdMsgs(m_rpt);
- ui->tx5->setText(t);
- m_ntx=ntx0;
- if(m_ntx==1) ui->txrb1->setChecked(true);
- if(m_ntx==2) ui->txrb2->setChecked(true);
- if(m_ntx==3) ui->txrb3->setChecked(true);
- if(m_ntx==4) ui->txrb4->setChecked(true);
- if(m_ntx==5) ui->txrb5->setChecked(true);
- if(m_ntx==6) ui->txrb6->setChecked(true);
- statusChanged();
-}
-
-void MainWindow::on_action_73TxDisable_triggered(bool checked)
-{
- m_73TxDisable=checked;
-}
-
-void MainWindow::on_actionRunaway_Tx_watchdog_triggered(bool checked)
-{
- m_runaway=checked;
-}
-
-void MainWindow::on_tuneButton_clicked()
-{
- if(m_tune) {
- nc1=1; //disable the countdown timer
- tuneButtonTimer->start(250);
- } else {
- m_tune=true;
- m_sent73=false;
- soundOutThread.setTune(m_tune);
- m_repeatMsg=0;
- ui->tuneButton->setStyleSheet(m_pbTune_style);
- }
-}
-
-void MainWindow::on_stopTxButton_clicked() //Stop Tx
-{
- if(m_tune) {
- m_tune=false;
- soundOutThread.setTune(m_tune);
- }
- if(m_auto) on_autoButton_clicked();
- btxok=false;
- m_repeatMsg=0;
- ui->tuneButton->setStyleSheet("");
-}
-
-void MainWindow::rigOpen()
-{
- QString t;
- int ret;
- rig = new Rig();
-
- if(m_rig<9900) {
- if (!rig->init(m_rig)) {
- msgBox("Rig init failure");
- return;
- }
- QString sCATport=m_catPort;
-#ifdef WIN32
- sCATport="\\\\.\\" + m_catPort; //Allow COM ports above 9
-#endif
- rig->setConf("rig_pathname", sCATport.toLatin1().data());
- char buf[80];
- sprintf(buf,"%d",m_serialRate);
- rig->setConf("serial_speed",buf);
- sprintf(buf,"%d",m_dataBits);
- rig->setConf("data_bits",buf);
- sprintf(buf,"%d",m_stopBits);
- rig->setConf("stop_bits",buf);
- rig->setConf("serial_handshake",m_handshake.toLatin1().data());
- if(m_bDTRoff) {
- rig->setConf("rts_state","OFF");
- rig->setConf("dtr_state","OFF");
- }
- }
-
- ret=rig->open(m_rig);
- if(ret==RIG_OK) {
- m_bRigOpen=true;
- if(m_poll==0) ui->readFreq->setEnabled(true);
- m_CATerror=false;
- } else {
- t="Open rig failed";
- msgBox(t);
- m_catEnabled=false;
- m_bRigOpen=false;
- m_CATerror=true;
- }
-
- if(m_bRigOpen) {
- if(m_poll>0) {
- ui->readFreq->setStyleSheet("QPushButton{background-color: #00ff00; \
- border-width: 0px; border-radius: 5px;}");
- } else {
- ui->readFreq->setStyleSheet("QPushButton{background-color: orange; \
- border-width: 0px; border-radius: 5px;}");
- }
-} else {
-if(m_CATerror) ui->readFreq->setStyleSheet("QPushButton{background-color: red; \
- border-width: 0px; border-radius: 5px;}");
-if(!m_CATerror) ui->readFreq->setStyleSheet("");
- }
-}
-
-void MainWindow::on_actionAllow_multiple_instances_triggered(bool checked)
-{
- m_bMultipleOK=checked;
-}
-
-void MainWindow::on_pbR2T_clicked()
-{
- int n=g_pWideGraph->rxFreq();
- ui->TxFreqSpinBox->setValue(n);
-}
-
-void MainWindow::on_pbT2R_clicked()
-{
- g_pWideGraph->setRxFreq(m_txFreq);
-}
-
-
-void MainWindow::on_readFreq_clicked()
-{
- if(m_transmitting) return;
- m_dontReadFreq=false;
- double fMHz=rig->getFreq(RIG_VFO_CURR)/1000000.0;
- if(fMHz<0.0) {
- QString rt;
- rt.sprintf("Rig control error %d\nFailed to read frequency.",
- int(1000000.0*fMHz));
- msgBox(rt);
- m_catEnabled=false;
- }
- if(fMHz<0.01 or fMHz>1300.0) fMHz=0;
- int ndiff=1000000.0*(fMHz-m_dialFreq);
- if(ndiff!=0) dialFreqChanged2(fMHz);
-}
-
-void MainWindow::on_pbTxMode_clicked()
-{
- if(m_modeTx=="JT9") {
- m_modeTx="JT65";
- ui->pbTxMode->setText("Tx JT65 #");
- } else {
- m_modeTx="JT9";
- ui->pbTxMode->setText("Tx JT9 @");
- }
- g_pWideGraph->setModeTx(m_modeTx);
- statusChanged();
-}
-
-void MainWindow::setXIT(int n)
-{
- int ret;
- int xit=0;
- if(m_bRigOpen) {
- xit=-1000;
- if(n>1000) xit=0;
- if(n>2000) xit=1000;
- if(n>3000) xit=2000;
- if(n>4000) xit=3000;
- if(m_bXIT) {
- ret=rig->setXit((shortfreq_t)xit,RIG_VFO_TX);
- if(ret!=RIG_OK) {
- QString rt;
- rt.sprintf("Setting RIG_VFO_TX failed: %d",ret);
- msgBox(rt);
- }
- }
- if(m_bSplit) {
- ret=rig->setSplitFreq(MHz(m_dialFreq)+xit,RIG_VFO_B);
- }
- }
- if(m_bSplit) soundOutThread.setXIT(xit);
- if(!m_bSplit) soundOutThread.setXIT(0);
-}
-
-void MainWindow::setFreq4(int rxFreq, int txFreq)
-{
- m_rxFreq=rxFreq;
- m_txFreq=txFreq;
- ui->RxFreqSpinBox->setValue(m_rxFreq);
- ui->TxFreqSpinBox->setValue(m_txFreq);
-}
-
-void MainWindow::on_cbTxLock_clicked(bool checked)
-{
- m_lockTxFreq=checked;
- g_pWideGraph->setLockTxFreq(m_lockTxFreq);
- if(m_lockTxFreq) on_pbR2T_clicked();
-}
-
-void MainWindow::on_actionTx2QSO_triggered(bool checked)
-{
- m_tx2QSO=checked;
-}
-
-void MainWindow::on_cbPlus2kHz_toggled(bool checked)
-{
- m_plus2kHz=checked;
- on_bandComboBox_activated(m_band);
-}
diff --git a/mainwindow.h b/mainwindow.h
deleted file mode 100644
index 51e0b41..0000000
--- a/mainwindow.h
+++ /dev/null
@@ -1,392 +0,0 @@
-#ifndef MAINWINDOW_H
-#define MAINWINDOW_H
-#ifdef QT5
-#include <QtWidgets>
-#else
-#include <QtGui>
-#endif
-#include <QTimer>
-#include <QDateTime>
-#include "soundin.h"
-#include "soundout.h"
-#include "commons.h"
-#include "psk_reporter.h"
-#include "rigclass.h"
-#include "signalmeter.h"
-
-#ifdef WIN32
-#include "PSKReporter.h"
-#endif
-
-//--------------------------------------------------------------- MainWindow
-namespace Ui {
- class MainWindow;
-}
-
-class MainWindow : public QMainWindow
-{
- Q_OBJECT
-
-// Multiple instances: call MainWindow() with *thekey
-public:
- explicit MainWindow(QSharedMemory *shdmem, QString *thekey, QWidget *parent = 0);
- ~MainWindow();
-
-public slots:
- void showSoundInError(const QString& errorMsg);
- void showStatusMessage(const QString& statusMsg);
- void dataSink(int k);
- void diskDat();
- void diskWriteFinished();
- void freezeDecode(int n);
- void guiUpdate();
- void doubleClickOnCall(bool shift, bool ctrl);
- void doubleClickOnCall2(bool shift, bool ctrl);
- void readFromStdout();
- void readFromStderr();
- void jt9_error();
- void setXIT(int n);
- void setFreq4(int rxFreq, int txFreq);
-
-protected:
- virtual void keyPressEvent( QKeyEvent *e );
- void closeEvent(QCloseEvent*);
- virtual bool eventFilter(QObject *object, QEvent *event);
-
-private slots:
- void on_tx1_editingFinished();
- void on_tx2_editingFinished();
- void on_tx3_editingFinished();
- void on_tx4_editingFinished();
- void on_tx5_editingFinished();
- void on_tx6_editingFinished();
- void on_actionDeviceSetup_triggered();
- void on_monitorButton_clicked();
- void on_actionExit_triggered();
- void on_actionAbout_triggered();
- void OnExit();
- void on_actionLinrad_triggered();
- void on_actionCuteSDR_triggered();
- void on_autoButton_clicked();
- void on_stopTxButton_clicked();
- void on_stopButton_clicked();
- void on_actionOnline_Users_Guide_triggered();
- void on_actionWide_Waterfall_triggered();
- void on_actionOpen_triggered();
- void on_actionOpen_next_in_directory_triggered();
- void on_actionDecode_remaining_files_in_directory_triggered();
- void on_actionDelete_all_wav_files_in_SaveDir_triggered();
- void on_actionNone_triggered();
- void on_actionSave_all_triggered();
- void on_actionKeyboard_shortcuts_triggered();
- void on_actionSpecial_mouse_commands_triggered();
- void on_DecodeButton_clicked();
- void decode();
- void decodeBusy(bool b);
- void on_EraseButton_clicked();
- void on_txb1_clicked();
- void on_txFirstCheckBox_stateChanged(int arg1);
- void set_ntx(int n);
- void on_txb2_clicked();
- void on_txb3_clicked();
- void on_txb4_clicked();
- void on_txb5_clicked();
- void on_txb6_clicked();
- void on_lookupButton_clicked();
- void on_addButton_clicked();
- void on_dxCallEntry_textChanged(const QString &arg1);
- void on_dxGridEntry_textChanged(const QString &arg1);
- void on_genStdMsgsPushButton_clicked();
- void on_logQSOButton_clicked();
- void on_actionAFMHot_triggered();
- void on_actionBlue_triggered();
- void on_actionJT9_1_triggered();
- void on_actionJT65_triggered();
- void on_actionJT9_JT65_triggered();
- void on_TxFreqSpinBox_valueChanged(int arg1);
- void on_actionSave_decoded_triggered();
- void on_actionQuickDecode_triggered();
- void on_actionMediumDecode_triggered();
- void on_actionDeepestDecode_triggered();
- void on_inGain_valueChanged(int n);
- void bumpFqso(int n);
- void on_actionMonitor_OFF_at_startup_triggered();
- void on_actionErase_ALL_TXT_triggered();
- void on_actionErase_wsjtx_log_adi_triggered();
- void showMacros(const QPoint& pos);
- void onPopup1();
- void onPopup2();
- void onPopup3();
- void onPopup4();
- void onPopup5();
- void onPopup6();
- void onPopup7();
- void onPopup8();
- void onPopup9();
- void onPopup10();
- void on_actionConvert_JT9_x_to_RTTY_triggered(bool checked);
- void on_actionLog_JT9_without_submode_triggered(bool checked);
- void on_actionLog_dB_reports_to_Comments_triggered(bool checked);
- void startTx2();
- void stopTx();
- void stopTx2();
- void on_actionPrompt_to_log_QSO_triggered(bool checked);
- void on_actionBlank_line_between_decoding_periods_triggered(bool checked);
- void on_actionClear_DX_Call_and_Grid_after_logging_triggered(bool checked);
- void on_actionDisplay_distance_in_miles_triggered(bool checked);
- void on_pbCallCQ_clicked();
- void on_pbAnswerCaller_clicked();
- void on_pbSendRRR_clicked();
- void on_pbAnswerCQ_clicked();
- void on_pbSendReport_clicked();
- void on_pbSend73_clicked();
- void on_rbGenMsg_toggled(bool checked);
- void on_rbFreeText_toggled(bool checked);
- void on_freeTextMsg_editingFinished();
- void on_actionDouble_click_on_call_sets_Tx_Enable_triggered(bool checked);
- void on_rptSpinBox_valueChanged(int n);
- void on_action_73TxDisable_triggered(bool checked);
- void on_actionRunaway_Tx_watchdog_triggered(bool checked);
- void killFile();
- void on_tuneButton_clicked();
- void on_actionAllow_multiple_instances_triggered(bool checked);
- void on_pbR2T_clicked();
- void on_pbT2R_clicked();
- void acceptQSO2(bool accepted);
- void on_bandComboBox_activated(int index);
- void on_readFreq_clicked();
- void on_pbTxMode_clicked();
- void on_RxFreqSpinBox_valueChanged(int n);
- void on_cbTxLock_clicked(bool checked);
- void on_actionTx2QSO_triggered(bool checked);
- void on_cbPlus2kHz_toggled(bool checked);
-
-private:
- Ui::MainWindow *ui;
-
- double m_dialFreq;
-
- qint64 m_msErase;
- qint64 m_secBandChanged;
-
- qint32 m_idInt;
- qint32 m_waterfallAvg;
- qint32 m_pttMethodIndex;
- qint32 m_ntx;
- qint32 m_pttPort;
- qint32 m_timeout;
- qint32 m_rxFreq;
- qint32 m_txFreq;
- qint32 m_setftx;
- qint32 m_ndepth;
- qint32 m_sec0;
- qint32 m_RxLog;
- qint32 m_nutc0;
- qint32 m_nrx;
- qint32 m_hsym;
- qint32 m_paInDevice;
- qint32 m_paOutDevice;
- qint32 m_TRperiod;
- qint32 m_nsps;
- qint32 m_hsymStop;
- qint32 m_len1;
- qint32 m_inGain;
- qint32 m_nsave;
- qint32 m_catPortIndex;
- qint32 m_rig;
- qint32 m_rigIndex;
- qint32 m_serialRate;
- qint32 m_serialRateIndex;
- qint32 m_dataBits;
- qint32 m_dataBitsIndex;
- qint32 m_stopBits;
- qint32 m_stopBitsIndex;
- qint32 m_handshakeIndex;
- qint32 m_ncw;
- qint32 m_secID;
- qint32 m_band;
- qint32 m_repeatMsg;
- qint32 m_watchdogLimit;
- qint32 m_poll;
- qint32 m_fMin;
- qint32 m_fMax;
-
- bool m_monitoring;
- bool m_transmitting;
- bool m_diskData;
- bool m_loopall;
- bool m_decoderBusy;
- bool m_txFirst;
- bool m_auto;
- bool m_restart;
- bool m_startAnother;
- bool m_saveDecoded;
- bool m_saveAll;
- bool m_widebandDecode;
- bool m_call3Modified;
- bool m_dataAvailable;
- bool m_killAll;
- bool m_bdecoded;
- bool m_monitorStartOFF;
- bool m_pskReporter;
- bool m_pskReporterInit;
- bool m_noSuffix;
- bool m_toRTTY;
- bool m_dBtoComments;
- bool m_catEnabled;
- bool m_After73;
- bool m_promptToLog;
- bool m_blankLine;
- bool m_insertBlank;
- bool m_clearCallGrid;
- bool m_bMiles;
- bool m_decodedText2;
- bool m_freeText;
- bool m_quickCall;
- bool m_73TxDisable;
- bool m_sent73;
- bool m_runaway;
- bool m_tune;
- bool m_bRigOpen;
- bool m_bMultipleOK;
- bool m_bDTRoff;
- bool m_pttData;
- bool m_dontReadFreq;
- bool m_lockTxFreq;
- bool m_saveTxPower;
- bool m_saveComments;
- bool m_tx2QSO;
- bool m_CATerror;
- bool m_bSplit;
- bool m_bXIT;
- bool m_plus2kHz;
-
- char m_decoded[80];
-
- float m_pctZap;
-
- QRect m_wideGraphGeom;
- QRect m_logQSOgeom;
-
- QLabel* lab1; // labels in status bar
- QLabel* lab2;
- QLabel* lab3;
- QLabel* lab4;
- QLabel* lab5;
- QLabel* lab6;
-
- QMessageBox msgBox0;
-
- QFuture<void>* future1;
- QFuture<void>* future2;
- QFuture<void>* future3;
- QFutureWatcher<void>* watcher1;
- QFutureWatcher<void>* watcher2;
- QFutureWatcher<void>* watcher3;
-
- QProcess proc_jt9;
-
- QTimer* ptt1Timer; //StartTx delay
- QTimer* ptt0Timer; //StopTx delay
- QTimer* logQSOTimer;
- QTimer* killFileTimer;
- QTimer* tuneButtonTimer;
-
- QString m_path;
- QString m_pbdecoding_style1;
- QString m_pbmonitor_style;
- QString m_pbAutoOn_style;
- QString m_pbTune_style;
- QString m_myCall;
- QString m_myGrid;
- QString m_baseCall;
- QString m_hisCall;
- QString m_hisGrid;
- QString m_appDir;
- QString m_saveDir;
- QString m_dxccPfx;
- QString m_palette;
- QString m_dateTime;
- QString m_mode;
- QString m_modeTx;
- QString m_fname;
- QString m_rpt;
- QString m_rptSent;
- QString m_rptRcvd;
- QString m_qsoStart;
- QString m_qsoStop;
- QString m_catPort;
- QString m_handshake;
- QString m_cmnd;
- QString m_msgSent0;
- QString m_fileToSave;
- QString m_QSOmsg;
- QString m_txPower;
- QString m_logComments;
- QString m_pskAntenna;
-
- QStringList m_macro;
- QStringList m_dFreq;
-
- QDateTime m_dateTimeQSO;
-
- SoundInThread soundInThread; //Instantiate the audio threads
- SoundOutThread soundOutThread;
- QSharedMemory *mem_jt9;
- // Multiple instances:
- QString *mykey_jt9;
- PSK_Reporter *psk_Reporter;
- SignalMeter *signalMeter;
-
-//---------------------------------------------------- private functions
- void readSettings();
- void writeSettings();
- void createStatusBar();
- void updateStatusBar();
- void msgBox(QString t);
- void genStdMsgs(QString rpt);
- void lookup();
- void ba2msg(QByteArray ba, char* message);
- void msgtype(QString t, QLineEdit* tx);
- void stub();
- void statusChanged();
- void dialFreqChanged2(double f);
- void freeText();
- void displayTxMsg(QString t);
- void rigOpen();
- bool gridOK(QString g);
- QString baseCall(QString t);
-};
-
-extern void getfile(QString fname, int ntrperiod);
-extern void savewav(QString fname, int ntrperiod);
-extern int killbyname(const char* progName);
-extern void getDev(int* numDevices,char hostAPI_DeviceName[][50],
- int minChan[], int maxChan[],
- int minSpeed[], int maxSpeed[]);
-extern int ptt(int nport, int ntx, int* iptt, int* nopen);
-
-extern "C" {
-//----------------------------------------------------- C and Fortran routines
-void symspec_(int* k, int* ntrperiod, int* nsps, int* ingain, float* slope,
- float* px, float s[], float* df3, int* nhsym, int* npts8);
-
-void genjt9_(char* msg, int* ichk, char* msgsent, int itone[],
- int* itext, int len1, int len2);
-
-void gen65_(char* msg, int* ichk, char* msgsent, int itone[],
- int* itext, int len1, int len2);
-
-bool stdmsg_(const char* msg, int len);
-
-void azdist_(char* MyGrid, char* HisGrid, double* utch, int* nAz, int* nEl,
- int* nDmiles, int* nDkm, int* nHotAz, int* nHotABetter,
- int len1, int len2);
-
-void morse_(char* msg, int* icw, int* ncw, int len);
-
-int ptt_(int nport, int ntx, int* iptt, int* nopen);
-
-}
-
-#endif // MAINWINDOW_H
diff --git a/mainwindow.ui b/mainwindow.ui
deleted file mode 100644
index 5c58f21..0000000
--- a/mainwindow.ui
+++ /dev/null
@@ -1,2925 +0,0 @@
-<?xml version="1.0" encoding="UTF-8"?>
-<ui version="4.0">
- <class>MainWindow</class>
- <widget class="QMainWindow" name="MainWindow">
- <property name="geometry">
- <rect>
- <x>0</x>
- <y>0</y>
- <width>760</width>
- <height>552</height>
- </rect>
- </property>
- <property name="sizePolicy">
- <sizepolicy hsizetype="Expanding" vsizetype="Preferred">
- <horstretch>0</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="minimumSize">
- <size>
- <width>760</width>
- <height>475</height>
- </size>
- </property>
- <property name="maximumSize">
- <size>
- <width>936</width>
- <height>1028</height>
- </size>
- </property>
- <property name="windowTitle">
- <string>SpecJT by K1JT</string>
- </property>
- <property name="styleSheet">
- <string notr="true"/>
- </property>
- <widget class="QWidget" name="centralWidget">
- <layout class="QVBoxLayout" name="verticalLayout">
- <item>
- <layout class="QGridLayout" name="gridLayout">
- <property name="horizontalSpacing">
- <number>3</number>
- </property>
- <property name="verticalSpacing">
- <number>1</number>
- </property>
- <item row="4" column="0">
- <widget class="DisplayText" name="decodedTextBrowser">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Expanding" vsizetype="Expanding">
- <horstretch>0</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="minimumSize">
- <size>
- <width>200</width>
- <height>100</height>
- </size>
- </property>
- <property name="maximumSize">
- <size>
- <width>500</width>
- <height>1000</height>
- </size>
- </property>
- <property name="font">
- <font>
- <family>Courier New</family>
- <pointsize>10</pointsize>
- </font>
- </property>
- <property name="frameShape">
- <enum>QFrame::Panel</enum>
- </property>
- <property name="verticalScrollBarPolicy">
- <enum>Qt::ScrollBarAlwaysOn</enum>
- </property>
- <property name="horizontalScrollBarPolicy">
- <enum>Qt::ScrollBarAlwaysOff</enum>
- </property>
- <property name="html">
- <string notr="true"><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0//EN" "http://www.w3.org/TR/REC-html40/strict.dtd">
-<html><head><meta name="qrichtext" content="1" /><style type="text/css">
-p, li { white-space: pre-wrap; }
-</style></head><body style=" font-family:'Courier New'; font-size:10pt; font-weight:400; font-style:normal;">
-<p style=" margin-top:0px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px;"><br /></p></body></html></string>
- </property>
- <property name="acceptRichText">
- <bool>false</bool>
- </property>
- <property name="openLinks">
- <bool>false</bool>
- </property>
- </widget>
- </item>
- <item row="3" column="1">
- <widget class="QLabel" name="decodedTextLabel2">
- <property name="minimumSize">
- <size>
- <width>300</width>
- <height>20</height>
- </size>
- </property>
- <property name="maximumSize">
- <size>
- <width>500</width>
- <height>20</height>
- </size>
- </property>
- <property name="palette">
- <palette>
- <active>
- <colorrole role="Base">
- <brush brushstyle="SolidPattern">
- <color alpha="255">
- <red>252</red>
- <green>252</green>
- <blue>252</blue>
- </color>
- </brush>
- </colorrole>
- <colorrole role="Window">
- <brush brushstyle="SolidPattern">
- <color alpha="255">
- <red>170</red>
- <green>170</green>
- <blue>170</blue>
- </color>
- </brush>
- </colorrole>
- </active>
- <inactive>
- <colorrole role="Base">
- <brush brushstyle="SolidPattern">
- <color alpha="255">
- <red>252</red>
- <green>252</green>
- <blue>252</blue>
- </color>
- </brush>
- </colorrole>
- <colorrole role="Window">
- <brush brushstyle="SolidPattern">
- <color alpha="255">
- <red>170</red>
- <green>170</green>
- <blue>170</blue>
- </color>
- </brush>
- </colorrole>
- </inactive>
- <disabled>
- <colorrole role="Base">
- <brush brushstyle="SolidPattern">
- <color alpha="255">
- <red>170</red>
- <green>170</green>
- <blue>170</blue>
- </color>
- </brush>
- </colorrole>
- <colorrole role="Window">
- <brush brushstyle="SolidPattern">
- <color alpha="255">
- <red>170</red>
- <green>170</green>
- <blue>170</blue>
- </color>
- </brush>
- </colorrole>
- </disabled>
- </palette>
- </property>
- <property name="autoFillBackground">
- <bool>true</bool>
- </property>
- <property name="text">
- <string>UTC dB DT Freq Dr </string>
- </property>
- <property name="indent">
- <number>5</number>
- </property>
- </widget>
- </item>
- <item row="3" column="0">
- <widget class="QLabel" name="decodedTextLabel">
- <property name="minimumSize">
- <size>
- <width>300</width>
- <height>20</height>
- </size>
- </property>
- <property name="maximumSize">
- <size>
- <width>500</width>
- <height>20</height>
- </size>
- </property>
- <property name="palette">
- <palette>
- <active>
- <colorrole role="Base">
- <brush brushstyle="SolidPattern">
- <color alpha="255">
- <red>252</red>
- <green>252</green>
- <blue>252</blue>
- </color>
- </brush>
- </colorrole>
- <colorrole role="Window">
- <brush brushstyle="SolidPattern">
- <color alpha="255">
- <red>170</red>
- <green>170</green>
- <blue>170</blue>
- </color>
- </brush>
- </colorrole>
- </active>
- <inactive>
- <colorrole role="Base">
- <brush brushstyle="SolidPattern">
- <color alpha="255">
- <red>252</red>
- <green>252</green>
- <blue>252</blue>
- </color>
- </brush>
- </colorrole>
- <colorrole role="Window">
- <brush brushstyle="SolidPattern">
- <color alpha="255">
- <red>170</red>
- <green>170</green>
- <blue>170</blue>
- </color>
- </brush>
- </colorrole>
- </inactive>
- <disabled>
- <colorrole role="Base">
- <brush brushstyle="SolidPattern">
- <color alpha="255">
- <red>170</red>
- <green>170</green>
- <blue>170</blue>
- </color>
- </brush>
- </colorrole>
- <colorrole role="Window">
- <brush brushstyle="SolidPattern">
- <color alpha="255">
- <red>170</red>
- <green>170</green>
- <blue>170</blue>
- </color>
- </brush>
- </colorrole>
- </disabled>
- </palette>
- </property>
- <property name="autoFillBackground">
- <bool>true</bool>
- </property>
- <property name="text">
- <string>UTC dB DT Freq Dr </string>
- </property>
- <property name="indent">
- <number>5</number>
- </property>
- </widget>
- </item>
- <item row="4" column="1">
- <widget class="DisplayText" name="decodedTextBrowser2">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Expanding" vsizetype="Expanding">
- <horstretch>0</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="minimumSize">
- <size>
- <width>200</width>
- <height>100</height>
- </size>
- </property>
- <property name="maximumSize">
- <size>
- <width>500</width>
- <height>1000</height>
- </size>
- </property>
- <property name="font">
- <font>
- <family>Courier New</family>
- <pointsize>10</pointsize>
- </font>
- </property>
- <property name="verticalScrollBarPolicy">
- <enum>Qt::ScrollBarAlwaysOn</enum>
- </property>
- <property name="horizontalScrollBarPolicy">
- <enum>Qt::ScrollBarAlwaysOff</enum>
- </property>
- </widget>
- </item>
- <item row="1" column="1">
- <widget class="QLabel" name="label_7">
- <property name="maximumSize">
- <size>
- <width>500</width>
- <height>16777215</height>
- </size>
- </property>
- <property name="font">
- <font>
- <pointsize>10</pointsize>
- <weight>50</weight>
- <bold>false</bold>
- </font>
- </property>
- <property name="text">
- <string>Rx Frequency</string>
- </property>
- <property name="alignment">
- <set>Qt::AlignCenter</set>
- </property>
- </widget>
- </item>
- <item row="1" column="0">
- <widget class="QLabel" name="label_6">
- <property name="maximumSize">
- <size>
- <width>500</width>
- <height>16777215</height>
- </size>
- </property>
- <property name="font">
- <font>
- <pointsize>10</pointsize>
- <weight>50</weight>
- <bold>false</bold>
- </font>
- </property>
- <property name="text">
- <string>Band Activity</string>
- </property>
- <property name="alignment">
- <set>Qt::AlignCenter</set>
- </property>
- </widget>
- </item>
- <item row="2" column="0">
- <widget class="Line" name="line">
- <property name="frameShadow">
- <enum>QFrame::Plain</enum>
- </property>
- <property name="orientation">
- <enum>Qt::Horizontal</enum>
- </property>
- </widget>
- </item>
- <item row="2" column="1">
- <widget class="Line" name="line_2">
- <property name="frameShadow">
- <enum>QFrame::Plain</enum>
- </property>
- <property name="orientation">
- <enum>Qt::Horizontal</enum>
- </property>
- </widget>
- </item>
- </layout>
- </item>
- <item>
- <layout class="QHBoxLayout" name="horizontalLayout_2">
- <item>
- <widget class="QPushButton" name="logQSOButton">
- <property name="minimumSize">
- <size>
- <width>50</width>
- <height>0</height>
- </size>
- </property>
- <property name="toolTip">
- <string>Enter this QSO in ADIF log</string>
- </property>
- <property name="text">
- <string>Log &QSO</string>
- </property>
- </widget>
- </item>
- <item>
- <widget class="QPushButton" name="stopButton">
- <property name="minimumSize">
- <size>
- <width>50</width>
- <height>0</height>
- </size>
- </property>
- <property name="toolTip">
- <string>Stop monitoring</string>
- </property>
- <property name="text">
- <string>&Stop</string>
- </property>
- </widget>
- </item>
- <item>
- <widget class="QPushButton" name="monitorButton">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Preferred" vsizetype="Fixed">
- <horstretch>0</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="minimumSize">
- <size>
- <width>50</width>
- <height>0</height>
- </size>
- </property>
- <property name="maximumSize">
- <size>
- <width>16777215</width>
- <height>16777215</height>
- </size>
- </property>
- <property name="toolTip">
- <string>Start monitoring</string>
- </property>
- <property name="text">
- <string>&Monitor</string>
- </property>
- </widget>
- </item>
- <item>
- <widget class="QPushButton" name="EraseButton">
- <property name="minimumSize">
- <size>
- <width>50</width>
- <height>0</height>
- </size>
- </property>
- <property name="toolTip">
- <string>Erase QSO Frequency window. Double-click for both windows</string>
- </property>
- <property name="text">
- <string>&Erase</string>
- </property>
- </widget>
- </item>
- <item>
- <widget class="QPushButton" name="DecodeButton">
- <property name="minimumSize">
- <size>
- <width>50</width>
- <height>0</height>
- </size>
- </property>
- <property name="toolTip">
- <string>Decode most recent Rx period at QSO Frequency (use shift for all freqs)</string>
- </property>
- <property name="text">
- <string>&Decode</string>
- </property>
- </widget>
- </item>
- <item>
- <widget class="QPushButton" name="autoButton">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Preferred" vsizetype="Fixed">
- <horstretch>0</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="minimumSize">
- <size>
- <width>50</width>
- <height>0</height>
- </size>
- </property>
- <property name="toolTip">
- <string>Toggle Tx Enable On/Off</string>
- </property>
- <property name="text">
- <string>E&nable Tx</string>
- </property>
- </widget>
- </item>
- <item>
- <widget class="QPushButton" name="stopTxButton">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Preferred" vsizetype="Fixed">
- <horstretch>0</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="minimumSize">
- <size>
- <width>50</width>
- <height>0</height>
- </size>
- </property>
- <property name="toolTip">
- <string>Set Tx Enable OFF</string>
- </property>
- <property name="text">
- <string>&Halt Tx</string>
- </property>
- </widget>
- </item>
- <item>
- <widget class="QPushButton" name="tuneButton">
- <property name="toolTip">
- <string>Assert PTT and emit a pure tone</string>
- </property>
- <property name="text">
- <string>&Tune</string>
- </property>
- </widget>
- </item>
- </layout>
- </item>
- <item>
- <layout class="QGridLayout" name="gridLayout_3">
- <item row="2" column="0" rowspan="5">
- <widget class="QFrame" name="meterFrame">
- <property name="minimumSize">
- <size>
- <width>50</width>
- <height>0</height>
- </size>
- </property>
- <property name="frameShape">
- <enum>QFrame::StyledPanel</enum>
- </property>
- <property name="frameShadow">
- <enum>QFrame::Raised</enum>
- </property>
- </widget>
- </item>
- <item row="3" column="3">
- <widget class="QLabel" name="labAz">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Preferred" vsizetype="Minimum">
- <horstretch>0</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="minimumSize">
- <size>
- <width>0</width>
- <height>23</height>
- </size>
- </property>
- <property name="maximumSize">
- <size>
- <width>16777215</width>
- <height>23</height>
- </size>
- </property>
- <property name="autoFillBackground">
- <bool>true</bool>
- </property>
- <property name="text">
- <string/>
- </property>
- <property name="alignment">
- <set>Qt::AlignCenter</set>
- </property>
- <property name="indent">
- <number>4</number>
- </property>
- </widget>
- </item>
- <item row="0" column="0" colspan="2">
- <widget class="QComboBox" name="bandComboBox">
- <property name="toolTip">
- <string>Select operating band</string>
- </property>
- <property name="currentIndex">
- <number>7</number>
- </property>
- <item>
- <property name="text">
- <string>2200 m</string>
- </property>
- </item>
- <item>
- <property name="text">
- <string>630 m</string>
- </property>
- </item>
- <item>
- <property name="text">
- <string>160 m</string>
- </property>
- </item>
- <item>
- <property name="text">
- <string>80 m</string>
- </property>
- </item>
- <item>
- <property name="text">
- <string>60 m</string>
- </property>
- </item>
- <item>
- <property name="text">
- <string>40 m</string>
- </property>
- </item>
- <item>
- <property name="text">
- <string>30 m</string>
- </property>
- </item>
- <item>
- <property name="text">
- <string>20 m</string>
- </property>
- </item>
- <item>
- <property name="text">
- <string>17 m</string>
- </property>
- </item>
- <item>
- <property name="text">
- <string>15 m</string>
- </property>
- </item>
- <item>
- <property name="text">
- <string>12 m</string>
- </property>
- </item>
- <item>
- <property name="text">
- <string>10 m</string>
- </property>
- </item>
- <item>
- <property name="text">
- <string>6 m</string>
- </property>
- </item>
- <item>
- <property name="text">
- <string>4 m</string>
- </property>
- </item>
- <item>
- <property name="text">
- <string>2 m</string>
- </property>
- </item>
- <item>
- <property name="text">
- <string>Other</string>
- </property>
- </item>
- </widget>
- </item>
- <item row="0" column="2">
- <widget class="QPushButton" name="readFreq">
- <property name="maximumSize">
- <size>
- <width>15</width>
- <height>15</height>
- </size>
- </property>
- <property name="toolTip">
- <string>If orange, click to read dial frequency once</string>
- </property>
- <property name="text">
- <string/>
- </property>
- </widget>
- </item>
- <item row="0" column="3" colspan="2">
- <widget class="QLabel" name="labDialFreq">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Preferred" vsizetype="Minimum">
- <horstretch>0</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="minimumSize">
- <size>
- <width>140</width>
- <height>30</height>
- </size>
- </property>
- <property name="maximumSize">
- <size>
- <width>158</width>
- <height>16777215</height>
- </size>
- </property>
- <property name="font">
- <font>
- <pointsize>16</pointsize>
- <weight>50</weight>
- <bold>false</bold>
- </font>
- </property>
- <property name="toolTip">
- <string>USB dial frequency</string>
- </property>
- <property name="text">
- <string>14.078</string>
- </property>
- <property name="alignment">
- <set>Qt::AlignCenter</set>
- </property>
- </widget>
- </item>
- <item row="0" column="6">
- <widget class="QCheckBox" name="txFirstCheckBox">
- <property name="minimumSize">
- <size>
- <width>105</width>
- <height>23</height>
- </size>
- </property>
- <property name="maximumSize">
- <size>
- <width>105</width>
- <height>16777215</height>
- </size>
- </property>
- <property name="toolTip">
- <string>Check to Tx in even minutes, uncheck for odd minutes</string>
- </property>
- <property name="text">
- <string>Tx even</string>
- </property>
- </widget>
- </item>
- <item row="0" column="8" rowspan="7">
- <widget class="QFrame" name="frame_2">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Fixed" vsizetype="Fixed">
- <horstretch>0</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="minimumSize">
- <size>
- <width>283</width>
- <height>222</height>
- </size>
- </property>
- <property name="frameShape">
- <enum>QFrame::NoFrame</enum>
- </property>
- <property name="frameShadow">
- <enum>QFrame::Plain</enum>
- </property>
- <property name="lineWidth">
- <number>0</number>
- </property>
- <layout class="QVBoxLayout" name="verticalLayout_2">
- <property name="spacing">
- <number>0</number>
- </property>
- <property name="margin">
- <number>0</number>
- </property>
- <item>
- <widget class="QTabWidget" name="tabWidget">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Expanding" vsizetype="Preferred">
- <horstretch>0</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="minimumSize">
- <size>
- <width>0</width>
- <height>200</height>
- </size>
- </property>
- <property name="tabPosition">
- <enum>QTabWidget::West</enum>
- </property>
- <property name="tabShape">
- <enum>QTabWidget::Triangular</enum>
- </property>
- <property name="currentIndex">
- <number>0</number>
- </property>
- <widget class="QWidget" name="tab">
- <attribute name="title">
- <string>1</string>
- </attribute>
- <layout class="QVBoxLayout" name="verticalLayout_4">
- <property name="spacing">
- <number>6</number>
- </property>
- <property name="leftMargin">
- <number>4</number>
- </property>
- <property name="topMargin">
- <number>1</number>
- </property>
- <property name="rightMargin">
- <number>0</number>
- </property>
- <property name="bottomMargin">
- <number>0</number>
- </property>
- <item>
- <layout class="QGridLayout" name="gridLayout_2">
- <property name="horizontalSpacing">
- <number>6</number>
- </property>
- <property name="verticalSpacing">
- <number>5</number>
- </property>
- <item row="1" column="2">
- <widget class="QPushButton" name="txb1">
- <property name="maximumSize">
- <size>
- <width>40</width>
- <height>16777215</height>
- </size>
- </property>
- <property name="toolTip">
- <string>Switch to this Tx message NOW</string>
- </property>
- <property name="layoutDirection">
- <enum>Qt::LeftToRight</enum>
- </property>
- <property name="text">
- <string>Tx 1</string>
- </property>
- </widget>
- </item>
- <item row="4" column="1">
- <widget class="QRadioButton" name="txrb4">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Fixed" vsizetype="Fixed">
- <horstretch>16</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="minimumSize">
- <size>
- <width>0</width>
- <height>20</height>
- </size>
- </property>
- <property name="maximumSize">
- <size>
- <width>20</width>
- <height>16777215</height>
- </size>
- </property>
- <property name="toolTip">
- <string>Send this message in next Tx interval</string>
- </property>
- <property name="text">
- <string/>
- </property>
- <attribute name="buttonGroup">
- <string>buttonGroup</string>
- </attribute>
- </widget>
- </item>
- <item row="1" column="1">
- <widget class="QRadioButton" name="txrb1">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Preferred" vsizetype="Fixed">
- <horstretch>16</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="minimumSize">
- <size>
- <width>0</width>
- <height>20</height>
- </size>
- </property>
- <property name="maximumSize">
- <size>
- <width>20</width>
- <height>16777215</height>
- </size>
- </property>
- <property name="toolTip">
- <string>Send this message in next Tx interval</string>
- </property>
- <property name="text">
- <string/>
- </property>
- <property name="checked">
- <bool>true</bool>
- </property>
- <attribute name="buttonGroup">
- <string>buttonGroup</string>
- </attribute>
- </widget>
- </item>
- <item row="3" column="1">
- <widget class="QRadioButton" name="txrb3">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Fixed" vsizetype="Fixed">
- <horstretch>16</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="minimumSize">
- <size>
- <width>0</width>
- <height>20</height>
- </size>
- </property>
- <property name="maximumSize">
- <size>
- <width>20</width>
- <height>16777215</height>
- </size>
- </property>
- <property name="toolTip">
- <string>Send this message in next Tx interval</string>
- </property>
- <property name="text">
- <string/>
- </property>
- <attribute name="buttonGroup">
- <string>buttonGroup</string>
- </attribute>
- </widget>
- </item>
- <item row="1" column="0">
- <widget class="QLineEdit" name="tx1">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Preferred" vsizetype="Fixed">
- <horstretch>200</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="minimumSize">
- <size>
- <width>150</width>
- <height>24</height>
- </size>
- </property>
- <property name="maximumSize">
- <size>
- <width>150</width>
- <height>16777215</height>
- </size>
- </property>
- <property name="font">
- <font>
- <family>Droid Sans</family>
- <weight>50</weight>
- <bold>false</bold>
- </font>
- </property>
- <property name="text">
- <string/>
- </property>
- </widget>
- </item>
- <item row="3" column="2">
- <widget class="QPushButton" name="txb3">
- <property name="maximumSize">
- <size>
- <width>40</width>
- <height>16777215</height>
- </size>
- </property>
- <property name="toolTip">
- <string>Switch to this Tx message NOW</string>
- </property>
- <property name="text">
- <string>Tx 3</string>
- </property>
- </widget>
- </item>
- <item row="4" column="2">
- <widget class="QPushButton" name="txb4">
- <property name="maximumSize">
- <size>
- <width>40</width>
- <height>16777215</height>
- </size>
- </property>
- <property name="toolTip">
- <string>Switch to this Tx message NOW</string>
- </property>
- <property name="text">
- <string>Tx 4</string>
- </property>
- </widget>
- </item>
- <item row="0" column="1">
- <widget class="QLabel" name="label_5">
- <property name="toolTip">
- <string>Queue up the next Tx message</string>
- </property>
- <property name="text">
- <string>Next</string>
- </property>
- </widget>
- </item>
- <item row="6" column="0">
- <widget class="QLineEdit" name="tx6">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Preferred" vsizetype="Fixed">
- <horstretch>200</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="minimumSize">
- <size>
- <width>150</width>
- <height>24</height>
- </size>
- </property>
- <property name="maximumSize">
- <size>
- <width>150</width>
- <height>16777215</height>
- </size>
- </property>
- </widget>
- </item>
- <item row="5" column="0">
- <widget class="QLineEdit" name="tx5">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Preferred" vsizetype="Fixed">
- <horstretch>200</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="minimumSize">
- <size>
- <width>150</width>
- <height>24</height>
- </size>
- </property>
- <property name="maximumSize">
- <size>
- <width>150</width>
- <height>16777215</height>
- </size>
- </property>
- <property name="toolTip">
- <string>Right-click to select a macro message</string>
- </property>
- </widget>
- </item>
- <item row="5" column="2">
- <widget class="QPushButton" name="txb5">
- <property name="maximumSize">
- <size>
- <width>40</width>
- <height>16777215</height>
- </size>
- </property>
- <property name="toolTip">
- <string>Switch to this Tx message NOW</string>
- </property>
- <property name="text">
- <string>Tx 5</string>
- </property>
- </widget>
- </item>
- <item row="2" column="1">
- <widget class="QRadioButton" name="txrb2">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Fixed" vsizetype="Fixed">
- <horstretch>16</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="minimumSize">
- <size>
- <width>0</width>
- <height>20</height>
- </size>
- </property>
- <property name="maximumSize">
- <size>
- <width>20</width>
- <height>16777215</height>
- </size>
- </property>
- <property name="toolTip">
- <string>Send this message in next Tx interval</string>
- </property>
- <property name="text">
- <string/>
- </property>
- <attribute name="buttonGroup">
- <string>buttonGroup</string>
- </attribute>
- </widget>
- </item>
- <item row="0" column="2">
- <widget class="QLabel" name="label_2">
- <property name="toolTip">
- <string>Switch to this Tx message NOW</string>
- </property>
- <property name="text">
- <string>Now</string>
- </property>
- <property name="alignment">
- <set>Qt::AlignCenter</set>
- </property>
- </widget>
- </item>
- <item row="0" column="0">
- <widget class="QPushButton" name="genStdMsgsPushButton">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Preferred" vsizetype="Fixed">
- <horstretch>200</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="minimumSize">
- <size>
- <width>150</width>
- <height>0</height>
- </size>
- </property>
- <property name="maximumSize">
- <size>
- <width>150</width>
- <height>16777215</height>
- </size>
- </property>
- <property name="toolTip">
- <string>Generate standard messages for minimal QSO</string>
- </property>
- <property name="text">
- <string>Generate Std Msgs</string>
- </property>
- </widget>
- </item>
- <item row="2" column="0">
- <widget class="QLineEdit" name="tx2">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Preferred" vsizetype="Fixed">
- <horstretch>200</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="minimumSize">
- <size>
- <width>150</width>
- <height>24</height>
- </size>
- </property>
- <property name="maximumSize">
- <size>
- <width>150</width>
- <height>16777215</height>
- </size>
- </property>
- </widget>
- </item>
- <item row="3" column="0">
- <widget class="QLineEdit" name="tx3">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Preferred" vsizetype="Fixed">
- <horstretch>200</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="minimumSize">
- <size>
- <width>150</width>
- <height>24</height>
- </size>
- </property>
- <property name="maximumSize">
- <size>
- <width>150</width>
- <height>16777215</height>
- </size>
- </property>
- </widget>
- </item>
- <item row="6" column="2">
- <widget class="QPushButton" name="txb6">
- <property name="maximumSize">
- <size>
- <width>40</width>
- <height>16777215</height>
- </size>
- </property>
- <property name="toolTip">
- <string>Switch to this Tx message NOW</string>
- </property>
- <property name="text">
- <string>Tx 6</string>
- </property>
- </widget>
- </item>
- <item row="2" column="2">
- <widget class="QPushButton" name="txb2">
- <property name="maximumSize">
- <size>
- <width>40</width>
- <height>16777215</height>
- </size>
- </property>
- <property name="toolTip">
- <string>Switch to this Tx message NOW</string>
- </property>
- <property name="text">
- <string>Tx 2</string>
- </property>
- </widget>
- </item>
- <item row="6" column="1">
- <widget class="QRadioButton" name="txrb6">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Fixed" vsizetype="Fixed">
- <horstretch>16</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="minimumSize">
- <size>
- <width>0</width>
- <height>20</height>
- </size>
- </property>
- <property name="maximumSize">
- <size>
- <width>20</width>
- <height>16777215</height>
- </size>
- </property>
- <property name="toolTip">
- <string>Send this message in next Tx interval</string>
- </property>
- <property name="text">
- <string/>
- </property>
- <attribute name="buttonGroup">
- <string>buttonGroup</string>
- </attribute>
- </widget>
- </item>
- <item row="5" column="1">
- <widget class="QRadioButton" name="txrb5">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Fixed" vsizetype="Fixed">
- <horstretch>16</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="minimumSize">
- <size>
- <width>0</width>
- <height>20</height>
- </size>
- </property>
- <property name="maximumSize">
- <size>
- <width>20</width>
- <height>16777215</height>
- </size>
- </property>
- <property name="toolTip">
- <string>Send this message in next Tx interval</string>
- </property>
- <property name="text">
- <string/>
- </property>
- <attribute name="buttonGroup">
- <string>buttonGroup</string>
- </attribute>
- </widget>
- </item>
- <item row="4" column="0">
- <widget class="QLineEdit" name="tx4">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Preferred" vsizetype="Fixed">
- <horstretch>200</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="minimumSize">
- <size>
- <width>150</width>
- <height>24</height>
- </size>
- </property>
- <property name="maximumSize">
- <size>
- <width>150</width>
- <height>16777215</height>
- </size>
- </property>
- </widget>
- </item>
- </layout>
- </item>
- </layout>
- </widget>
- <widget class="QWidget" name="tab_2">
- <attribute name="title">
- <string>2</string>
- </attribute>
- <layout class="QVBoxLayout" name="verticalLayout_9">
- <property name="spacing">
- <number>0</number>
- </property>
- <property name="margin">
- <number>0</number>
- </property>
- <item>
- <layout class="QVBoxLayout" name="verticalLayout_7">
- <property name="spacing">
- <number>6</number>
- </property>
- <property name="leftMargin">
- <number>2</number>
- </property>
- <property name="rightMargin">
- <number>2</number>
- </property>
- <item>
- <layout class="QGridLayout" name="gridLayout_4">
- <property name="spacing">
- <number>2</number>
- </property>
- <item row="0" column="0">
- <widget class="QLabel" name="label_9">
- <property name="minimumSize">
- <size>
- <width>0</width>
- <height>30</height>
- </size>
- </property>
- <property name="maximumSize">
- <size>
- <width>16777215</width>
- <height>30</height>
- </size>
- </property>
- <property name="text">
- <string>Calling CQ </string>
- </property>
- <property name="alignment">
- <set>Qt::AlignCenter</set>
- </property>
- </widget>
- </item>
- <item row="1" column="0">
- <widget class="QPushButton" name="pbCallCQ">
- <property name="toolTip">
- <string>Generate a CQ message</string>
- </property>
- <property name="text">
- <string>CQ</string>
- </property>
- </widget>
- </item>
- <item row="3" column="0">
- <widget class="QPushButton" name="pbSendRRR">
- <property name="toolTip">
- <string>Generate message with RRR</string>
- </property>
- <property name="text">
- <string>RRR</string>
- </property>
- </widget>
- </item>
- <item row="2" column="0">
- <widget class="QPushButton" name="pbAnswerCaller">
- <property name="toolTip">
- <string>Generate message with report</string>
- </property>
- <property name="text">
- <string>dB</string>
- </property>
- </widget>
- </item>
- <item row="0" column="1">
- <widget class="QLabel" name="label_10">
- <property name="minimumSize">
- <size>
- <width>0</width>
- <height>30</height>
- </size>
- </property>
- <property name="maximumSize">
- <size>
- <width>16777215</width>
- <height>30</height>
- </size>
- </property>
- <property name="text">
- <string>Answering CQ</string>
- </property>
- <property name="alignment">
- <set>Qt::AlignCenter</set>
- </property>
- </widget>
- </item>
- <item row="1" column="1">
- <widget class="QPushButton" name="pbAnswerCQ">
- <property name="toolTip">
- <string>Generate message for replying to a CQ</string>
- </property>
- <property name="text">
- <string>Grid</string>
- </property>
- </widget>
- </item>
- <item row="2" column="1">
- <widget class="QPushButton" name="pbSendReport">
- <property name="toolTip">
- <string>Generate message with R+report</string>
- </property>
- <property name="text">
- <string>R+dB</string>
- </property>
- </widget>
- </item>
- <item row="3" column="1">
- <widget class="QPushButton" name="pbSend73">
- <property name="toolTip">
- <string>Generate message with 73</string>
- </property>
- <property name="text">
- <string>73</string>
- </property>
- </widget>
- </item>
- </layout>
- </item>
- <item>
- <layout class="QHBoxLayout" name="horizontalLayout_3">
- <item>
- <widget class="QLineEdit" name="genMsg">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Preferred" vsizetype="Fixed">
- <horstretch>0</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="minimumSize">
- <size>
- <width>150</width>
- <height>0</height>
- </size>
- </property>
- <property name="readOnly">
- <bool>true</bool>
- </property>
- </widget>
- </item>
- <item>
- <widget class="QRadioButton" name="rbGenMsg">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Preferred" vsizetype="Fixed">
- <horstretch>0</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="minimumSize">
- <size>
- <width>0</width>
- <height>26</height>
- </size>
- </property>
- <property name="toolTip">
- <string>Send this standard (generated) message</string>
- </property>
- <property name="text">
- <string>Gen msg</string>
- </property>
- <property name="checked">
- <bool>true</bool>
- </property>
- </widget>
- </item>
- </layout>
- </item>
- <item>
- <layout class="QHBoxLayout" name="horizontalLayout">
- <item>
- <widget class="QLineEdit" name="freeTextMsg">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Preferred" vsizetype="Fixed">
- <horstretch>0</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="minimumSize">
- <size>
- <width>150</width>
- <height>0</height>
- </size>
- </property>
- </widget>
- </item>
- <item>
- <widget class="QRadioButton" name="rbFreeText">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Preferred" vsizetype="Fixed">
- <horstretch>0</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="minimumSize">
- <size>
- <width>0</width>
- <height>26</height>
- </size>
- </property>
- <property name="toolTip">
- <string>Send this free-text message (max 13 characters)</string>
- </property>
- <property name="text">
- <string>Free msg</string>
- </property>
- </widget>
- </item>
- </layout>
- </item>
- </layout>
- </item>
- </layout>
- </widget>
- </widget>
- </item>
- </layout>
- </widget>
- </item>
- <item row="1" column="0" colspan="3">
- <widget class="QCheckBox" name="cbPlus2kHz">
- <property name="text">
- <string> +2 kHz</string>
- </property>
- </widget>
- </item>
- <item row="1" column="3">
- <widget class="QLabel" name="label_3">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Preferred" vsizetype="Minimum">
- <horstretch>0</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="minimumSize">
- <size>
- <width>0</width>
- <height>23</height>
- </size>
- </property>
- <property name="palette">
- <palette>
- <active>
- <colorrole role="Base">
- <brush brushstyle="SolidPattern">
- <color alpha="255">
- <red>252</red>
- <green>252</green>
- <blue>252</blue>
- </color>
- </brush>
- </colorrole>
- <colorrole role="Window">
- <brush brushstyle="SolidPattern">
- <color alpha="255">
- <red>159</red>
- <green>175</green>
- <blue>213</blue>
- </color>
- </brush>
- </colorrole>
- </active>
- <inactive>
- <colorrole role="Base">
- <brush brushstyle="SolidPattern">
- <color alpha="255">
- <red>252</red>
- <green>252</green>
- <blue>252</blue>
- </color>
- </brush>
- </colorrole>
- <colorrole role="Window">
- <brush brushstyle="SolidPattern">
- <color alpha="255">
- <red>159</red>
- <green>175</green>
- <blue>213</blue>
- </color>
- </brush>
- </colorrole>
- </inactive>
- <disabled>
- <colorrole role="Base">
- <brush brushstyle="SolidPattern">
- <color alpha="255">
- <red>159</red>
- <green>175</green>
- <blue>213</blue>
- </color>
- </brush>
- </colorrole>
- <colorrole role="Window">
- <brush brushstyle="SolidPattern">
- <color alpha="255">
- <red>159</red>
- <green>175</green>
- <blue>213</blue>
- </color>
- </brush>
- </colorrole>
- </disabled>
- </palette>
- </property>
- <property name="autoFillBackground">
- <bool>true</bool>
- </property>
- <property name="text">
- <string>DX Call</string>
- </property>
- <property name="alignment">
- <set>Qt::AlignCenter</set>
- </property>
- <property name="indent">
- <number>2</number>
- </property>
- </widget>
- </item>
- <item row="1" column="4">
- <widget class="QLabel" name="label_4">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Preferred" vsizetype="Minimum">
- <horstretch>0</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="minimumSize">
- <size>
- <width>0</width>
- <height>23</height>
- </size>
- </property>
- <property name="maximumSize">
- <size>
- <width>16777215</width>
- <height>16777215</height>
- </size>
- </property>
- <property name="palette">
- <palette>
- <active>
- <colorrole role="Base">
- <brush brushstyle="SolidPattern">
- <color alpha="255">
- <red>252</red>
- <green>252</green>
- <blue>252</blue>
- </color>
- </brush>
- </colorrole>
- <colorrole role="Window">
- <brush brushstyle="SolidPattern">
- <color alpha="255">
- <red>159</red>
- <green>175</green>
- <blue>213</blue>
- </color>
- </brush>
- </colorrole>
- </active>
- <inactive>
- <colorrole role="Base">
- <brush brushstyle="SolidPattern">
- <color alpha="255">
- <red>252</red>
- <green>252</green>
- <blue>252</blue>
- </color>
- </brush>
- </colorrole>
- <colorrole role="Window">
- <brush brushstyle="SolidPattern">
- <color alpha="255">
- <red>159</red>
- <green>175</green>
- <blue>213</blue>
- </color>
- </brush>
- </colorrole>
- </inactive>
- <disabled>
- <colorrole role="Base">
- <brush brushstyle="SolidPattern">
- <color alpha="255">
- <red>159</red>
- <green>175</green>
- <blue>213</blue>
- </color>
- </brush>
- </colorrole>
- <colorrole role="Window">
- <brush brushstyle="SolidPattern">
- <color alpha="255">
- <red>159</red>
- <green>175</green>
- <blue>213</blue>
- </color>
- </brush>
- </colorrole>
- </disabled>
- </palette>
- </property>
- <property name="autoFillBackground">
- <bool>true</bool>
- </property>
- <property name="text">
- <string>DX Grid</string>
- </property>
- <property name="alignment">
- <set>Qt::AlignCenter</set>
- </property>
- <property name="indent">
- <number>2</number>
- </property>
- </widget>
- </item>
- <item row="1" column="6">
- <widget class="QPushButton" name="pbTxMode">
- <property name="enabled">
- <bool>false</bool>
- </property>
- <property name="text">
- <string>Tx JT9</string>
- </property>
- </widget>
- </item>
- <item row="2" column="1" rowspan="5">
- <widget class="QSlider" name="inGain">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Fixed" vsizetype="Fixed">
- <horstretch>0</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="minimumSize">
- <size>
- <width>0</width>
- <height>160</height>
- </size>
- </property>
- <property name="maximumSize">
- <size>
- <width>20</width>
- <height>160</height>
- </size>
- </property>
- <property name="toolTip">
- <string>Digital gain for audio input</string>
- </property>
- <property name="minimum">
- <number>-50</number>
- </property>
- <property name="maximum">
- <number>50</number>
- </property>
- <property name="orientation">
- <enum>Qt::Vertical</enum>
- </property>
- </widget>
- </item>
- <item row="2" column="3">
- <widget class="QLineEdit" name="dxCallEntry">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Preferred" vsizetype="Fixed">
- <horstretch>0</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="minimumSize">
- <size>
- <width>70</width>
- <height>27</height>
- </size>
- </property>
- <property name="maximumSize">
- <size>
- <width>74</width>
- <height>16777215</height>
- </size>
- </property>
- <property name="toolTip">
- <string>Callsign of station to be worked</string>
- </property>
- <property name="text">
- <string/>
- </property>
- <property name="alignment">
- <set>Qt::AlignCenter</set>
- </property>
- </widget>
- </item>
- <item row="2" column="4">
- <widget class="QLineEdit" name="dxGridEntry">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Preferred" vsizetype="Fixed">
- <horstretch>0</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="minimumSize">
- <size>
- <width>70</width>
- <height>27</height>
- </size>
- </property>
- <property name="maximumSize">
- <size>
- <width>74</width>
- <height>16777215</height>
- </size>
- </property>
- <property name="toolTip">
- <string>Locator of station to be worked</string>
- </property>
- <property name="text">
- <string/>
- </property>
- <property name="alignment">
- <set>Qt::AlignCenter</set>
- </property>
- </widget>
- </item>
- <item row="2" column="6">
- <widget class="QSpinBox" name="TxFreqSpinBox">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Fixed" vsizetype="Fixed">
- <horstretch>0</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="minimumSize">
- <size>
- <width>113</width>
- <height>0</height>
- </size>
- </property>
- <property name="maximumSize">
- <size>
- <width>105</width>
- <height>16777215</height>
- </size>
- </property>
- <property name="toolTip">
- <string>Audio Tx frequency</string>
- </property>
- <property name="suffix">
- <string> Hz</string>
- </property>
- <property name="prefix">
- <string>Tx </string>
- </property>
- <property name="minimum">
- <number>200</number>
- </property>
- <property name="maximum">
- <number>5000</number>
- </property>
- <property name="value">
- <number>1500</number>
- </property>
- </widget>
- </item>
- <item row="3" column="4">
- <widget class="QLabel" name="labDist">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Preferred" vsizetype="Minimum">
- <horstretch>0</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="minimumSize">
- <size>
- <width>0</width>
- <height>23</height>
- </size>
- </property>
- <property name="maximumSize">
- <size>
- <width>16777215</width>
- <height>23</height>
- </size>
- </property>
- <property name="text">
- <string/>
- </property>
- <property name="alignment">
- <set>Qt::AlignCenter</set>
- </property>
- </widget>
- </item>
- <item row="3" column="5">
- <spacer name="horizontalSpacer">
- <property name="orientation">
- <enum>Qt::Horizontal</enum>
- </property>
- <property name="sizeType">
- <enum>QSizePolicy::Expanding</enum>
- </property>
- <property name="sizeHint" stdset="0">
- <size>
- <width>33</width>
- <height>20</height>
- </size>
- </property>
- </spacer>
- </item>
- <item row="3" column="6">
- <widget class="QSpinBox" name="RxFreqSpinBox">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Fixed" vsizetype="Fixed">
- <horstretch>0</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="minimumSize">
- <size>
- <width>113</width>
- <height>20</height>
- </size>
- </property>
- <property name="suffix">
- <string> Hz</string>
- </property>
- <property name="prefix">
- <string>Rx </string>
- </property>
- <property name="minimum">
- <number>200</number>
- </property>
- <property name="maximum">
- <number>5000</number>
- </property>
- <property name="value">
- <number>1500</number>
- </property>
- </widget>
- </item>
- <item row="3" column="7">
- <spacer name="horizontalSpacer_3">
- <property name="orientation">
- <enum>Qt::Horizontal</enum>
- </property>
- <property name="sizeType">
- <enum>QSizePolicy::Expanding</enum>
- </property>
- <property name="sizeHint" stdset="0">
- <size>
- <width>13</width>
- <height>20</height>
- </size>
- </property>
- </spacer>
- </item>
- <item row="4" column="3">
- <widget class="QPushButton" name="lookupButton">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Preferred" vsizetype="Fixed">
- <horstretch>0</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="maximumSize">
- <size>
- <width>74</width>
- <height>16777215</height>
- </size>
- </property>
- <property name="toolTip">
- <string>Search for callsign in database</string>
- </property>
- <property name="text">
- <string>&Lookup</string>
- </property>
- </widget>
- </item>
- <item row="4" column="4">
- <widget class="QPushButton" name="addButton">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Preferred" vsizetype="Fixed">
- <horstretch>0</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="maximumSize">
- <size>
- <width>74</width>
- <height>16777215</height>
- </size>
- </property>
- <property name="toolTip">
- <string>Add callsign and locator to database</string>
- </property>
- <property name="text">
- <string>Add</string>
- </property>
- </widget>
- </item>
- <item row="4" column="6">
- <layout class="QHBoxLayout" name="horizontalLayout_5">
- <property name="spacing">
- <number>5</number>
- </property>
- <property name="sizeConstraint">
- <enum>QLayout::SetFixedSize</enum>
- </property>
- <item>
- <widget class="QPushButton" name="pbR2T">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Fixed" vsizetype="Fixed">
- <horstretch>0</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="maximumSize">
- <size>
- <width>48</width>
- <height>16777215</height>
- </size>
- </property>
- <property name="toolTip">
- <string>Set Tx frequency to Rx Frequency</string>
- </property>
- <property name="text">
- <string>Tx=Rx</string>
- </property>
- </widget>
- </item>
- <item>
- <widget class="QPushButton" name="pbT2R">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Fixed" vsizetype="Fixed">
- <horstretch>0</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="maximumSize">
- <size>
- <width>48</width>
- <height>16777215</height>
- </size>
- </property>
- <property name="toolTip">
- <string>Set Rx frequency to Tx Frequency</string>
- </property>
- <property name="text">
- <string>Rx=Tx</string>
- </property>
- </widget>
- </item>
- </layout>
- </item>
- <item row="5" column="3" rowspan="2" colspan="2">
- <widget class="QLabel" name="labUTC">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Preferred" vsizetype="Fixed">
- <horstretch>0</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="minimumSize">
- <size>
- <width>130</width>
- <height>60</height>
- </size>
- </property>
- <property name="maximumSize">
- <size>
- <width>158</width>
- <height>60</height>
- </size>
- </property>
- <property name="font">
- <font>
- <pointsize>16</pointsize>
- </font>
- </property>
- <property name="frameShape">
- <enum>QFrame::StyledPanel</enum>
- </property>
- <property name="frameShadow">
- <enum>QFrame::Sunken</enum>
- </property>
- <property name="lineWidth">
- <number>2</number>
- </property>
- <property name="midLineWidth">
- <number>0</number>
- </property>
- <property name="text">
- <string> 01:23:45 </string>
- </property>
- <property name="alignment">
- <set>Qt::AlignCenter</set>
- </property>
- </widget>
- </item>
- <item row="5" column="6">
- <widget class="QCheckBox" name="cbTxLock">
- <property name="text">
- <string>Lock Tx=Rx</string>
- </property>
- </widget>
- </item>
- <item row="6" column="6">
- <layout class="QHBoxLayout" name="horizontalLayout_4">
- <property name="spacing">
- <number>5</number>
- </property>
- <item>
- <widget class="QLabel" name="label_8">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Fixed" vsizetype="Fixed">
- <horstretch>0</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="text">
- <string>Report</string>
- </property>
- </widget>
- </item>
- <item>
- <widget class="QSpinBox" name="rptSpinBox">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Fixed" vsizetype="Fixed">
- <horstretch>0</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="minimumSize">
- <size>
- <width>55</width>
- <height>0</height>
- </size>
- </property>
- <property name="maximumSize">
- <size>
- <width>55</width>
- <height>16777215</height>
- </size>
- </property>
- <property name="toolTip">
- <string>Signal report (dB0</string>
- </property>
- <property name="minimum">
- <number>-50</number>
- </property>
- <property name="maximum">
- <number>49</number>
- </property>
- <property name="value">
- <number>-15</number>
- </property>
- </widget>
- </item>
- </layout>
- </item>
- </layout>
- </item>
- </layout>
- </widget>
- <widget class="QMenuBar" name="menuBar">
- <property name="geometry">
- <rect>
- <x>0</x>
- <y>0</y>
- <width>760</width>
- <height>21</height>
- </rect>
- </property>
- <widget class="QMenu" name="menuFile">
- <property name="title">
- <string>File</string>
- </property>
- <addaction name="actionOpen"/>
- <addaction name="actionOpen_next_in_directory"/>
- <addaction name="actionDecode_remaining_files_in_directory"/>
- <addaction name="separator"/>
- <addaction name="actionDelete_all_wav_files_in_SaveDir"/>
- <addaction name="actionErase_ALL_TXT"/>
- <addaction name="actionErase_wsjtx_log_adi"/>
- <addaction name="separator"/>
- <addaction name="actionExit"/>
- </widget>
- <widget class="QMenu" name="menuSetup">
- <property name="title">
- <string>Setup</string>
- </property>
- <widget class="QMenu" name="menuAdvanced">
- <property name="enabled">
- <bool>true</bool>
- </property>
- <property name="title">
- <string>Advanced</string>
- </property>
- <addaction name="actionAllow_multiple_instances"/>
- </widget>
- <addaction name="actionDeviceSetup"/>
- <addaction name="separator"/>
- <addaction name="actionMonitor_OFF_at_startup"/>
- <addaction name="actionConvert_JT9_x_to_RTTY"/>
- <addaction name="actionLog_dB_reports_to_Comments"/>
- <addaction name="actionPrompt_to_log_QSO"/>
- <addaction name="actionBlank_line_between_decoding_periods"/>
- <addaction name="actionClear_DX_Call_and_Grid_after_logging"/>
- <addaction name="actionDisplay_distance_in_miles"/>
- <addaction name="actionDouble_click_on_call_sets_Tx_Enable"/>
- <addaction name="action_73TxDisable"/>
- <addaction name="actionRunaway_Tx_watchdog"/>
- <addaction name="actionTx2QSO"/>
- <addaction name="separator"/>
- <addaction name="menuAdvanced"/>
- </widget>
- <widget class="QMenu" name="menuView">
- <property name="title">
- <string>View</string>
- </property>
- <widget class="QMenu" name="menuWaterfall_palette">
- <property name="title">
- <string>Waterfall palette</string>
- </property>
- <addaction name="actionLinrad"/>
- <addaction name="actionCuteSDR"/>
- <addaction name="actionAFMHot"/>
- <addaction name="actionBlue"/>
- </widget>
- <addaction name="actionWide_Waterfall"/>
- <addaction name="separator"/>
- <addaction name="menuWaterfall_palette"/>
- </widget>
- <widget class="QMenu" name="menuDecode">
- <property name="title">
- <string>Decode</string>
- </property>
- <addaction name="actionQuickDecode"/>
- <addaction name="actionMediumDecode"/>
- <addaction name="actionDeepestDecode"/>
- </widget>
- <widget class="QMenu" name="menuSave">
- <property name="title">
- <string>Save</string>
- </property>
- <addaction name="actionNone"/>
- <addaction name="actionSave_decoded"/>
- <addaction name="actionSave_all"/>
- </widget>
- <widget class="QMenu" name="menuHelp">
- <property name="title">
- <string>Help</string>
- </property>
- <addaction name="actionOnline_Users_Guide"/>
- <addaction name="actionKeyboard_shortcuts"/>
- <addaction name="actionSpecial_mouse_commands"/>
- <addaction name="actionAbout"/>
- </widget>
- <widget class="QMenu" name="menuMode">
- <property name="title">
- <string>Mode</string>
- </property>
- <addaction name="actionJT9_1"/>
- <addaction name="actionJT65"/>
- <addaction name="actionJT9_JT65"/>
- </widget>
- <addaction name="menuFile"/>
- <addaction name="menuSetup"/>
- <addaction name="menuView"/>
- <addaction name="menuMode"/>
- <addaction name="menuDecode"/>
- <addaction name="menuSave"/>
- <addaction name="menuHelp"/>
- </widget>
- <widget class="QStatusBar" name="statusBar"/>
- <action name="actionExit">
- <property name="text">
- <string>Exit</string>
- </property>
- </action>
- <action name="actionDeviceSetup">
- <property name="checkable">
- <bool>false</bool>
- </property>
- <property name="text">
- <string>Configuration</string>
- </property>
- <property name="shortcut">
- <string>F2</string>
- </property>
- </action>
- <action name="actionAbout">
- <property name="text">
- <string> About WSJT-X</string>
- </property>
- <property name="shortcut">
- <string>Ctrl+F1</string>
- </property>
- </action>
- <action name="actionAstro_Data">
- <property name="text">
- <string>Astro Data</string>
- </property>
- <property name="shortcut">
- <string>Shift+F10</string>
- </property>
- </action>
- <action name="actionBand_Map">
- <property name="text">
- <string>Band Map</string>
- </property>
- </action>
- <action name="actionMessages">
- <property name="text">
- <string>Messages</string>
- </property>
- </action>
- <action name="actionWide_Waterfall">
- <property name="text">
- <string>Waterfall</string>
- </property>
- </action>
- <action name="actionOpen">
- <property name="text">
- <string>Open</string>
- </property>
- </action>
- <action name="actionOpen_next_in_directory">
- <property name="text">
- <string>Open next in directory</string>
- </property>
- <property name="shortcut">
- <string>F6</string>
- </property>
- </action>
- <action name="actionDecode_remaining_files_in_directory">
- <property name="text">
- <string>Decode remaining files in directory</string>
- </property>
- <property name="shortcut">
- <string>Shift+F6</string>
- </property>
- </action>
- <action name="actionDelete_all_wav_files_in_SaveDir">
- <property name="text">
- <string>Delete all *.wav files in SaveDir</string>
- </property>
- </action>
- <action name="actionErase_Band_Map_and_Messages">
- <property name="text">
- <string>Erase Band Map and Messages</string>
- </property>
- </action>
- <action name="actionLinrad">
- <property name="checkable">
- <bool>true</bool>
- </property>
- <property name="checked">
- <bool>true</bool>
- </property>
- <property name="text">
- <string>Linrad</string>
- </property>
- </action>
- <action name="actionCuteSDR">
- <property name="checkable">
- <bool>true</bool>
- </property>
- <property name="checked">
- <bool>false</bool>
- </property>
- <property name="text">
- <string>CuteSDR</string>
- </property>
- </action>
- <action name="actionFind_Delta_Phi">
- <property name="text">
- <string>Find Delta Phi</string>
- </property>
- </action>
- <action name="actionF4_sets_Tx6">
- <property name="checkable">
- <bool>true</bool>
- </property>
- <property name="text">
- <string>F4 sets Tx6</string>
- </property>
- </action>
- <action name="actionNo_shorthands_if_Tx1">
- <property name="checkable">
- <bool>true</bool>
- </property>
- <property name="text">
- <string>No shorthand decodes if Tx1</string>
- </property>
- </action>
- <action name="actionQuickDecode">
- <property name="checkable">
- <bool>true</bool>
- </property>
- <property name="checked">
- <bool>false</bool>
- </property>
- <property name="text">
- <string>Fast</string>
- </property>
- </action>
- <action name="actionNone">
- <property name="checkable">
- <bool>true</bool>
- </property>
- <property name="checked">
- <bool>true</bool>
- </property>
- <property name="text">
- <string>None</string>
- </property>
- </action>
- <action name="actionSave_all">
- <property name="checkable">
- <bool>true</bool>
- </property>
- <property name="text">
- <string>Save all</string>
- </property>
- </action>
- <action name="action50">
- <property name="checkable">
- <bool>true</bool>
- </property>
- <property name="text">
- <string>50</string>
- </property>
- </action>
- <action name="action144">
- <property name="checkable">
- <bool>true</bool>
- </property>
- <property name="checked">
- <bool>true</bool>
- </property>
- <property name="text">
- <string>144</string>
- </property>
- </action>
- <action name="action222">
- <property name="checkable">
- <bool>true</bool>
- </property>
- <property name="text">
- <string>222</string>
- </property>
- </action>
- <action name="action432">
- <property name="checkable">
- <bool>true</bool>
- </property>
- <property name="text">
- <string>432</string>
- </property>
- </action>
- <action name="action1296">
- <property name="checkable">
- <bool>true</bool>
- </property>
- <property name="text">
- <string>1296</string>
- </property>
- </action>
- <action name="action2304">
- <property name="checkable">
- <bool>true</bool>
- </property>
- <property name="text">
- <string>2304</string>
- </property>
- </action>
- <action name="actionOnline_Users_Guide">
- <property name="text">
- <string>Online User's Guide</string>
- </property>
- <property name="shortcut">
- <string>F1</string>
- </property>
- </action>
- <action name="actionKeyboard_shortcuts">
- <property name="text">
- <string>Keyboard shortcuts</string>
- </property>
- <property name="shortcut">
- <string>F3</string>
- </property>
- </action>
- <action name="actionSpecial_mouse_commands">
- <property name="text">
- <string>Special mouse commands</string>
- </property>
- <property name="shortcut">
- <string>F5</string>
- </property>
- </action>
- <action name="actionAvailable_suffixes_and_add_on_prefixes">
- <property name="text">
- <string>Available suffixes and add-on-prefixes</string>
- </property>
- </action>
- <action name="actionJT65A">
- <property name="checkable">
- <bool>true</bool>
- </property>
- <property name="text">
- <string>JT65A</string>
- </property>
- </action>
- <action name="actionJT65B">
- <property name="checkable">
- <bool>true</bool>
- </property>
- <property name="checked">
- <bool>true</bool>
- </property>
- <property name="text">
- <string>JT65B</string>
- </property>
- </action>
- <action name="actionJT65C">
- <property name="checkable">
- <bool>true</bool>
- </property>
- <property name="text">
- <string>JT65C</string>
- </property>
- </action>
- <action name="actionI_Q_Calibration">
- <property name="text">
- <string>I/Q Calibration</string>
- </property>
- <property name="shortcut">
- <string>F7</string>
- </property>
- </action>
- <action name="actionAdjust_IQ_Calibration">
- <property name="text">
- <string>Adjust I/Q Calibration</string>
- </property>
- </action>
- <action name="actionApply_IQ_Calibration">
- <property name="checkable">
- <bool>true</bool>
- </property>
- <property name="text">
- <string>Apply I/Q Calibration</string>
- </property>
- </action>
- <action name="actionAFMHot">
- <property name="checkable">
- <bool>true</bool>
- </property>
- <property name="text">
- <string>AFMHot</string>
- </property>
- </action>
- <action name="actionBlue">
- <property name="checkable">
- <bool>true</bool>
- </property>
- <property name="text">
- <string>Blue</string>
- </property>
- </action>
- <action name="actionFUNcube_Dongle">
- <property name="text">
- <string>FUNcube Dongle Settings</string>
- </property>
- </action>
- <action name="actionJT9_1">
- <property name="checkable">
- <bool>true</bool>
- </property>
- <property name="checked">
- <bool>true</bool>
- </property>
- <property name="text">
- <string>JT9</string>
- </property>
- </action>
- <action name="actionJT9_2">
- <property name="checkable">
- <bool>true</bool>
- </property>
- <property name="text">
- <string>JT9-2</string>
- </property>
- </action>
- <action name="actionJT9_5">
- <property name="checkable">
- <bool>true</bool>
- </property>
- <property name="enabled">
- <bool>false</bool>
- </property>
- <property name="text">
- <string>JT9-5</string>
- </property>
- </action>
- <action name="actionJT9_10">
- <property name="checkable">
- <bool>true</bool>
- </property>
- <property name="enabled">
- <bool>false</bool>
- </property>
- <property name="text">
- <string>JT9-10</string>
- </property>
- </action>
- <action name="actionJT9_30">
- <property name="checkable">
- <bool>true</bool>
- </property>
- <property name="enabled">
- <bool>false</bool>
- </property>
- <property name="text">
- <string>JT9-30</string>
- </property>
- </action>
- <action name="actionSave_synced">
- <property name="checkable">
- <bool>true</bool>
- </property>
- <property name="enabled">
- <bool>false</bool>
- </property>
- <property name="text">
- <string>Save synced</string>
- </property>
- </action>
- <action name="actionSave_decoded">
- <property name="checkable">
- <bool>true</bool>
- </property>
- <property name="enabled">
- <bool>true</bool>
- </property>
- <property name="text">
- <string>Save decoded</string>
- </property>
- </action>
- <action name="actionMediumDecode">
- <property name="checkable">
- <bool>true</bool>
- </property>
- <property name="checked">
- <bool>false</bool>
- </property>
- <property name="text">
- <string>Normal</string>
- </property>
- </action>
- <action name="actionDeepestDecode">
- <property name="checkable">
- <bool>true</bool>
- </property>
- <property name="checked">
- <bool>true</bool>
- </property>
- <property name="text">
- <string>Deepest</string>
- </property>
- </action>
- <action name="actionMonitor_OFF_at_startup">
- <property name="checkable">
- <bool>true</bool>
- </property>
- <property name="text">
- <string>Monitor OFF at startup</string>
- </property>
- </action>
- <action name="actionErase_ALL_TXT">
- <property name="text">
- <string>Erase ALL.TXT</string>
- </property>
- </action>
- <action name="actionErase_wsjtx_log_adi">
- <property name="text">
- <string>Erase wsjtx_log.adi</string>
- </property>
- </action>
- <action name="actionLog_JT9_without_submode">
- <property name="checkable">
- <bool>true</bool>
- </property>
- <property name="text">
- <string>Log JT9 without submode</string>
- </property>
- </action>
- <action name="actionConvert_JT9_x_to_RTTY">
- <property name="checkable">
- <bool>true</bool>
- </property>
- <property name="text">
- <string>Convert mode to RTTY for logging</string>
- </property>
- </action>
- <action name="actionLog_dB_reports_to_Comments">
- <property name="checkable">
- <bool>true</bool>
- </property>
- <property name="text">
- <string>Log dB reports to Comments</string>
- </property>
- </action>
- <action name="actionPrompt_to_log_QSO">
- <property name="checkable">
- <bool>true</bool>
- </property>
- <property name="text">
- <string>Prompt me to log QSO</string>
- </property>
- </action>
- <action name="actionBlank_line_between_decoding_periods">
- <property name="checkable">
- <bool>true</bool>
- </property>
- <property name="text">
- <string>Blank line between decoding periods</string>
- </property>
- </action>
- <action name="actionClear_DX_Call_and_Grid_after_logging">
- <property name="checkable">
- <bool>true</bool>
- </property>
- <property name="text">
- <string>Clear DX Call and Grid after logging</string>
- </property>
- </action>
- <action name="actionDistance_in_miles">
- <property name="text">
- <string>Distance in miles</string>
- </property>
- </action>
- <action name="actionDisplay_distance_in_miles">
- <property name="checkable">
- <bool>true</bool>
- </property>
- <property name="text">
- <string>Display distance in miles</string>
- </property>
- </action>
- <action name="actionDouble_click_on_call_sets_Tx_Enable">
- <property name="checkable">
- <bool>true</bool>
- </property>
- <property name="text">
- <string>Double-click on call sets Tx Enable</string>
- </property>
- </action>
- <action name="action_73TxDisable">
- <property name="checkable">
- <bool>true</bool>
- </property>
- <property name="text">
- <string>Tx disabled after sending 73</string>
- </property>
- </action>
- <action name="actionRunaway_Tx_watchdog">
- <property name="checkable">
- <bool>true</bool>
- </property>
- <property name="text">
- <string>Runaway Tx watchdog</string>
- </property>
- </action>
- <action name="actionAllow_multiple_instances">
- <property name="checkable">
- <bool>true</bool>
- </property>
- <property name="text">
- <string>Allow multiple instances</string>
- </property>
- </action>
- <action name="actionLockTxFreq">
- <property name="checkable">
- <bool>true</bool>
- </property>
- <property name="text">
- <string>Tx freq locked to Rx freq</string>
- </property>
- </action>
- <action name="actionJT65">
- <property name="checkable">
- <bool>true</bool>
- </property>
- <property name="text">
- <string>JT65</string>
- </property>
- </action>
- <action name="actionJT9_JT65">
- <property name="checkable">
- <bool>true</bool>
- </property>
- <property name="text">
- <string>JT9+JT65</string>
- </property>
- </action>
- <action name="actionTx2QSO">
- <property name="checkable">
- <bool>true</bool>
- </property>
- <property name="text">
- <string>Tx messages to Rx Frequency window</string>
- </property>
- </action>
- </widget>
- <layoutdefault spacing="6" margin="11"/>
- <customwidgets>
- <customwidget>
- <class>DisplayText</class>
- <extends>QTextBrowser</extends>
- <header>displaytext.h</header>
- </customwidget>
- </customwidgets>
- <tabstops>
- <tabstop>logQSOButton</tabstop>
- <tabstop>stopButton</tabstop>
- <tabstop>monitorButton</tabstop>
- <tabstop>EraseButton</tabstop>
- <tabstop>DecodeButton</tabstop>
- <tabstop>autoButton</tabstop>
- <tabstop>stopTxButton</tabstop>
- <tabstop>tuneButton</tabstop>
- <tabstop>bandComboBox</tabstop>
- <tabstop>readFreq</tabstop>
- <tabstop>inGain</tabstop>
- <tabstop>dxCallEntry</tabstop>
- <tabstop>dxGridEntry</tabstop>
- <tabstop>txFirstCheckBox</tabstop>
- <tabstop>TxFreqSpinBox</tabstop>
- <tabstop>pbR2T</tabstop>
- <tabstop>pbT2R</tabstop>
- <tabstop>rptSpinBox</tabstop>
- <tabstop>tabWidget</tabstop>
- <tabstop>genStdMsgsPushButton</tabstop>
- <tabstop>tx1</tabstop>
- <tabstop>tx2</tabstop>
- <tabstop>tx3</tabstop>
- <tabstop>tx4</tabstop>
- <tabstop>tx5</tabstop>
- <tabstop>tx6</tabstop>
- <tabstop>txrb1</tabstop>
- <tabstop>txrb2</tabstop>
- <tabstop>txrb3</tabstop>
- <tabstop>txrb4</tabstop>
- <tabstop>txrb5</tabstop>
- <tabstop>txrb6</tabstop>
- <tabstop>txb1</tabstop>
- <tabstop>txb2</tabstop>
- <tabstop>txb3</tabstop>
- <tabstop>txb4</tabstop>
- <tabstop>txb5</tabstop>
- <tabstop>txb6</tabstop>
- <tabstop>decodedTextBrowser</tabstop>
- <tabstop>decodedTextBrowser2</tabstop>
- <tabstop>genMsg</tabstop>
- <tabstop>pbAnswerCaller</tabstop>
- <tabstop>rbFreeText</tabstop>
- <tabstop>pbSendRRR</tabstop>
- <tabstop>freeTextMsg</tabstop>
- <tabstop>pbAnswerCQ</tabstop>
- <tabstop>pbSendReport</tabstop>
- <tabstop>pbSend73</tabstop>
- <tabstop>rbGenMsg</tabstop>
- <tabstop>pbCallCQ</tabstop>
- </tabstops>
- <resources/>
- <connections>
- <connection>
- <sender>monitorButton</sender>
- <signal>toggled(bool)</signal>
- <receiver>MainWindow</receiver>
- <slot>update()</slot>
- <hints>
- <hint type="sourcelabel">
- <x>264</x>
- <y>275</y>
- </hint>
- <hint type="destinationlabel">
- <x>126</x>
- <y>515</y>
- </hint>
- </hints>
- </connection>
- </connections>
- <buttongroups>
- <buttongroup name="buttonGroup">
- <property name="exclusive">
- <bool>true</bool>
- </property>
- </buttongroup>
- </buttongroups>
-</ui>
diff --git a/meterwidget.cpp b/meterwidget.cpp
deleted file mode 100644
index b48aa65..0000000
--- a/meterwidget.cpp
+++ /dev/null
@@ -1,51 +0,0 @@
-// Simple bargraph meter
-// Implemented by Edson Pereira PY2SDR
-
-#include "meterwidget.h"
-
-MeterWidget::MeterWidget(QWidget *parent) :
- QWidget(parent),
- m_signal(0)
-{
- for ( int i = 0; i < 10; i++ ) {
- signalQueue.enqueue(0);
- }
-}
-
-void MeterWidget::setValue(int value)
-{
- m_signal = value;
- signalQueue.enqueue(value);
- signalQueue.dequeue();
-
- // Get signal peak
- int tmp = 0;
- for (int i = 0; i < signalQueue.size(); ++i) {
- if (signalQueue.at(i) > tmp)
- tmp = signalQueue.at(i);
- }
- m_sigPeak = tmp;
-
- update();
-}
-
-void MeterWidget::paintEvent( QPaintEvent * )
-{
- int pos;
- QPainter p;
-
- p.begin(this);
-
- // Sanitize
- m_signal = m_signal < 0 ? 0 : m_signal;
- m_signal = m_signal > 60 ? 60 : m_signal;
-
- pos = m_signal * 2;
- QRect r(0, height() - pos, width(), pos );
- p.fillRect(r, QColor( 255, 150, 0 ));
-
- // Draw peak hold indicator
- p.setPen(Qt::black);
- pos = m_sigPeak * 2;
- p.drawLine(0, height() - pos, 10, height() - pos);
-}
diff --git a/meterwidget.h b/meterwidget.h
deleted file mode 100644
index 7b51efb..0000000
--- a/meterwidget.h
+++ /dev/null
@@ -1,30 +0,0 @@
-#ifndef METERWIDGET_H
-#define METERWIDGET_H
-
-#include <QWidget>
-#include <QtGui>
-#include <QQueue>
-
-class MeterWidget : public QWidget
-{
- Q_OBJECT
-public:
- explicit MeterWidget(QWidget *parent = 0);
-
-signals:
-
-public slots:
- void setValue(int value);
-
-private:
- QQueue<int> signalQueue;
-
- int m_signal;
- int m_sigPeak;
-
-protected:
- void paintEvent( QPaintEvent * );
-
-};
-
-#endif // METERWIDGET_H
diff --git a/mouse_commands.txt b/mouse_commands.txt
deleted file mode 100644
index 8e26589..0000000
--- a/mouse_commands.txt
+++ /dev/null
@@ -1,18 +0,0 @@
-Click on Action
-__________________________________________________________
-
-Waterfall: Set Rx frequency
- Double-click to set Rx frequency and decode there
- Ctrl-click to set Rx and Tx frequencies and decode
-
-Decoded text: Double-click to copy second callsign to Dx Call,
- locator to Dx Grid; change Rx and Tx frequencies to
- decoded signal's frequency; generate standard messages.
- If first callsign is your own, Tx frequency is not
- changed unless Ctrl is held down when double-clicking.
-
-Erase button: Click to erase QSO window
- Double-click to erase QSO and Band Activity windows
-
-Tx5 Entry: Right-click to select a macro message
-
diff --git a/paInputDevice.c b/paInputDevice.c
deleted file mode 100644
index 641bd85..0000000
--- a/paInputDevice.c
+++ /dev/null
@@ -1,56 +0,0 @@
-#include <stdlib.h>
-#include <stdio.h>
-#include <string.h>
-
-void paInputDevice(int id, char* hostAPI_DeviceName, int* minChan,
- int* maxChan, int* minSpeed, int* maxSpeed)
-{
- int i, j, k;
- char pa_device_name[128];
- char pa_device_hostapi[128];
- double pa_device_max_speed;
- double pa_device_min_speed;
- int pa_device_max_bytes;
- int pa_device_min_bytes;
- int pa_device_max_channels;
- int pa_device_min_channels;
- char p2[50];
- char *p,*p1;
- static int iret, numDevices, valid_dev_cnt;
-
- iret=pa_get_device_info (id,
- &pa_device_name,
- &pa_device_hostapi,
- &pa_device_max_speed,
- &pa_device_min_speed,
- &pa_device_max_bytes,
- &pa_device_min_bytes,
- &pa_device_max_channels,
- &pa_device_min_channels);
-
- if (iret >= 0 ) {
- valid_dev_cnt++;
-
- p1="";
- p=strstr(pa_device_hostapi,"MME");
- if(p!=NULL) p1="MME";
- p=strstr(pa_device_hostapi,"Direct");
- if(p!=NULL) p1="DirectX";
- p=strstr(pa_device_hostapi,"WASAPI");
- if(p!=NULL) p1="WASAPI";
- p=strstr(pa_device_hostapi,"ASIO");
- if(p!=NULL) p1="ASIO";
- p=strstr(pa_device_hostapi,"WDM-KS");
- if(p!=NULL) p1="WDM-KS";
-
- sprintf(p2,"%-8s %-39s",p1,pa_device_name);
- for(i=0; i<50; i++) {
- hostAPI_DeviceName[i]=p2[i];
- if(p2[i]==0) break;
- }
- *minChan=pa_device_min_channels;
- *maxChan=pa_device_max_channels;
- *minSpeed=(int)pa_device_min_speed;
- *maxSpeed=(int)pa_device_max_speed;
- }
-}
diff --git a/pa_get_device_info.c b/pa_get_device_info.c
deleted file mode 100644
index ac6bc9f..0000000
--- a/pa_get_device_info.c
+++ /dev/null
@@ -1,172 +0,0 @@
-#include <portaudio.h>
-#include <stdio.h>
-
-#define MAX_LATENCY 20
-
-PaStream *in_stream;
-//------------------------------------------------------- pa_get_device_info
-int pa_get_device_info (int n,
- void *pa_device_name,
- void *pa_device_hostapi,
- double *pa_device_max_speed,
- double *pa_device_min_speed,
- int *pa_device_max_bytes,
- int *pa_device_min_bytes,
- int *pa_device_max_channels,
- int *pa_device_min_channels )
-{
-
- (void) n ;
- (void) pa_device_name;
- (void) pa_device_hostapi;
- (void) pa_device_max_speed;
- (void) pa_device_min_speed;
- (void) pa_device_max_bytes;
- (void) pa_device_min_bytes;
- (void) pa_device_max_channels;
- (void) pa_device_min_channels;
- const PaDeviceInfo *deviceInfo;
- PaError pa_err;
- PaStreamParameters inputParameters;
- int i,j, speed_warning;
- int minBytes, maxBytes;
- double maxStandardSampleRate;
- double minStandardSampleRate;
- int minInputChannels;
- int maxInputChannels;
-
-// negative terminated list
- static double standardSampleRates[] = {8000.0, 9600.0,
- 11025.0, 12000.0, 16000.0, 22050.0, 24000.0, 32000.0,
- 44100.0, 48000.0, 88200.0, 96000.0, 192000.0, -1};
-// *******************************************************
-
-
- *pa_device_max_speed=0;
- *pa_device_min_speed=0;
- *pa_device_max_bytes=0;
- *pa_device_min_bytes=0;
- *pa_device_max_channels=0;
- *pa_device_min_channels=0;
- minInputChannels=0;
- if(n >= Pa_GetDeviceCount() ) return -1;
- deviceInfo = Pa_GetDeviceInfo(n);
- if (deviceInfo->maxInputChannels==0) return -1;
- sprintf((char*)(pa_device_name),"%s",deviceInfo->name);
- sprintf((char*)(pa_device_hostapi),"%s",
- Pa_GetHostApiInfo( deviceInfo->hostApi )->name);
- speed_warning=0;
-
-// bypass bug in Juli@ ASIO driver:
-// this driver hangs after a Pa_IsFormatSupported call
- i = strncmp(deviceInfo->name, "ASIO 2.0 - ESI Juli@", 19);
- if (i == 0) {
- minStandardSampleRate=44100;
- maxStandardSampleRate=192000;
- minBytes=1;
- maxBytes=4;
- maxInputChannels= deviceInfo->maxInputChannels;
- minInputChannels= 1;
- goto end_pa_get_device_info;
- }
-
-// Investigate device capabilities.
-// Check min and max samplerates with 16 bit data.
- maxStandardSampleRate=0;
- minStandardSampleRate=0;
- inputParameters.device = n;
- inputParameters.channelCount = deviceInfo->maxInputChannels;
- inputParameters.sampleFormat = paInt16;
- inputParameters.suggestedLatency = 0;
- inputParameters.hostApiSpecificStreamInfo = NULL;
-
-// ************************************************************************
-//filter for portaudio Windows hostapi's with non experts.
-//only allow ASIO or WASAPI or WDM-KS
- i = strncmp(Pa_GetHostApiInfo(deviceInfo->hostApi)->name, "ASIO", 4);
- if (i==0 ) goto end_filter_hostapi;
- i = strncmp(Pa_GetHostApiInfo(deviceInfo->hostApi)->name,
- "Windows WASAPI", 14);
- if (i==0 ) goto end_filter_hostapi;
- i = strncmp(Pa_GetHostApiInfo(deviceInfo->hostApi)->name,
- "Windows WDM-KS", 14);
- if (i==0 ) goto end_filter_hostapi;
- speed_warning=1;
-end_filter_hostapi:;
-
-// ************************************************************************
- i=0;
- while(standardSampleRates[i] > 0 && minStandardSampleRate==0) {
- pa_err=Pa_IsFormatSupported(&inputParameters, NULL,
- standardSampleRates[i] );
- if(pa_err == paDeviceUnavailable) return -1;
- if(pa_err == paInvalidDevice) return -1;
- if(pa_err == paFormatIsSupported ) {
- minStandardSampleRate=standardSampleRates[i];
- }
- i++;
- }
- if(minStandardSampleRate == 0) return -1;
- j=i;
- while(standardSampleRates[i] > 0 ) i++;
- i--;
- while(i >= j && maxStandardSampleRate==0) {
- pa_err=Pa_IsFormatSupported(&inputParameters, NULL,
- standardSampleRates[i] );
- if(pa_err == paDeviceUnavailable) return -1;
- if(pa_err == paInvalidDevice) return -1;
- if( pa_err == paFormatIsSupported ) {
- maxStandardSampleRate=standardSampleRates[i];
- }
- i--;
- }
-
-// check if min SampleRate = max SampleRate
- if(maxStandardSampleRate==0 && (minStandardSampleRate != 0)) {
- maxStandardSampleRate= minStandardSampleRate;
- }
-
-// check min and max bytes
- minBytes=2;
- maxBytes=2;
- inputParameters.sampleFormat = paUInt8;
- pa_err=Pa_IsFormatSupported(&inputParameters, NULL,
- maxStandardSampleRate );
- if( pa_err == paFormatIsSupported ) {
- minBytes=1;
- }
- inputParameters.sampleFormat = paInt32;
- pa_err=Pa_IsFormatSupported(&inputParameters, NULL,
- maxStandardSampleRate );
- if( pa_err == paFormatIsSupported ) {
- maxBytes=4;
- }
-
-// check min channel count
- maxInputChannels= deviceInfo->maxInputChannels;
- inputParameters.channelCount = 1;
- inputParameters.sampleFormat = paInt16;
- pa_err=paFormatIsSupported+32000;
- while(pa_err != paFormatIsSupported &&
- ( inputParameters.channelCount < (maxInputChannels+1)) ) {
- pa_err=Pa_IsFormatSupported(&inputParameters, NULL,
- maxStandardSampleRate );
- inputParameters.channelCount++;
- }
- if( pa_err == paFormatIsSupported ) {
- minInputChannels=inputParameters.channelCount-1;
- } else {
- return -1;
- }
-
-end_pa_get_device_info:;
-
- *pa_device_max_speed=maxStandardSampleRate;
- *pa_device_min_speed=minStandardSampleRate;
- *pa_device_max_bytes=maxBytes;
- *pa_device_min_bytes=minBytes;
- *pa_device_max_channels= maxInputChannels;
- *pa_device_min_channels= minInputChannels;
-
- return speed_warning;
-}
diff --git a/plotter.cpp b/plotter.cpp
deleted file mode 100644
index a43bdbf..0000000
--- a/plotter.cpp
+++ /dev/null
@@ -1,565 +0,0 @@
-#include "plotter.h"
-#include <math.h>
-#include <QDebug>
-
-#define MAX_SCREENSIZE 2048
-
-
-CPlotter::CPlotter(QWidget *parent) : //CPlotter Constructor
- QFrame(parent)
-{
- setSizePolicy(QSizePolicy::Expanding, QSizePolicy::Expanding);
- setFocusPolicy(Qt::StrongFocus);
- setAttribute(Qt::WA_PaintOnScreen,false);
- setAutoFillBackground(false);
- setAttribute(Qt::WA_OpaquePaintEvent, false);
- setAttribute(Qt::WA_NoSystemBackground, true);
-
- m_StartFreq = 0;
- m_nSpan=2; //used for FFT bins/pixel
- m_fSpan=(float)m_nSpan;
- m_hdivs = HORZ_DIVS;
- m_FreqUnits = 1;
- m_Running = false;
- m_paintEventBusy=false;
- m_WaterfallPixmap = QPixmap(0,0);
- m_2DPixmap = QPixmap(0,0);
- m_ScalePixmap = QPixmap(0,0);
- m_OverlayPixmap = QPixmap(0,0);
- m_Size = QSize(0,0);
- m_rxFreq = 1020;
- m_line = 0;
- m_fSample = 12000;
- m_nsps=6912;
- m_dBStepSize=10;
- m_Percent2DScreen = 30; //percent of screen used for 2D display
- m_txFreq=0;
-}
-
-CPlotter::~CPlotter() { } // Destructor
-
-QSize CPlotter::minimumSizeHint() const
-{
- return QSize(50, 50);
-}
-
-QSize CPlotter::sizeHint() const
-{
- return QSize(180, 180);
-}
-
-void CPlotter::resizeEvent(QResizeEvent* ) //resizeEvent()
-{
- if(!size().isValid()) return;
- if( m_Size != size() ) { //if changed, resize pixmaps to new screensize
- m_Size = size();
- m_w = m_Size.width();
- m_h = m_Size.height();
- m_h1 = (100-m_Percent2DScreen)*(m_Size.height())/100;
- m_h2 = (m_Percent2DScreen)*(m_Size.height())/100;
-
- m_2DPixmap = QPixmap(m_Size.width(), m_h2);
- m_2DPixmap.fill(Qt::black);
- m_WaterfallPixmap = QPixmap(m_Size.width(), m_h1);
- m_OverlayPixmap = QPixmap(m_Size.width(), m_h2);
- m_OverlayPixmap.fill(Qt::black);
-
- m_WaterfallPixmap.fill(Qt::black);
- m_2DPixmap.fill(Qt::black);
- m_ScalePixmap = QPixmap(m_w,30);
- m_ScalePixmap.fill(Qt::white);
- }
- DrawOverlay();
-}
-
-void CPlotter::paintEvent(QPaintEvent *) // paintEvent()
-{
- if(m_paintEventBusy) return;
- m_paintEventBusy=true;
- QPainter painter(this);
- painter.drawPixmap(0,0,m_ScalePixmap);
- painter.drawPixmap(0,30,m_WaterfallPixmap);
- painter.drawPixmap(0,m_h1,m_2DPixmap);
- m_paintEventBusy=false;
-}
-
-void CPlotter::draw(float swide[], int i0) //draw()
-{
- int j,y2;
- float y;
-
- m_i0=i0;
- double gain = pow(10.0,0.05*(m_plotGain+7));
-
-//move current data down one line (must do this before attaching a QPainter object)
- m_WaterfallPixmap.scroll(0,1,0,0,m_w,m_h1);
- QPainter painter1(&m_WaterfallPixmap);
- m_2DPixmap = m_OverlayPixmap.copy(0,0,m_w,m_h2);
- QPainter painter2D(&m_2DPixmap);
-
- painter2D.setPen(Qt::green);
-
- QPoint LineBuf[MAX_SCREENSIZE];
- j=0;
-
-// int iz=XfromFreq(2000.0);
- int iz=XfromFreq(5000.0);
- m_fMax=FreqfromX(iz);
- for(int i=0; i<iz; i++) {
- if(i>iz) swide[i]=0;
- y=0.0;
- if(swide[i]>0.0) y = 10.0*log10(swide[i]);
- int y1 = 5.0*gain*y + 10*(m_plotZero-4);
- if (y1<0) y1=0;
- if (y1>254) y1=254;
- if (swide[i]>1.e29) y1=255;
- painter1.setPen(m_ColorTbl[y1]);
- painter1.drawPoint(i,0);
- y2=0;
- if(m_bCurrent) y2 = 0.4*gain*y - 15;
- if(m_bCumulative) {
- float sum=0.0;
- int j=m_binsPerPixel*i;
- for(int k=0; k<m_binsPerPixel; k++) {
- sum+=jt9com_.savg[j++];
- }
- y2=gain*6.0*log10(sum/m_binsPerPixel) - 10.0;
- }
- y2 += m_plotZero;
- if(i==iz-1) painter2D.drawPolyline(LineBuf,j);
- LineBuf[j].setX(i);
- LineBuf[j].setY(m_h-(y2+0.8*m_h));
- j++;
- }
-
- if(swide[0]>1.0e29) m_line=0;
- m_line++;
- if(m_line == 13) {
- UTCstr();
- painter1.setPen(Qt::white);
- painter1.drawText(5,10,m_sutc);
- }
- update(); //trigger a new paintEvent
-}
-
-void CPlotter::UTCstr()
-{
- int ihr,imin;
- if(jt9com_.ndiskdat != 0) {
- ihr=jt9com_.nutc/100;
- imin=jt9com_.nutc % 100;
- } else {
- qint64 ms = QDateTime::currentMSecsSinceEpoch() % 86400000;
- imin=ms/60000;
- ihr=imin/60;
- imin=imin % 60;
- imin=imin - (imin % (m_TRperiod/60));
- }
- sprintf(m_sutc,"%2.2d:%2.2d",ihr,imin);
-}
-
-void CPlotter::DrawOverlay() //DrawOverlay()
-{
- if(m_OverlayPixmap.isNull()) return;
- if(m_WaterfallPixmap.isNull()) return;
- int w = m_WaterfallPixmap.width();
- int x,y,x1,x2;
-// int nHzDiv[11]={0,50,100,200,200,200,500,500,500,500,500};
- float pixperdiv;
-
- QRect rect;
- QPainter painter(&m_OverlayPixmap);
- painter.initFrom(this);
- QLinearGradient gradient(0, 0, 0 ,m_h2); //fill background with gradient
- gradient.setColorAt(1, Qt::black);
- gradient.setColorAt(0, Qt::darkBlue);
- painter.setBrush(gradient);
- painter.drawRect(0, 0, m_w, m_h2);
- painter.setBrush(Qt::SolidPattern);
-
- double df = m_binsPerPixel*m_fftBinWidth;
- pixperdiv = m_freqPerDiv/df;
- y = m_h2 - m_h2/VERT_DIVS;
- m_hdivs = w*df/m_freqPerDiv + 0.9999;
- for( int i=1; i<m_hdivs; i++) //draw vertical grids
- {
- x = (int)( (float)i*pixperdiv );
- if(x >= 0 and x<=m_w) {
- painter.setPen(QPen(Qt::white, 1,Qt::DotLine));
- painter.drawLine(x, 0, x , y);
- painter.drawLine(x, m_h2-5, x , m_h2);
- }
- }
-
- pixperdiv = (float)m_h2 / (float)VERT_DIVS;
- painter.setPen(QPen(Qt::white, 1,Qt::DotLine));
- for( int i=1; i<VERT_DIVS; i++) //draw horizontal grids
- {
- y = (int)( (float)i*pixperdiv );
- painter.drawLine(0, y, w, y);
- }
-
- QRect rect0;
- QPainter painter0(&m_ScalePixmap);
- painter0.initFrom(this);
-
- //create Font to use for scales
- QFont Font("Arial");
- Font.setPointSize(12);
- QFontMetrics metrics(Font);
- Font.setWeight(QFont::Normal);
- painter0.setFont(Font);
- painter0.setPen(Qt::black);
-
- if(m_binsPerPixel < 1) m_binsPerPixel=1;
- m_fSpan = w*df;
- int n=m_fSpan/10;
- m_freqPerDiv=10;
- if(n>25) m_freqPerDiv=50;
- if(n>70) m_freqPerDiv=100;
- if(n>140) m_freqPerDiv=200;
- if(n>310) m_freqPerDiv=500;
- m_hdivs = w*df/m_freqPerDiv + 0.9999;
- m_ScalePixmap.fill(Qt::white);
- painter0.drawRect(0, 0, w, 30);
-
-//draw tick marks on upper scale
- pixperdiv = m_freqPerDiv/df;
- for( int i=1; i<m_hdivs; i++) { //major ticks
- x = (int)( (float)i*pixperdiv );
- painter0.drawLine(x,18,x,30);
- }
- int minor=5;
- if(m_freqPerDiv==200) minor=4;
- for( int i=1; i<minor*m_hdivs; i++) { //minor ticks
- x = i*pixperdiv/minor;
- painter0.drawLine(x,24,x,30);
- }
-
- //draw frequency values
- MakeFrequencyStrs();
- for( int i=0; i<=m_hdivs; i++) {
- if(0==i) {
- //left justify the leftmost text
- x = (int)( (float)i*pixperdiv);
- rect0.setRect(x,0, (int)pixperdiv, 20);
- painter0.drawText(rect0, Qt::AlignLeft|Qt::AlignVCenter,
- m_HDivText[i]);
- }
- else if(m_hdivs == i) {
- //right justify the rightmost text
- x = (int)( (float)i*pixperdiv - pixperdiv);
- rect0.setRect(x,0, (int)pixperdiv, 20);
- painter0.drawText(rect0, Qt::AlignRight|Qt::AlignVCenter,
- m_HDivText[i]);
- } else {
- //center justify the rest of the text
- x = (int)( (float)i*pixperdiv - pixperdiv/2);
- rect0.setRect(x,0, (int)pixperdiv, 20);
- painter0.drawText(rect0, Qt::AlignHCenter|Qt::AlignVCenter,
- m_HDivText[i]);
- }
- }
-
- float bw=9.0*12000.0/m_nsps;
- if(m_modeTx=="JT65") bw=66.0*11025.0/4096.0;
-
- QPen pen0(Qt::green, 3); //Mark Rx Freq with green
- painter0.setPen(pen0);
- x1=XfromFreq(m_rxFreq);
- x2=XfromFreq(m_rxFreq+bw);
- painter0.drawLine(x1,24,x1,30);
- painter0.drawLine(x1,28,x2,28);
- painter0.drawLine(x2,24,x2,30);
-
- if(m_mode=="JT9+JT65") {
- QPen pen2(Qt::blue, 3); //Mark the JT65 | JT9 divider
- painter0.setPen(pen2);
- x1=XfromFreq(m_fMin);
- if(x1<2) x1=2;
- x2=x1+30;
- painter0.drawLine(x1,8,x1,28);
- }
-
- QPen pen1(Qt::red, 3); //Mark Tx freq with red
- painter0.setPen(pen1);
- x1=XfromFreq(m_txFreq);
- x2=XfromFreq(m_txFreq+bw);
- painter0.drawLine(x1,17,x1,21);
- painter0.drawLine(x1,17,x2,17);
- painter0.drawLine(x2,17,x2,21);
-
- if(m_dialFreq>10.13 and m_dialFreq< 10.15) {
- float f1=1.0e6*(10.1401 - m_dialFreq);
- float f2=f1+200.0;
- x1=XfromFreq(f1);
- x2=XfromFreq(f2);
- if(x1<=m_w and x2>=0) {
- QPen pen1(QColor(255,165,0),3); //Mark WSPR sub-band orange
- painter0.setPen(pen1);
- painter0.drawLine(x1,9,x2,9);
- }
- }
-}
-
-void CPlotter::MakeFrequencyStrs() //MakeFrequencyStrs
-{
- float freq;
- for(int i=0; i<=m_hdivs; i++) {
- freq = m_StartFreq + i*m_freqPerDiv;
- m_HDivText[i].setNum((int)freq);
- // StartFreq += m_freqPerDiv;
- }
-}
-
-int CPlotter::XfromFreq(float f) //XfromFreq()
-{
-// float w = m_WaterfallPixmap.width();
- int x = int(m_w * (f - m_StartFreq)/m_fSpan + 0.5);
- if(x<0 ) return 0;
- if(x>m_w) return m_w;
- return x;
-}
-
-float CPlotter::FreqfromX(int x) //FreqfromX()
-{
-// return float(1000.0 + x*m_binsPerPixel*m_fftBinWidth);
- return float(x*m_binsPerPixel*m_fftBinWidth);
-}
-
-void CPlotter::SetRunningState(bool running) //SetRunningState()
-{
- m_Running = running;
-}
-
-void CPlotter::setPlotZero(int plotZero) //setPlotZero()
-{
- m_plotZero=plotZero;
-}
-
-int CPlotter::getPlotZero() //getPlotZero()
-{
- return m_plotZero;
-}
-
-void CPlotter::setPlotGain(int plotGain) //setPlotGain()
-{
- m_plotGain=plotGain;
-}
-
-int CPlotter::getPlotGain() //getPlotGain()
-{
- return m_plotGain;
-}
-
-void CPlotter::SetStartFreq(quint64 f) //SetStartFreq()
-{
- m_StartFreq=f;
-// resizeEvent(NULL);
- DrawOverlay();
-}
-
-qint64 CPlotter::startFreq() //startFreq()
-{
- return m_StartFreq;
-}
-
-int CPlotter::plotWidth(){return m_WaterfallPixmap.width();}
-void CPlotter::UpdateOverlay() {DrawOverlay();}
-void CPlotter::setDataFromDisk(bool b) {m_dataFromDisk=b;}
-
-void CPlotter::setRxRange(int fMin)
-{
- m_fMin=fMin;
-}
-
-void CPlotter::setBinsPerPixel(int n) // set nbpp
-{
- m_binsPerPixel = n;
- DrawOverlay(); //Redraw scales and ticks
- update(); //trigger a new paintEvent}
-}
-
-int CPlotter::binsPerPixel() // get nbpp
-{
- return m_binsPerPixel;
-}
-
-void CPlotter::setRxFreq(int x, bool bf) //setRxFreq()
-{
- if(bf) {
- m_rxFreq=x; // x is freq in Hz
- m_xClick=XfromFreq(m_rxFreq);
- } else {
- if(x<0) x=0; // x is pixel number
- if(x>m_Size.width()) x=m_Size.width();
- m_rxFreq=int(FreqfromX(x)+0.5);
- m_xClick=x;
- }
- emit setFreq1(m_rxFreq,m_txFreq);
- DrawOverlay();
- update();
-}
-
-int CPlotter::rxFreq() {return m_rxFreq;} //get rxFreq
-
-void CPlotter::mousePressEvent(QMouseEvent *event) //mousePressEvent
-{
- int x=event->x();
- setRxFreq(x,false); // Wideband waterfall
- bool ctrl = (event->modifiers() & Qt::ControlModifier);
- int n=1;
- if(ctrl) n+=100;
- emit freezeDecode1(n);
- if(ctrl or m_lockTxFreq) setTxFreq(m_rxFreq);
-}
-
-void CPlotter::mouseDoubleClickEvent(QMouseEvent *event) //mouse2click
-{
-// int x=event->x();
-// setRxFreq(x,false);
- bool ctrl = (event->modifiers() & Qt::ControlModifier);
- int n=2;
- if(ctrl) n+=100;
- emit freezeDecode1(n);
-}
-
-void CPlotter::setNSpan(int n) //setNSpan()
-{
- m_nSpan=n;
-}
-
-void CPlotter::setPalette(QString palette) //setPalette()
-{
- if(palette=="Linrad") {
- float twopi=6.2831853;
- float r,g,b,phi,x;
- for(int i=0; i<256; i++) {
- r=0.0;
- if(i>105 and i<=198) {
- phi=(twopi/4.0) * (i-105.0)/(198.0-105.0);
- r=sin(phi);
- } else if(i>=198) {
- r=1.0;
- }
-
- g=0.0;
- if(i>35 and i<198) {
- phi=(twopi/4.0) * (i-35.0)/(122.5-35.0);
- g=0.625*sin(phi);
- } else if(i>=198) {
- x=(i-186.0);
- g=-0.014 + 0.0144*x -0.00007*x*x +0.000002*x*x*x;
- if(g>1.0) g=1.0;
- }
-
- b=0.0;
- if(i<=117) {
- phi=(twopi/2.0) * i/117.0;
- b=0.4531*sin(phi);
- } else if(i>186) {
- x=(i-186.0);
- b=-0.014 + 0.0144*x -0.00007*x*x +0.000002*x*x*x;
- if(b>1.0) b=1.0;
- }
- m_ColorTbl[i].setRgb(int(255.0*r),int(255.0*g),int(255.0*b));
- }
- m_ColorTbl[255].setRgb(255,255,100);
-
- }
-
- if(palette=="CuteSDR") {
- for( int i=0; i<256; i++) {
- if( (i<43) )
- m_ColorTbl[i].setRgb( 0,0, 255*(i)/43);
- if( (i>=43) && (i<87) )
- m_ColorTbl[i].setRgb( 0, 255*(i-43)/43, 255 );
- if( (i>=87) && (i<120) )
- m_ColorTbl[i].setRgb( 0,255, 255-(255*(i-87)/32));
- if( (i>=120) && (i<154) )
- m_ColorTbl[i].setRgb( (255*(i-120)/33), 255, 0);
- if( (i>=154) && (i<217) )
- m_ColorTbl[i].setRgb( 255, 255 - (255*(i-154)/62), 0);
- if( (i>=217) )
- m_ColorTbl[i].setRgb( 255, 0, 128*(i-217)/38);
- }
- m_ColorTbl[255].setRgb(255,255,100);
- }
-
- if(palette=="Blue") {
- FILE* fp=fopen("blue.dat","r");
- int n,r,g,b;
- float xr,xg,xb;
- for(int i=0; i<256; i++) {
- int nn=fscanf(fp,"%d%f%f%f",&n,&xr,&xg,&xb);
- r=255.0*xr + 0.5;
- g=255.0*xg + 0.5;
- b=255.0*xb + 0.5;
- m_ColorTbl[i].setRgb(r,g,b);
- if(nn==-999999) i++; //Silence compiler warning
- }
- }
-
- if(palette=="AFMHot") {
- FILE* fp=fopen("afmhot.dat","r");
- int n,r,g,b;
- float xr,xg,xb;
- for(int i=0; i<256; i++) {
- int nn=fscanf(fp,"%d%f%f%f",&n,&xr,&xg,&xb);
- r=255.0*xr + 0.5;
- g=255.0*xg + 0.5;
- b=255.0*xb + 0.5;
- m_ColorTbl[i].setRgb(r,g,b);
- if(nn==-999999) i++; //Silence compiler warning
- }
- }
-
-}
-
-double CPlotter::fGreen()
-{
- return m_fGreen;
-}
-
-void CPlotter::setNsps(int ntrperiod, int nsps) //setNSpan()
-{
- m_TRperiod=ntrperiod;
- m_nsps=nsps;
- m_fftBinWidth=1500.0/2048.0;
- if(m_nsps==15360) m_fftBinWidth=1500.0/2048.0;
- if(m_nsps==40960) m_fftBinWidth=1500.0/6144.0;
- if(m_nsps==82944) m_fftBinWidth=1500.0/12288.0;
- if(m_nsps==252000) m_fftBinWidth=1500.0/32768.0;
- DrawOverlay(); //Redraw scales and ticks
- update(); //trigger a new paintEvent}
-}
-
-void CPlotter::setTxFreq(int n) //setTol()
-{
- m_txFreq=n;
- emit setFreq1(m_rxFreq,m_txFreq);
- DrawOverlay();
- update();
-}
-
-void CPlotter::setMode(QString mode)
-{
- m_mode=mode;
-}
-
-void CPlotter::setModeTx(QString modeTx)
-{
- m_modeTx=modeTx;
-}
-
-int CPlotter::getFmax()
-{
- return m_fMax;
-}
-
-void CPlotter::setDialFreq(double d)
-{
- m_dialFreq=d;
- DrawOverlay();
- update();
-}
diff --git a/plotter.h b/plotter.h
deleted file mode 100644
index b491cf9..0000000
--- a/plotter.h
+++ /dev/null
@@ -1,139 +0,0 @@
-///////////////////////////////////////////////////////////////////////////
-// Some code in this file and accompanying files is based on work by
-// Moe Wheatley, AE4Y, released under the "Simplified BSD License".
-// For more details see the accompanying file LICENSE_WHEATLEY.TXT
-///////////////////////////////////////////////////////////////////////////
-
-#ifndef PLOTTER_H
-#define PLOTTER_H
-
-#ifdef QT5
-#include <QtWidgets>
-#else
-#include <QtGui>
-#endif
-#include <QFrame>
-#include <QImage>
-#include <cstring>
-#include "commons.h"
-
-#define VERT_DIVS 7 //specify grid screen divisions
-#define HORZ_DIVS 20
-
-class CPlotter : public QFrame
-{
- Q_OBJECT
-public:
- explicit CPlotter(QWidget *parent = 0);
- ~CPlotter();
-
- QSize minimumSizeHint() const;
- QSize sizeHint() const;
- QColor m_ColorTbl[256];
-
- bool m_bCurrent;
- bool m_bCumulative;
- bool m_lockTxFreq;
-
- float m_fSpan;
-
- qint32 m_plotZero;
- qint32 m_plotGain;
- qint32 m_nSpan;
- qint32 m_binsPerPixel;
- qint32 m_w;
-
- void draw(float sw[], int i0); //Update the waterfall
- void SetRunningState(bool running);
- void setPlotZero(int plotZero);
- int getPlotZero();
- void setPlotGain(int plotGain);
- int getPlotGain();
- void SetStartFreq(quint64 f);
- qint64 startFreq();
- int plotWidth();
- void setNSpan(int n);
- void UpdateOverlay();
- void setDataFromDisk(bool b);
- void setRxRange(int fMin);
- void setBinsPerPixel(int n);
- int binsPerPixel();
- void setRxFreq(int n, bool bf);
- void DrawOverlay();
- int rxFreq();
- void setPalette(QString palette);
- void setFsample(int n);
- void setNsps(int ntrperiod, int nsps);
- void setTxFreq(int n);
- void setMode(QString mode);
- void setModeTx(QString modeTx);
- double fGreen();
- void SetPercent2DScreen(int percent){m_Percent2DScreen=percent;}
- int getFmax();
- void setDialFreq(double d);
-
-signals:
- void freezeDecode1(int n);
- void setFreq1(int rxFreq, int txFreq);
-
-protected:
- //re-implemented widget event handlers
- void paintEvent(QPaintEvent *event);
- void resizeEvent(QResizeEvent* event);
-
-private:
-
- void MakeFrequencyStrs();
- void UTCstr();
- int XfromFreq(float f);
- float FreqfromX(int x);
- qint64 RoundFreq(qint64 freq, int resolution);
-
- QPixmap m_WaterfallPixmap;
- QPixmap m_2DPixmap;
- QPixmap m_ScalePixmap;
- QPixmap m_OverlayPixmap;
-// QPixmap m_LowerScalePixmap;
- QSize m_Size;
- QString m_Str;
- QString m_HDivText[483];
- QString m_mode;
- QString m_modeTx;
-
- bool m_Running;
- bool m_paintEventBusy;
- bool m_dataFromDisk;
-
- double m_fGreen;
- double m_fftBinWidth;
- double m_dialFreq;
-
- qint64 m_StartFreq;
-
- qint32 m_dBStepSize;
- qint32 m_FreqUnits;
- qint32 m_hdivs;
- qint32 m_line;
- qint32 m_fSample;
- qint32 m_i0;
- qint32 m_xClick;
- qint32 m_freqPerDiv;
- qint32 m_nsps;
- qint32 m_Percent2DScreen;
- qint32 m_h;
- qint32 m_h1;
- qint32 m_h2;
- qint32 m_TRperiod;
- qint32 m_rxFreq;
- qint32 m_txFreq;
- qint32 m_fMin;
- qint32 m_fMax;
-
- char m_sutc[6];
-
-private slots:
- void mousePressEvent(QMouseEvent *event);
- void mouseDoubleClickEvent(QMouseEvent *event);
-};
-
-#endif // PLOTTER_H
diff --git a/psk_reporter.cpp b/psk_reporter.cpp
deleted file mode 100644
index 6856d17..0000000
--- a/psk_reporter.cpp
+++ /dev/null
@@ -1,104 +0,0 @@
-// KISS Interface for posting spots to PSK Reporter web site
-// Implemented by Edson Pereira PY2SDR
-//
-// Reports will be sent in batch mode every 5 minutes.
-
-#include "psk_reporter.h"
-
-PSK_Reporter::PSK_Reporter(QObject *parent) :
- QObject(parent),
- m_sequenceNumber(0)
-{
- m_header_h = "000Allllttttttttssssssssiiiiiiii";
-
- // We use 50E2 and 50E3 for link Id
- m_rxInfoDescriptor_h = "0003002450E200030000"
- "8002FFFF0000768F" // 2. Rx Call
- "8004FFFF0000768F" // 4. Rx Grid
- "8008FFFF0000768F" // 8. Rx Soft
- "0000";
-
- m_txInfoDescriptor_h = "0002003C50E30007"
- "8001FFFF0000768F" // 1. Tx Call
- "800500040000768F" // 5. Tx Freq
- "800600010000768F" // 6. Tx snr
- "800AFFFF0000768F" // 10. Tx Mode
- "8003FFFF0000768F" // 3. Tx Grid
- "800B00010000768F" // 11. Tx info src
- "00960004"; // Report time
-
-
- qsrand(QDateTime::currentDateTime().toTime_t());
- m_randomId_h = QString("%1").arg(qrand(),8,16,QChar('0'));
-
- m_udpSocket = new QUdpSocket(this);
-
- reportTimer = new QTimer(this);
- connect(reportTimer, SIGNAL(timeout()), this, SLOT(sendReport()));
-}
-
-void PSK_Reporter::setLocalStation(QString call, QString gridSquare, QString programInfo)
-{
- m_rxCall = call;
- m_rxGrid = gridSquare;
- m_progId = programInfo;
- reportTimer->start(5*60*1000); // 5 minutes;
-}
-
-void PSK_Reporter::addRemoteStation(QString call, QString grid, QString freq, QString mode, QString snr, QString time )
-{
- QHash<QString,QString> spot;
- spot["call"] = call;
- spot["grid"] = grid;
- spot["snr"] = snr;
- spot["freq"] = freq;
- spot["mode"] = mode;
- spot["time"] = time;
- m_spotQueue.enqueue(spot);
-}
-
-void PSK_Reporter::sendReport()
-{
- if (m_spotQueue.isEmpty())
- return;
-
- // Header
- QString header_h = m_header_h;
- header_h.replace("tttttttt", QString("%1").arg(QDateTime::currentDateTime().toTime_t(),8,16,QChar('0')));
- header_h.replace("ssssssss", QString("%1").arg(++m_sequenceNumber,8,16,QChar('0')));
- header_h.replace("iiiiiiii", m_randomId_h);
-
- // Receiver information
- QString rxInfoData_h = "50E2llll";
- rxInfoData_h += QString("%1").arg(m_rxCall.length(),2,16,QChar('0')) + m_rxCall.toUtf8().toHex();
- rxInfoData_h += QString("%1").arg(m_rxGrid.length(),2,16,QChar('0')) + m_rxGrid.toUtf8().toHex();
- rxInfoData_h += QString("%1").arg(m_progId.length(),2,16,QChar('0')) + m_progId.toUtf8().toHex();
- rxInfoData_h += "0000";
- rxInfoData_h.replace("50E2llll", "50E2" + QString("%1").arg(rxInfoData_h.length()/2,4,16,QChar('0')));
-
- // Sender information
- QString txInfoData_h = "50E3llll";
- while (!m_spotQueue.isEmpty()) {
- QHash<QString,QString> spot = m_spotQueue.dequeue();
- txInfoData_h += QString("%1").arg(spot["call"].length(),2,16,QChar('0')) + spot["call"].toUtf8().toHex();
- txInfoData_h += QString("%1").arg(spot["freq"].toLongLong(),8,16,QChar('0'));
- txInfoData_h += QString("%1").arg(spot["snr"].toInt(),8,16,QChar('0')).right(2);
- txInfoData_h += QString("%1").arg(spot["mode"].length(),2,16,QChar('0')) + spot["mode"].toUtf8().toHex();
- txInfoData_h += QString("%1").arg(spot["grid"].length(),2,16,QChar('0')) + spot["grid"].toUtf8().toHex();
- txInfoData_h += QString("%1").arg(1,2,16,QChar('0')); // REPORTER_SOURCE_AUTOMATIC
- txInfoData_h += QString("%1").arg(spot["time"].toInt(),8,16,QChar('0'));
- }
- txInfoData_h += "0000";
- txInfoData_h.replace("50E3llll", "50E3" + QString("%1").arg(txInfoData_h.length()/2,4,16,QChar('0')));
-
- // Build report
- QString report_h = header_h + m_rxInfoDescriptor_h + m_txInfoDescriptor_h + rxInfoData_h + txInfoData_h;
- report_h.replace("000Allll", "000A" + QString("%1").arg(report_h.length()/2,4,16,QChar('0')));
- QByteArray report = QByteArray::fromHex(report_h.toUtf8());
-
- // Get IP address for pskreporter.info and send report via UDP
- QHostInfo info = QHostInfo::fromName("report.pskreporter.info");
- m_udpSocket->writeDatagram(report,info.addresses().at(0),4739);
-}
-
-
diff --git a/psk_reporter.h b/psk_reporter.h
deleted file mode 100644
index abadda1..0000000
--- a/psk_reporter.h
+++ /dev/null
@@ -1,41 +0,0 @@
-#ifndef PSK_REPORTER_H
-#define PSK_REPORTER_H
-
-#include <QtCore>
-#include <QUdpSocket>
-#include <QHostInfo>
-
-class PSK_Reporter : public QObject
-{
- Q_OBJECT
-public:
- explicit PSK_Reporter(QObject *parent = 0);
- void setLocalStation(QString call, QString grid, QString programInfo);
- void addRemoteStation(QString call, QString grid, QString freq, QString mode, QString snr, QString time);
-
-signals:
-
-public slots:
- void sendReport();
-
-private:
- QString m_header_h;
- QString m_rxInfoDescriptor_h;
- QString m_txInfoDescriptor_h;
- QString m_randomId_h;
- QString m_linkId_h;
-
- QString m_rxCall;
- QString m_rxGrid;
- QString m_progId;
-
- QQueue< QHash<QString,QString> > m_spotQueue;
-
- QUdpSocket *m_udpSocket;
-
- QTimer *reportTimer;
-
- int m_sequenceNumber;
-};
-
-#endif // PSK_REPORTER_H
diff --git a/rigclass.cpp b/rigclass.cpp
deleted file mode 100644
index 3f61e03..0000000
--- a/rigclass.cpp
+++ /dev/null
@@ -1,324 +0,0 @@
-/**
- * \file src/rigclass.cc
- * \brief Ham Radio Control Libraries C++ interface
- * \author Stephane Fillod
- * \date 2001-2003
- *
- * Hamlib C++ interface is a frontend implementing wrapper functions.
- */
-
-/**
- *
- * Hamlib C++ bindings - main file
- * Copyright (c) 2001-2003 by Stephane Fillod
- *
- *
- * This library is free software; you can redistribute it and/or
- * modify it under the terms of the GNU Lesser General Public
- * License as published by the Free Software Foundation; either
- * version 2.1 of the License, or (at your option) any later version.
- *
- * This library is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
- * Lesser General Public License for more details.
- *
- * You should have received a copy of the GNU Lesser General Public
- * License along with this library; if not, write to the Free Software
- * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
- *
- */
-
-#ifdef HAVE_CONFIG_H
-#include "config.h"
-#endif
-
-#include <hamlib/rig.h>
-#include "rigclass.h"
-#include <QDebug>
-#include <QHostAddress>
-
-static int hamlibpp_freq_event(RIG *rig, vfo_t vfo, freq_t freq, rig_ptr_t arg);
-
-static int hamlibpp_freq_event(RIG *rig, vfo_t vfo, freq_t freq, rig_ptr_t arg)
-{
- if (!rig || !rig->state.obj)
- return -RIG_EINVAL;
-
-/* assert rig == ((Rig*)rig->state.obj).theRig */
- return ((Rig*)rig->state.obj)->FreqEvent(vfo, freq, arg);
-}
-
-Rig::Rig()
-{
- rig_set_debug_level( RIG_DEBUG_WARN);
-}
-
-Rig::~Rig() {
- theRig->state.obj = NULL;
- rig_cleanup(theRig);
- caps = NULL;
-}
-
-int Rig::init(rig_model_t rig_model)
-{
- int initOk;
-
- theRig = rig_init(rig_model);
- if (!theRig)
- initOk = false;
- else
- initOk = true;
-
- caps = theRig->caps;
- theRig->callbacks.freq_event = &hamlibpp_freq_event;
- theRig->state.obj = (rig_ptr_t)this;
-
- return initOk;
-}
-
-int Rig::open(int n) {
- m_hrd=false;
- m_cmndr=false;
- if(n<9900) {
- if(n==-99999) return -1; //Silence compiler warning
- return rig_open(theRig);
- }
-
-#ifdef WIN32 // Ham radio Deluxe or Commander (Windows only)
- if(n==9999) {
- m_hrd=true;
- bool bConnect=false;
- bConnect = HRDInterfaceConnect(L"localhost",7809);
- if(bConnect) {
- const wchar_t* context=HRDInterfaceSendMessage(L"Get Context");
- m_context="[" + QString::fromWCharArray (context,-1) + "] ";
- HRDInterfaceFreeString(context);
- return 0;
- } else {
- m_hrd=false;
- return -1;
- }
- }
- if(n==9998) {
- if(socket->state()==QAbstractSocket::ConnectedState) {
- socket->abort();
- }
-
- if(socket->state()==QAbstractSocket::UnconnectedState) {
- socket->connectToHost(QHostAddress::LocalHost, 52002);
- if(!socket->waitForConnected(1000)) {
- return -1;
- }
- }
- QString t;
- t="<command:10>CmdGetFreq<parameters:0>";
- QByteArray ba = t.toLocal8Bit();
- const char* buf=ba.data();
- socket->write(buf);
- socket->waitForReadyRead(1000);
- QByteArray reply=socket->read(128);
- if(reply.indexOf("<CmdFreq:")==0) {
- m_cmndr=true;
- return 0;
- }
- }
-#endif
- return -1;
-}
-
-int Rig::close(void) {
-#ifdef WIN32 // Ham Radio Deluxe only on Windows
- if(m_hrd) {
- HRDInterfaceDisconnect();
- return 0;
- } else if(m_cmndr) {
- socket->close();
- return 0;
- } else
-#endif
- {
- return rig_close(theRig);
- }
-}
-
-int Rig::setConf(const char *name, const char *val)
-{
- return rig_set_conf(theRig, tokenLookup(name), val);
-}
-
-int Rig::setFreq(freq_t freq, vfo_t vfo) {
-#ifdef WIN32 // Ham Radio Deluxe (only on Windows)
- if(m_hrd) {
- QString t;
- int nhz=(int)freq;
- t=m_context + "Set Frequency-Hz " + QString::number(nhz);
- const wchar_t* cmnd = (const wchar_t*) t.utf16();
- const wchar_t* result=HRDInterfaceSendMessage(cmnd);
- QString t2=QString::fromWCharArray (result,-1);
- HRDInterfaceFreeString(result);
- if(t2=="OK") {
- return 0;
- } else {
- return -1;
- }
- } else if(m_cmndr) {
- QString t;
- double f=0.001*freq;
- t.sprintf("<command:10>CmdSetFreq<parameters:23><xcvrfreq:10>%10.3f",f);
- QByteArray ba = t.toLocal8Bit();
- const char* buf=ba.data();
- socket->write(buf);
- socket->waitForBytesWritten(1000);
- return 0;
- } else
-#endif
- {
- return rig_set_freq(theRig, vfo, freq);
- }
-}
-
-int Rig::setXit(shortfreq_t xit, vfo_t vfo)
-{
- return rig_set_xit(theRig, vfo, xit);
-}
-
-int Rig::setVFO(vfo_t vfo)
-{
- return rig_set_vfo(theRig, vfo);
-}
-
-vfo_t Rig::getVFO()
-{
- vfo_t vfo;
- rig_get_vfo(theRig, &vfo);
- return vfo;
-}
-
-int Rig::setSplitFreq(freq_t tx_freq, vfo_t vfo) {
-#ifdef WIN32 // Ham Radio Deluxe only on Windows
- if(m_hrd) {
- QString t;
- int nhz=(int)tx_freq;
- t=m_context + "Set Frequency-Hz " + QString::number(nhz);
- const wchar_t* cmnd = (const wchar_t*) t.utf16();
- const wchar_t* result=HRDInterfaceSendMessage(cmnd);
- QString t2=QString::fromWCharArray (result,-1);
- HRDInterfaceFreeString(result);
- if(t2=="OK") {
- return 0;
- } else {
- return -1;
- }
- } else if(m_cmndr) {
- QString t;
- double f=0.001*tx_freq;
- t.sprintf("<command:12>CmdSetTxFreq<parameters:23><xcvrfreq:10>%10.3f",f);
- QByteArray ba = t.toLocal8Bit();
- const char* buf=ba.data();
- socket->write(buf);
- socket->waitForBytesWritten(1000);
- return 0;
- } else
-#endif
- {
- return rig_set_split_freq(theRig, vfo, tx_freq);
- }
-}
-
-freq_t Rig::getFreq(vfo_t vfo)
-{
- freq_t freq;
-#ifdef WIN32 // Ham Radio Deluxe (only on Windows)
- if(m_hrd) {
- const wchar_t* cmnd = (const wchar_t*) (m_context+"Get Frequency").utf16();
- const wchar_t* freqString=HRDInterfaceSendMessage(cmnd);
- QString t2=QString::fromWCharArray (freqString,-1);
- HRDInterfaceFreeString(freqString);
- freq=t2.toDouble();
- return freq;
- } else if(m_cmndr) {
- QString t;
- t="<command:10>CmdGetFreq<parameters:0>";
- QByteArray ba = t.toLocal8Bit();
- const char* buf=ba.data();
- socket->write(buf);
- socket->waitForReadyRead(1000);
- QByteArray reply=socket->read(128);
- QString t2(reply);
- if(t2.indexOf("<CmdFreq:")==0) {
- int i1=t2.indexOf(">");
- t2=t2.mid(i1+1).replace(",","");
- freq=1000.0*t2.toDouble();
- return freq;
- } else {
- return -1.0;
- }
- } else
-#endif
- {
- int iret=rig_get_freq(theRig, vfo, &freq);
-// iret should be 0. Negative values mean rig_get_freq() failed.
- if(iret<0) freq=-1.0;
- return freq;
- }
-}
-
-int Rig::setMode(rmode_t mode, pbwidth_t width, vfo_t vfo) {
- return rig_set_mode(theRig, vfo, mode, width);
-}
-
-rmode_t Rig::getMode(pbwidth_t& width, vfo_t vfo) {
- rmode_t mode;
- rig_get_mode(theRig, vfo, &mode, &width);
- return mode;
-}
-
-int Rig::setPTT(ptt_t ptt, vfo_t vfo)
-{
-#ifdef WIN32 // Ham Radio Deluxe only on Windows
- if(m_hrd) {
- wchar_t* cmnd;
-
- if(ptt==0) {
- cmnd = (wchar_t*) (m_context +
- "Set Button-Select TX 0").utf16();
- } else {
- cmnd = (wchar_t*) (m_context +
- "Set Button-Select TX 1").utf16();
- }
- const wchar_t* result=HRDInterfaceSendMessage(cmnd);
- QString t2=QString::fromWCharArray (result,-1);
- HRDInterfaceFreeString(result);
- if(t2=="OK") {
- return 0;
- } else {
- return -1;
- }
- } else if(m_cmndr) {
- QString t;
- if(ptt==0) t="<command:5>CmdRX<parameters:0>";
- if(ptt>0) t="<command:5>CmdTX<parameters:0>";
- QByteArray ba = t.toLocal8Bit();
- const char* buf=ba.data();
- socket->write(buf);
- socket->waitForBytesWritten(1000);
- return 0;
- } else
-#endif
- {
- return rig_set_ptt(theRig, vfo, ptt);
- }
-}
-
-ptt_t Rig::getPTT(vfo_t vfo)
-{
- ptt_t ptt;
- rig_get_ptt(theRig, vfo, &ptt);
- return ptt;
-}
-
-token_t Rig::tokenLookup(const char *name)
-{
- return rig_token_lookup(theRig, name);
-}
diff --git a/rigclass.h b/rigclass.h
deleted file mode 100644
index 9c933e7..0000000
--- a/rigclass.h
+++ /dev/null
@@ -1,98 +0,0 @@
-/*
- * Hamlib C++ bindings - API header
- * Copyright (c) 2001-2002 by Stephane Fillod
- *
- *
- * This library is free software; you can redistribute it and/or
- * modify it under the terms of the GNU Lesser General Public
- * License as published by the Free Software Foundation; either
- * version 2.1 of the License, or (at your option) any later version.
- *
- * This library is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
- * Lesser General Public License for more details.
- *
- * You should have received a copy of the GNU Lesser General Public
- * License along with this library; if not, write to the Free Software
- * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
- *
- */
-
-#ifndef _RIGCLASS_H
-#define _RIGCLASS_H 1
-
-#include <hamlib/rig.h>
-#include <iostream>
-#include <QString>
-#include <QTcpSocket>
-
-extern QTcpSocket* socket;
-
-class BACKEND_IMPEXP Rig {
-private:
- RIG* theRig; // Global ref. to the rig
- bool m_hrd;
- bool m_cmndr;
- QString m_context;
-
-
-protected:
-public:
- Rig();
- virtual ~Rig();
-
- const struct rig_caps *caps;
-
- // Initialize rig
- int init(rig_model_t rig_model);
-
- // This method open the communication port to the rig
- int open(int n);
-
- // This method close the communication port to the rig
- int close(void);
-
- int setConf(const char *name, const char *val);
- token_t tokenLookup(const char *name);
-
- int setFreq(freq_t freq, vfo_t vfo = RIG_VFO_CURR);
- freq_t getFreq(vfo_t vfo = RIG_VFO_CURR);
- int setMode(rmode_t, pbwidth_t width = RIG_PASSBAND_NORMAL, vfo_t vfo = RIG_VFO_CURR);
- rmode_t getMode(pbwidth_t&, vfo_t vfo = RIG_VFO_CURR);
- int setVFO(vfo_t);
- vfo_t getVFO();
- int setXit(shortfreq_t xit, vfo_t vfo);
- int setSplitFreq(freq_t tx_freq, vfo_t vfo = RIG_VFO_CURR);
- int setPTT (ptt_t ptt, vfo_t vfo = RIG_VFO_CURR);
- ptt_t getPTT (vfo_t vfo = RIG_VFO_CURR);
-
- // callbacks available in your derived object
- virtual int FreqEvent(vfo_t, freq_t, rig_ptr_t) const {
- return RIG_OK;
- }
- virtual int ModeEvent(vfo_t, rmode_t, pbwidth_t, rig_ptr_t) const {
- return RIG_OK;
- }
- virtual int VFOEvent(vfo_t, rig_ptr_t) const {
- return RIG_OK;
- }
- virtual int PTTEvent(vfo_t, ptt_t, rig_ptr_t) const {
- return RIG_OK;
- }
- virtual int DCDEvent(vfo_t, dcd_t, rig_ptr_t) const {
- return RIG_OK;
- }
-};
-
-#ifdef WIN32
-extern "C" {
- bool HRDInterfaceConnect(const wchar_t *host, const ushort);
- void HRDInterfaceDisconnect();
- bool HRDInterfaceIsConnected();
- wchar_t* HRDInterfaceSendMessage(const wchar_t *msg);
- void HRDInterfaceFreeString(const wchar_t *lstring);
-}
-#endif
-
-#endif // _RIGCLASS_H
diff --git a/shortcuts.txt b/shortcuts.txt
deleted file mode 100644
index 821ec70..0000000
--- a/shortcuts.txt
+++ /dev/null
@@ -1,26 +0,0 @@
-F1 Online User's Guide
-Ctrl+F1 About WSJT-X
-F2 Open configuration window
-F3 Display keyboard shortcuts
-F4 Clear Dx Call and Dx Grid entries
-Alt+F4 Exit program
-F5 Display special mouse commands
-F6 Open next in directory
-F11 Move Rx frequency down 1 Hz
-Ctrl+F11 Move Rx and Tx frequencies down 1 Hz
-F12 Move Rx frequency up 1 Hz
-Ctrl+F12 Move Rx and Tx frequencies up 1 Hz
-Shift+F6 Decode remaining files in directory
-Alt+D Decode again at QSO frequency
-Shift+D Full-bandwidth decode (both windows)
-Alt+E Erase()
-Ctrl+F Edit the free text message box
-Alt+G Generate standard messages
-Alt+H Halt Tx()
-Ctrl+L Lookup callsign in database, generate standard messages
-Alt M Monitor()
-Alt+N Enable Tx()
-Alt+Q Log QSO()
-Alt+S Stop()
-Alt+T Tune
-Alt+V Save the most recently completed *.wav file
diff --git a/signalmeter.cpp b/signalmeter.cpp
deleted file mode 100644
index 537b900..0000000
--- a/signalmeter.cpp
+++ /dev/null
@@ -1,53 +0,0 @@
-// Simple bargraph dB meter
-// Implemented by Edson Pereira PY2SDR
-//
-// Limits and geometry are hardcded for now.
-
-#include "signalmeter.h"
-
-SignalMeter::SignalMeter(QWidget *parent) :
- QWidget(parent)
-{
- resize(parent->size());
-
- m_meter = new MeterWidget(this);
- m_meter->setGeometry(10, 10, 10, 120);
-
- m_label = new QLabel(this);
- m_label->setGeometry(10, 135, 20, 20);
-
- QLabel *dbLabel = new QLabel(this);
- dbLabel->setText("dB");
- dbLabel->setGeometry(30, 135, 20, 20);
-}
-
-SignalMeter::~SignalMeter()
-{
-
-}
-
-void SignalMeter::paintEvent( QPaintEvent * )
-{
- QPainter p;
- p.begin(this);
- p.drawLine(22, 10, 22, 130);
-
- for ( int i = 0; i <= 60; i += 10 ) {
- p.drawLine(22, i*2 + 10, 25, i*2 + 10);
- }
-
- for ( int i = 10; i < 60; i += 10 ) {
- p.drawText(30, i*2 + 15, QString::number(60 - i));
- }
-}
-
-void SignalMeter::setValue(int value)
-{
- m_meter->setValue(value);
- m_label->setText(QString::number(value));
-}
-
-void SignalMeter::resizeEvent(QResizeEvent *s)
-{
- resize(s->size());
-}
diff --git a/signalmeter.h b/signalmeter.h
deleted file mode 100644
index ea1aa62..0000000
--- a/signalmeter.h
+++ /dev/null
@@ -1,32 +0,0 @@
-#ifndef SIGNALMETER_H
-#define SIGNALMETER_H
-
-#include <QtGui>
-#include <QLabel>
-#include <meterwidget.h>
-
-class SignalMeter : public QWidget
-{
- Q_OBJECT
-
-public:
- explicit SignalMeter(QWidget *parent = 0);
- ~SignalMeter();
-
-public slots:
- void setValue(int value);
-
-private:
- MeterWidget *m_meter;
-
- QLabel *m_label;
-
- int m_signal;
- int m_sigPeak;
-
-protected:
- void paintEvent( QPaintEvent * );
- void resizeEvent(QResizeEvent *s);
-};
-
-#endif // SIGNALMETER_H
diff --git a/sleep.h b/sleep.h
deleted file mode 100644
index c11188c..0000000
--- a/sleep.h
+++ /dev/null
@@ -1,16 +0,0 @@
-#ifndef SLEEP_H
-#define SLEEP_H
-#include <qthread.h>
-
-class Sleep : public QThread
-{
-public:
- static void msleep(int ms) {
- QThread::msleep(ms);
- }
- static int idealThreadCount() {
- return QThread::idealThreadCount();
- }
-};
-
-#endif // SLEEP_H
diff --git a/soundin.cpp b/soundin.cpp
deleted file mode 100644
index 332e5d3..0000000
--- a/soundin.cpp
+++ /dev/null
@@ -1,208 +0,0 @@
-#include "soundin.h"
-#include <stdexcept>
-
-#define FRAMES_PER_BUFFER 1024
-//#define NSMAX 1365
-#define NSMAX 6827
-#define NTMAX 120
-
-extern "C" {
-#include <portaudio.h>
-extern struct {
- float ss[184*NSMAX]; //This is "common/jt9com/..." in fortran
- float savg[NSMAX];
-// float c0[2*NTMAX*1500];
- short int d2[NTMAX*12000];
- int nutc; //UTC as integer, HHMM
- int ndiskdat; //1 ==> data read from *.wav file
- int ntrperiod; //TR period (seconds)
- int mousefqso; //User-selected QSO freq (kHz)
- int newdat; //1 ==> new data, must do long FFT
- int npts8; //npts in c0() array
- int nfa; //Low decode limit (Hz)
- int nfb; //High decode limit (Hz)
- int ntol; //+/- decoding range around fQSO (Hz)
- int kin;
- int nzhsym;
- int nsave;
- int nagain;
- int ndepth;
- int ntxmode;
- int nmode;
- char datetime[20];
-} jt9com_;
-}
-
-typedef struct
-{
- int kin; //Parameters sent to/from the portaudio callback function
- int ncall;
- bool bzero;
- bool monitoring;
-} paUserData;
-
-//--------------------------------------------------------------- a2dCallback
-extern "C" int a2dCallback( const void *inputBuffer, void *outputBuffer,
- unsigned long framesToProcess,
- const PaStreamCallbackTimeInfo* timeInfo,
- PaStreamCallbackFlags statusFlags,
- void *userData )
-
-// This routine called by the PortAudio engine when samples are available.
-// It may be called at interrupt level, so don't do anything
-// that could mess up the system like calling malloc() or free().
-
-{
- paUserData *udata=(paUserData*)userData;
- (void) outputBuffer; //Prevent unused variable warnings.
- (void) timeInfo;
- (void) userData;
- int nbytes,k;
-
- udata->ncall++;
- if( (statusFlags&paInputOverflow) != 0) {
- qDebug() << "Input Overflow in a2dCallback";
- }
- if(udata->bzero) { //Start of a new Rx sequence
- udata->kin=0; //Reset buffer pointer
- udata->bzero=false;
- }
-
- nbytes=2*framesToProcess; //Bytes per frame
- k=udata->kin;
- if(udata->monitoring) {
- memcpy(&jt9com_.d2[k],inputBuffer,nbytes); //Copy all samples to d2
- }
- udata->kin += framesToProcess;
- jt9com_.kin=udata->kin;
-
- return paContinue;
-}
-
-void SoundInThread::run() //SoundInThread::run()
-{
- quitExecution = false;
-
-//---------------------------------------------------- Soundcard Setup
- PaError paerr;
- PaStreamParameters inParam;
- PaStream *inStream;
- paUserData udata;
-
- udata.kin=0; //Buffer pointer
- udata.ncall=0; //Number of callbacks
- udata.bzero=false; //Flag to request reset of kin
- udata.monitoring=m_monitoring;
-
- inParam.device=m_nDevIn; //### Input Device Number ###
- inParam.channelCount=1; //Number of analog channels
- inParam.sampleFormat=paInt16; //Get i*2 from Portaudio
- inParam.suggestedLatency=0.05;
- inParam.hostApiSpecificStreamInfo=NULL;
-
- paerr=Pa_IsFormatSupported(&inParam,NULL,12000.0);
- if(paerr<0) {
- emit error("PortAudio says requested soundcard format not supported.");
-// return;
- }
- qDebug() << "";
- paerr=Pa_OpenStream(&inStream, //Input stream
- &inParam, //Input parameters
- NULL, //No output parameters
- 12000.0, //Sample rate
- FRAMES_PER_BUFFER, //Frames per buffer
-// paClipOff+paDitherOff, //No clipping or dithering
- paClipOff, //No clipping
- a2dCallback, //Input callback routine
- &udata); //userdata
-
- paerr=Pa_StartStream(inStream);
- if(paerr<0) {
- emit error("Failed to start audio input stream.");
- return;
- }
-
- bool qe = quitExecution;
- static int ntr0=99;
- int k=0;
- int nsec;
- int ntr;
- int nBusy=0;
- int nstep0=0;
- int nsps0=0;
- qint64 ms0 = QDateTime::currentMSecsSinceEpoch();
-
-//---------------------------------------------- Soundcard input loop
- while (!qe) {
- qe = quitExecution;
- if (qe) break;
- udata.monitoring=m_monitoring;
- qint64 ms = QDateTime::currentMSecsSinceEpoch();
- m_SamFacIn=1.0;
- if(udata.ncall>100) {
- m_SamFacIn=udata.ncall*FRAMES_PER_BUFFER*1000.0/(12000.0*(ms-ms0-50));
- }
- ms=ms % 86400000;
- nsec = ms/1000; // Time according to this computer
- ntr = nsec % m_TRperiod;
-
-// Reset buffer pointer and symbol number at start of minute
- if(ntr < ntr0 or !m_monitoring or m_nsps!=nsps0) {
- nstep0=0;
- nsps0=m_nsps;
- udata.bzero=true;
- }
- k=udata.kin;
- if(m_monitoring) {
- int kstep=m_nsps/2;
-// m_step=k/kstep;
- m_step=(k-1)/kstep;
- if(m_step != nstep0) {
- if(m_dataSinkBusy) {
- nBusy++;
- } else {
-// m_dataSinkBusy=true;
-// emit readyForFFT(k); //Signal to compute new FFTs
- emit readyForFFT(k-1); //Signal to compute new FFTs
- }
- nstep0=m_step;
- }
- }
- msleep(100);
- ntr0=ntr;
- }
- Pa_StopStream(inStream);
- Pa_CloseStream(inStream);
-}
-
-void SoundInThread::setInputDevice(int n) //setInputDevice()
-{
- if (isRunning()) return;
- this->m_nDevIn=n;
-}
-
-void SoundInThread::quit() //quit()
-{
- quitExecution = true;
-}
-
-void SoundInThread::setMonitoring(bool b) //setMonitoring()
-{
- m_monitoring = b;
-}
-
-void SoundInThread::setPeriod(int ntrperiod, int nsps)
-{
- m_TRperiod=ntrperiod;
- m_nsps=nsps;
-}
-
-int SoundInThread::mstep()
-{
- return m_step;
-}
-
-double SoundInThread::samFacIn()
-{
- return m_SamFacIn;
-}
diff --git a/soundin.h b/soundin.h
deleted file mode 100644
index 955f08d..0000000
--- a/soundin.h
+++ /dev/null
@@ -1,50 +0,0 @@
-#ifndef SOUNDIN_H
-#define SOUNDIN_H
-
-#include <QtCore>
-#include <QDebug>
-
-
-// Thread gets audio data from soundcard and signals when a buffer of
-// specified size is available.
-class SoundInThread : public QThread
-{
- Q_OBJECT
- bool quitExecution; // if true, thread exits gracefully
-
-protected:
- virtual void run();
-
-public:
- bool m_dataSinkBusy;
-
- SoundInThread():
- quitExecution(false),
- m_dataSinkBusy(false)
- {
- }
-
- void setInputDevice(qint32 n);
- void setMonitoring(bool b);
- void setPeriod(int ntrperiod, int nsps);
- int mstep();
- double samFacIn();
-
-signals:
- void readyForFFT(int k);
- void error(const QString& message);
- void status(const QString& message);
-
-public slots:
- void quit();
-
-private:
- double m_SamFacIn; //(Input sample rate)/12000.0
- qint32 m_step;
- qint32 m_nDevIn;
- qint32 m_TRperiod;
- qint32 m_TRperiod0;
- qint32 m_nsps;
- bool m_monitoring;
-};
-#endif // SOUNDIN_H
diff --git a/soundout.cpp b/soundout.cpp
deleted file mode 100644
index 8693237..0000000
--- a/soundout.cpp
+++ /dev/null
@@ -1,270 +0,0 @@
-#include "soundout.h"
-
-//#define FRAMES_PER_BUFFER 1024
-
-extern "C" {
-#include <portaudio.h>
-}
-
-extern float gran(); //Noise generator (for tests only)
-extern int itone[126]; //Audio tones for all Tx symbols
-extern int icw[250]; //Dits for CW ID
-extern int outBufSize;
-extern bool btxok;
-extern bool btxMute;
-extern double outputLatency;
-
-typedef struct //Parameters sent to or received from callback function
-{
- double txsnrdb;
- double dnsps;
- int ntrperiod;
- int ntxfreq;
- int xit;
- int ncall;
- int nsym;
- bool txMute;
- bool bRestart;
- bool btune;
-} paUserData;
-
-//--------------------------------------------------------------- d2aCallback
-extern "C" int d2aCallback(const void *inputBuffer, void *outputBuffer,
- unsigned long framesToProcess,
- const PaStreamCallbackTimeInfo* timeInfo,
- PaStreamCallbackFlags statusFlags,
- void *userData )
-{
- paUserData *udata=(paUserData*)userData;
- short *wptr = (short*)outputBuffer;
-
- static double twopi=2.0*3.141592653589793238462;
- static double baud;
- static double phi=0.0;
- static double dphi;
- static double freq;
- static double snr;
- static double fac;
- static double amp;
- static int ic=0,j=0;
- static int isym0=-999;
- static short int i2;
- int isym,nspd;
-
- udata->ncall++;
- if(udata->bRestart) {
- // Time according to this computer
- qint64 ms = QDateTime::currentMSecsSinceEpoch() % 86400000;
- int mstr = ms % (1000*udata->ntrperiod );
- if(mstr<1000) return paContinue;
- ic=(mstr-1000)*48;
- udata->bRestart=false;
- srand(mstr); //Initialize random seed
- }
- isym=ic/(4.0*udata->dnsps); //Actual fsample=48000
- if(udata->btune) isym=0; //If tuning, send pure tone
- if(udata->txsnrdb < 0.0) {
- snr=pow(10.0,0.05*(udata->txsnrdb-6.0));
- fac=3000.0;
- if(snr>1.0) fac=3000.0/snr;
- }
-
- if(isym>=udata->nsym and icw[0]>0) { //Output the CW ID
- freq=udata->ntxfreq - udata->xit;
- dphi=twopi*freq/48000.0;
-
-// float wpm=20.0;
-// int nspd=1.2*48000.0/wpm;
-// nspd=3072; //18.75 WPM
- nspd=2048 + 512; //22.5 WPM
- int ic0=udata->nsym*4*udata->dnsps;
- for(uint i=0 ; i<framesToProcess; i++ ) {
- phi += dphi;
- if(phi>twopi) phi -= twopi;
- i2=32767.0*sin(phi);
- j=(ic-ic0)/nspd + 1;
- if(icw[j]==0) i2=0;
- if(udata->txsnrdb < 0.0) {
- int i4=fac*(gran() + i2*snr/32768.0);
- if(i4>32767) i4=32767;
- if(i4<-32767) i4=-32767;
- i2=i4;
- }
- if(!btxok or btxMute) i2=0;
- *wptr++ = i2; //left
-#ifdef UNIX
- *wptr++ = i2; //right
-#endif
- ic++;
- }
- if(j>icw[0]) return paComplete;
- if(statusFlags==999999 and timeInfo==NULL and
- inputBuffer==NULL) return paContinue; //Silence compiler warning:
- return paContinue;
- }
-
- baud=12000.0/udata->dnsps;
- amp=32767.0;
- int i0=(udata->nsym-0.017)*4.0*udata->dnsps;
- int i1=udata->nsym*4.0*udata->dnsps;
- if(udata->btune) { //If tuning, no ramp down
- i0=999*udata->dnsps;
- i1=i0;
- }
- for(uint i=0 ; i<framesToProcess; i++ ) {
- isym=ic/(4.0*udata->dnsps); //Actual fsample=48000
- if(udata->btune) isym=0; //If tuning, send pure tone
- if(isym!=isym0) {
- freq=udata->ntxfreq + itone[isym]*baud - udata->xit;
- dphi=twopi*freq/48000.0;
- isym0=isym;
- }
- phi += dphi;
- if(phi>twopi) phi -= twopi;
- if(ic>i0) amp=0.98*amp;
- if(ic>i1) amp=0.0;
- i2=amp*sin(phi);
- if(udata->txsnrdb < 0.0) {
- int i4=fac*(gran() + i2*snr/32768.0);
- if(i4>32767) i4=32767;
- if(i4<-32767) i4=-32767;
- i2=i4;
- }
- if(!btxok or btxMute) i2=0;
- *wptr++ = i2; //left
-#ifdef UNIX
- *wptr++ = i2; //right
-#endif
- ic++;
- }
- if(amp==0.0) {
- if(icw[0]==0) return paComplete;
- phi=0.0;
- }
- return paContinue;
-}
-
-void SoundOutThread::run()
-{
- PaError paerr;
- PaStreamParameters outParam;
- PaStream *outStream;
- paUserData udata;
- quitExecution = false;
-
- outParam.device=m_nDevOut; //Output device number
- outParam.channelCount=1; //Number of analog channels
-#ifdef UNIX
- outParam.channelCount=2; //Number of analog channels
-#endif
- outParam.sampleFormat=paInt16; //Send short ints to PortAudio
- outParam.suggestedLatency=0.05;
- outParam.hostApiSpecificStreamInfo=NULL;
-
- paerr=Pa_IsFormatSupported(NULL,&outParam,48000.0);
- if(paerr<0) {
- qDebug() << "PortAudio says requested output format not supported.";
- qDebug() << paerr << m_nDevOut;
- return;
- }
-
- udata.txsnrdb=99.0;
- udata.dnsps=m_nsps;
- udata.nsym=85;
- if(m_modeTx=="JT65") {
- udata.dnsps=4096.0*12000.0/11025.0;
- udata.nsym=126;
- }
- udata.ntrperiod=m_TRperiod;
- udata.ntxfreq=m_txFreq;
- udata.xit=m_xit;
- udata.ncall=0;
- udata.txMute=m_txMute;
- udata.bRestart=true;
- udata.btune=m_tune;
-
- paerr=Pa_OpenStream(&outStream, //Output stream
- NULL, //No input parameters
- &outParam, //Output parameters
- 48000.0, //Sample rate
- outBufSize, //Frames per buffer
- paClipOff, //No clipping
- d2aCallback, //output callbeck routine
- &udata); //userdata
-
- paerr=Pa_StartStream(outStream);
- if(paerr<0) {
- qDebug() << "Failed to start audio output stream.";
- return;
- }
- const PaStreamInfo* p=Pa_GetStreamInfo(outStream);
- outputLatency = p->outputLatency;
- bool qe = quitExecution;
- qint64 ms0 = QDateTime::currentMSecsSinceEpoch();
-
-//---------------------------------------------- Soundcard output loop
- while (!qe) {
- qe = quitExecution;
- if (qe) break;
-
- udata.txsnrdb=m_txsnrdb;
- udata.dnsps=m_nsps;
- udata.nsym=85;
- if(m_modeTx=="JT65") {
- udata.dnsps=4096.0*12000.0/11025.0;
- udata.nsym=126;
- }
- udata.ntrperiod=m_TRperiod;
- udata.ntxfreq=m_txFreq;
- udata.xit=m_xit;
- udata.txMute=m_txMute;
- udata.btune=m_tune;
-
- m_SamFacOut=1.0;
- if(udata.ncall>400) {
- qint64 ms = QDateTime::currentMSecsSinceEpoch();
- m_SamFacOut=udata.ncall*outBufSize*1000.0/(48000.0*(ms-ms0-50));
- }
- msleep(100);
- }
- Pa_StopStream(outStream);
- Pa_CloseStream(outStream);
-}
-
-void SoundOutThread::setOutputDevice(int n) //setOutputDevice()
-{
- if (isRunning()) return;
- this->m_nDevOut=n;
-}
-
-void SoundOutThread::setPeriod(int ntrperiod, int nsps)
-{
- m_TRperiod=ntrperiod;
- m_nsps=nsps;
-}
-
-void SoundOutThread::setTxFreq(int n)
-{
- m_txFreq=n;
-}
-
-void SoundOutThread::setXIT(int n)
-{
- m_xit=n;
-
-}
-
-void SoundOutThread::setTxSNR(double snr)
-{
- m_txsnrdb=snr;
-}
-
-void SoundOutThread::setTune(bool b)
-{
- m_tune=b;
-}
-
-double SoundOutThread::samFacOut()
-{
- return m_SamFacOut;
-}
diff --git a/soundout.h b/soundout.h
deleted file mode 100644
index a289afc..0000000
--- a/soundout.h
+++ /dev/null
@@ -1,53 +0,0 @@
-#ifndef SOUNDOUT_H
-#define SOUNDOUT_H
-#include <QtCore>
-#include <QDebug>
-
-// An instance of this thread sends audio data to a specified soundcard.
-// Output can be muted while underway, preserving waveform timing when
-// transmission is resumed.
-
-class SoundOutThread : public QThread
-{
- Q_OBJECT
-
-protected:
- virtual void run();
-
-public:
-// Constructs (but does not start) a SoundOutThread
- SoundOutThread()
- : quitExecution(false) // Initialize some private members
- , m_txOK(false)
- , m_txMute(false)
- {
- }
-
-public:
- void setOutputDevice(qint32 n);
- void setPeriod(int ntrperiod, int nsps);
- void setTxFreq(int n);
- void setXIT(int n);
- void setTxSNR(double snr);
- void setTune(bool b);
- double samFacOut();
- bool quitExecution; //If true, thread exits gracefully
- QString m_modeTx;
-
-// Private members
-private:
- double m_txsnrdb; //if < 0, add noise to Tx audio
- double m_SamFacOut; //(Output sample rate)/48000.0
-
- qint32 m_nDevOut; //Output device number
- qint32 m_TRperiod; //T/R period (s)
- qint32 m_nsps; //Samples per symbol (at 12000 Hz)
- qint32 m_txFreq;
- qint32 m_xit;
-
- bool m_txOK; //Enable Tx audio
- bool m_txMute; //Mute temporarily
- bool m_tune;
-};
-
-#endif
diff --git a/src/hamlib.tgz b/src/hamlib.tgz
new file mode 100644
index 0000000..9ae8ef5
Binary files /dev/null and b/src/hamlib.tgz differ
diff --git a/src/hamlib.tgz.md5sum b/src/hamlib.tgz.md5sum
new file mode 100644
index 0000000..3302b04
--- /dev/null
+++ b/src/hamlib.tgz.md5sum
@@ -0,0 +1 @@
+b09dc969a79c644d0bc92d64e85affdd wsjtx-1.5.0/src/hamlib.tgz
diff --git a/src/wsjtx.tgz b/src/wsjtx.tgz
new file mode 100644
index 0000000..25bc117
Binary files /dev/null and b/src/wsjtx.tgz differ
diff --git a/src/wsjtx.tgz.md5sum b/src/wsjtx.tgz.md5sum
new file mode 100644
index 0000000..4cbb06f
--- /dev/null
+++ b/src/wsjtx.tgz.md5sum
@@ -0,0 +1 @@
+b7b0f4a48327ad02375d5bd6d038b30b wsjtx-1.5.0/src/wsjtx.tgz
diff --git a/ss.bat b/ss.bat
deleted file mode 100644
index 37f669a..0000000
--- a/ss.bat
+++ /dev/null
@@ -1 +0,0 @@
-svn status | grep -v '?'
diff --git a/sss.bat b/sss.bat
deleted file mode 100644
index 7b51c8c..0000000
--- a/sss.bat
+++ /dev/null
@@ -1 +0,0 @@
-svn status
diff --git a/widegraph.cpp b/widegraph.cpp
deleted file mode 100644
index 3efa1f2..0000000
--- a/widegraph.cpp
+++ /dev/null
@@ -1,314 +0,0 @@
-#include "widegraph.h"
-#include "ui_widegraph.h"
-#include "commons.h"
-
-WideGraph::WideGraph(QWidget *parent) :
- QDialog(parent),
- ui(new Ui::WideGraph)
-{
- ui->setupUi(this);
- this->setWindowFlags(Qt::Dialog);
- this->installEventFilter(parent); //Installing the filter
- ui->widePlot->setCursor(Qt::CrossCursor);
- this->setMaximumWidth(2048);
- this->setMaximumHeight(880);
- ui->widePlot->setMaximumHeight(800);
- ui->widePlot->m_bCurrent=false;
-
- connect(ui->widePlot, SIGNAL(freezeDecode1(int)),this,
- SLOT(wideFreezeDecode(int)));
-
- connect(ui->widePlot, SIGNAL(setFreq1(int,int)),this,
- SLOT(setFreq2(int,int)));
-
- m_fMin=3000;
- ui->fMinSpinBox->setValue(m_fMin);
-
- //Restore user's settings
- QString inifile(QApplication::applicationDirPath());
- inifile += "/wsjtx.ini";
- QSettings settings(inifile, QSettings::IniFormat);
-
- settings.beginGroup("WideGraph");
- ui->widePlot->setPlotZero(settings.value("PlotZero", 0).toInt());
- ui->widePlot->setPlotGain(settings.value("PlotGain", 0).toInt());
- ui->zeroSpinBox->setValue(ui->widePlot->getPlotZero());
- ui->gainSpinBox->setValue(ui->widePlot->getPlotGain());
- int n = settings.value("FreqSpan",2).toInt();
- int w = settings.value("PlotWidth",1000).toInt();
- ui->widePlot->m_w=w;
- ui->freqSpanSpinBox->setValue(n);
- ui->widePlot->setNSpan(n);
- m_waterfallAvg = settings.value("WaterfallAvg",5).toInt();
- ui->waterfallAvgSpinBox->setValue(m_waterfallAvg);
- ui->widePlot->m_bCurrent=settings.value("Current",false).toBool();
- ui->widePlot->m_bCumulative=settings.value("Cumulative",true).toBool();
- if(ui->widePlot->m_bCurrent) ui->spec2dComboBox->setCurrentIndex(0);
- if(ui->widePlot->m_bCumulative) ui->spec2dComboBox->setCurrentIndex(1);
- int nbpp=settings.value("BinsPerPixel",2).toInt();
- ui->widePlot->setBinsPerPixel(nbpp);
- m_slope=settings.value("Slope",0.0).toDouble();
- ui->slopeSpinBox->setValue(m_slope);
- settings.endGroup();
-}
-
-WideGraph::~WideGraph()
-{
- saveSettings();
- delete ui;
-}
-
-void WideGraph::saveSettings()
-{
- //Save user's settings
- QString inifile(QApplication::applicationDirPath());
- inifile += "/wsjtx.ini";
- QSettings settings(inifile, QSettings::IniFormat);
-
- settings.beginGroup("WideGraph");
- settings.setValue("PlotZero",ui->widePlot->m_plotZero);
- settings.setValue("PlotGain",ui->widePlot->m_plotGain);
- settings.setValue("PlotWidth",ui->widePlot->plotWidth());
- settings.setValue("FreqSpan",ui->freqSpanSpinBox->value());
- settings.setValue("WaterfallAvg",ui->waterfallAvgSpinBox->value());
- settings.setValue("Current",ui->widePlot->m_bCurrent);
- settings.setValue("Cumulative",ui->widePlot->m_bCumulative);
- settings.setValue("BinsPerPixel",ui->widePlot->binsPerPixel());
- settings.setValue("Slope",m_slope);
- settings.endGroup();
-}
-
-void WideGraph::dataSink2(float s[], float df3, int ihsym,
- int ndiskdata)
-{
- static float splot[NSMAX];
- static float swide[2048];
- int nbpp = ui->widePlot->binsPerPixel();
- static int n=0;
-
- //Average spectra over specified number, m_waterfallAvg
- if (n==0) {
- for (int i=0; i<NSMAX; i++)
- splot[i]=s[i];
- } else {
- for (int i=0; i<NSMAX; i++)
- splot[i] += s[i];
- }
- n++;
-
- if (n>=m_waterfallAvg) {
- for (int i=0; i<NSMAX; i++)
- splot[i] /= n; //Normalize the average
- n=0;
-
-// int w=ui->widePlot->plotWidth();
- int i0=-1; //###
- int i=i0;
- int jz=5000.0/(nbpp*df3);
- for (int j=0; j<jz; j++) {
- float sum=0;
- for (int k=0; k<nbpp; k++) {
- i++;
- sum += splot[i];
- }
- swide[j]=sum;
- }
-
-// Time according to this computer
- qint64 ms = QDateTime::currentMSecsSinceEpoch() % 86400000;
- int ntr = (ms/1000) % m_TRperiod;
- if((ndiskdata && ihsym <= m_waterfallAvg) || (!ndiskdata && ntr<m_ntr0)) {
- for (int i=0; i<2048; i++) {
- swide[i] = 1.e30;
- }
- }
- m_ntr0=ntr;
- ui->widePlot->draw(swide,i0);
- }
-}
-
-void WideGraph::on_freqSpanSpinBox_valueChanged(int n)
-{
- ui->widePlot->setBinsPerPixel(n);
-}
-
-void WideGraph::on_waterfallAvgSpinBox_valueChanged(int n)
-{
- m_waterfallAvg = n;
-}
-
-void WideGraph::on_zeroSpinBox_valueChanged(int value)
-{
- ui->widePlot->setPlotZero(value);
-}
-
-void WideGraph::on_gainSpinBox_valueChanged(int value)
-{
- ui->widePlot->setPlotGain(value);
-}
-
-void WideGraph::keyPressEvent(QKeyEvent *e)
-{
- switch(e->key())
- {
- int n;
- case Qt::Key_F11:
- n=11;
- if(e->modifiers() & Qt::ControlModifier) n+=100;
- emit f11f12(n);
- break;
- case Qt::Key_F12:
- n=12;
- if(e->modifiers() & Qt::ControlModifier) n+=100;
- emit f11f12(n);
- break;
- default:
- e->ignore();
- }
-}
-
-void WideGraph::setRxFreq(int n)
-{
- m_rxFreq=n;
- ui->widePlot->setRxFreq(m_rxFreq,true);
- if(m_lockTxFreq) setTxFreq(m_rxFreq);
-}
-
-int WideGraph::rxFreq()
-{
- return ui->widePlot->rxFreq();
-}
-
-int WideGraph::nSpan()
-{
- return ui->widePlot->m_nSpan;
-}
-
-float WideGraph::fSpan()
-{
- return ui->widePlot->m_fSpan;
-}
-
-int WideGraph::nStartFreq()
-{
- return ui->widePlot->startFreq();
-}
-
-void WideGraph::wideFreezeDecode(int n)
-{
- emit freezeDecode2(n);
-}
-
-void WideGraph::setRxRange(int fMin)
-{
- ui->widePlot->setRxRange(fMin);
- ui->widePlot->DrawOverlay();
- ui->widePlot->update();
-}
-
-int WideGraph::getFmin()
-{
- return m_fMin;
-}
-
-int WideGraph::getFmax()
-{
- int n=ui->widePlot->getFmax();
- if(n>5000) n=5000;
- return n;
-}
-
-void WideGraph::setFmin(int n)
-{
- m_fMin = n;
- ui->fMinSpinBox->setValue(n);
- setRxRange(m_fMin);
-}
-
-void WideGraph::setPalette(QString palette)
-{
- ui->widePlot->setPalette(palette);
-}
-
-double WideGraph::fGreen()
-{
- return ui->widePlot->fGreen();
-}
-
-void WideGraph::setPeriod(int ntrperiod, int nsps)
-{
- m_TRperiod=ntrperiod;
- m_nsps=nsps;
- ui->widePlot->setNsps(ntrperiod, nsps);
-}
-
-void WideGraph::setTxFreq(int n)
-{
- emit setXIT2(n);
- ui->widePlot->setTxFreq(n);
-}
-
-void WideGraph::setMode(QString mode)
-{
- m_mode=mode;
- ui->fMinSpinBox->setEnabled(m_mode=="JT9+JT65");
- ui->widePlot->setMode(mode);
- ui->widePlot->DrawOverlay();
- ui->widePlot->update();
-}
-
-void WideGraph::setModeTx(QString modeTx)
-{
- m_modeTx=modeTx;
- ui->widePlot->setModeTx(modeTx);
- ui->widePlot->DrawOverlay();
- ui->widePlot->update();
-}
-
-void WideGraph::on_spec2dComboBox_currentIndexChanged(const QString &arg1)
-{
- ui->widePlot->m_bCurrent=false;
- ui->widePlot->m_bCumulative=false;
- if(arg1=="Current") ui->widePlot->m_bCurrent=true;
- if(arg1=="Cumulative") ui->widePlot->m_bCumulative=true;
-}
-
-void WideGraph::on_fMinSpinBox_valueChanged(int n)
-{
- m_fMin=n;
- setRxRange(m_fMin);
-}
-
-void WideGraph::on_slopeSpinBox_valueChanged(double d)
-{
- m_slope=d;
-}
-
-void WideGraph::setSlope(double d)
-{
- m_slope=d;
- ui->slopeSpinBox->setValue(d);
-}
-
-void WideGraph::setLockTxFreq(bool b)
-{
- m_lockTxFreq=b;
- ui->widePlot->m_lockTxFreq=b;
-}
-double WideGraph::getSlope()
-{
- return m_slope;
-}
-
-void WideGraph::setFreq2(int rxFreq, int txFreq)
-{
- m_rxFreq=rxFreq;
- m_txFreq=txFreq;
- emit setFreq3(rxFreq,txFreq);
-}
-
-void WideGraph::setDialFreq(double d)
-{
- m_dialFreq=d;
- ui->widePlot->setDialFreq(d);
-}
diff --git a/widegraph.h b/widegraph.h
deleted file mode 100644
index 194998d..0000000
--- a/widegraph.h
+++ /dev/null
@@ -1,89 +0,0 @@
-#ifndef WIDEGRAPH_H
-#define WIDEGRAPH_H
-#include <QDialog>
-
-namespace Ui {
- class WideGraph;
-}
-
-class WideGraph : public QDialog
-{
- Q_OBJECT
-
-public:
- explicit WideGraph(QWidget *parent = 0);
- ~WideGraph();
-
- void dataSink2(float s[], float df3, int ihsym, int ndiskdata);
- void setRxFreq(int n);
- int rxFreq();
- int nSpan();
- int nStartFreq();
- int getFmin();
- int getFmax();
- float fSpan();
- void saveSettings();
- void setRxRange(int fMin);
- void setFmin(int n);
- void setPalette(QString palette);
- void setFsample(int n);
- void setPeriod(int ntrperiod, int nsps);
- void setTxFreq(int n);
- void setMode(QString mode);
- void setModeTx(QString modeTx);
- void setSlope(double d);
- void setLockTxFreq(bool b);
- double getSlope();
- double fGreen();
-
- qint32 m_rxFreq;
- qint32 m_txFreq;
-
-signals:
- void freezeDecode2(int n);
- void f11f12(int n);
- void setXIT2(int n);
- void setFreq3(int rxFreq, int txFreq);
-
-public slots:
- void wideFreezeDecode(int n);
- void setFreq2(int rxFreq, int txFreq);
- void setDialFreq(double d);
-
-protected:
- virtual void keyPressEvent( QKeyEvent *e );
-
-private slots:
- void on_waterfallAvgSpinBox_valueChanged(int arg1);
- void on_freqSpanSpinBox_valueChanged(int arg1);
- void on_zeroSpinBox_valueChanged(int arg1);
- void on_gainSpinBox_valueChanged(int arg1);
- void on_spec2dComboBox_currentIndexChanged(const QString &arg1);
- void on_fMinSpinBox_valueChanged(int n);
- void on_slopeSpinBox_valueChanged(double d);
-
-private:
- double m_slope;
- double m_dialFreq;
-
- qint32 m_waterfallAvg;
- qint32 m_fSample;
- qint32 m_TRperiod;
- qint32 m_nsps;
- qint32 m_ntr0;
- qint32 m_fMin;
- qint32 m_fMax;
-
- bool m_lockTxFreq;
-
- QString m_mode;
- QString m_modeTx;
-
- Ui::WideGraph *ui;
-};
-
-#ifdef WIN32
-extern int set570(double freq_MHz);
-#endif
-
-#endif // WIDEGRAPH_H
diff --git a/widegraph.ui b/widegraph.ui
deleted file mode 100644
index 42faba8..0000000
--- a/widegraph.ui
+++ /dev/null
@@ -1,398 +0,0 @@
-<?xml version="1.0" encoding="UTF-8"?>
-<ui version="4.0">
- <class>WideGraph</class>
- <widget class="QDialog" name="WideGraph">
- <property name="geometry">
- <rect>
- <x>0</x>
- <y>0</y>
- <width>799</width>
- <height>326</height>
- </rect>
- </property>
- <property name="sizePolicy">
- <sizepolicy hsizetype="Preferred" vsizetype="Preferred">
- <horstretch>0</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="windowTitle">
- <string>Dialog</string>
- </property>
- <layout class="QVBoxLayout" name="verticalLayout_2">
- <item>
- <layout class="QVBoxLayout" name="verticalLayout">
- <item>
- <widget class="CPlotter" name="widePlot">
- <property name="enabled">
- <bool>true</bool>
- </property>
- <property name="sizePolicy">
- <sizepolicy hsizetype="Expanding" vsizetype="Expanding">
- <horstretch>0</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="minimumSize">
- <size>
- <width>400</width>
- <height>100</height>
- </size>
- </property>
- <property name="frameShape">
- <enum>QFrame::StyledPanel</enum>
- </property>
- <property name="frameShadow">
- <enum>QFrame::Sunken</enum>
- </property>
- <property name="lineWidth">
- <number>1</number>
- </property>
- </widget>
- </item>
- <item>
- <layout class="QHBoxLayout" name="horizontalLayout_3">
- <property name="spacing">
- <number>0</number>
- </property>
- <item>
- <spacer name="horizontalSpacer_4">
- <property name="orientation">
- <enum>Qt::Horizontal</enum>
- </property>
- <property name="sizeHint" stdset="0">
- <size>
- <width>20</width>
- <height>20</height>
- </size>
- </property>
- </spacer>
- </item>
- <item>
- <widget class="QSpinBox" name="freqSpanSpinBox">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Fixed" vsizetype="Fixed">
- <horstretch>0</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="minimumSize">
- <size>
- <width>110</width>
- <height>0</height>
- </size>
- </property>
- <property name="maximumSize">
- <size>
- <width>38</width>
- <height>16777215</height>
- </size>
- </property>
- <property name="toolTip">
- <string>Compression factor for frequency scale</string>
- </property>
- <property name="suffix">
- <string/>
- </property>
- <property name="prefix">
- <string>Bins/Pixel </string>
- </property>
- <property name="minimum">
- <number>1</number>
- </property>
- <property name="maximum">
- <number>1000</number>
- </property>
- <property name="singleStep">
- <number>1</number>
- </property>
- <property name="value">
- <number>2</number>
- </property>
- </widget>
- </item>
- <item>
- <spacer name="horizontalSpacer_6">
- <property name="orientation">
- <enum>Qt::Horizontal</enum>
- </property>
- <property name="sizeType">
- <enum>QSizePolicy::Minimum</enum>
- </property>
- <property name="sizeHint" stdset="0">
- <size>
- <width>8</width>
- <height>20</height>
- </size>
- </property>
- </spacer>
- </item>
- <item>
- <widget class="QSpinBox" name="waterfallAvgSpinBox">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Fixed" vsizetype="Fixed">
- <horstretch>0</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="minimumSize">
- <size>
- <width>80</width>
- <height>0</height>
- </size>
- </property>
- <property name="maximumSize">
- <size>
- <width>38</width>
- <height>16777215</height>
- </size>
- </property>
- <property name="toolTip">
- <string>Number of FFTs averaged (controls waterfall scrolling rate)</string>
- </property>
- <property name="prefix">
- <string>N Avg </string>
- </property>
- <property name="minimum">
- <number>1</number>
- </property>
- <property name="maximum">
- <number>20</number>
- </property>
- </widget>
- </item>
- <item>
- <spacer name="horizontalSpacer_2">
- <property name="orientation">
- <enum>Qt::Horizontal</enum>
- </property>
- <property name="sizeType">
- <enum>QSizePolicy::Minimum</enum>
- </property>
- <property name="sizeHint" stdset="0">
- <size>
- <width>8</width>
- <height>20</height>
- </size>
- </property>
- </spacer>
- </item>
- <item>
- <widget class="QSpinBox" name="gainSpinBox">
- <property name="minimumSize">
- <size>
- <width>80</width>
- <height>0</height>
- </size>
- </property>
- <property name="maximumSize">
- <size>
- <width>38</width>
- <height>16777215</height>
- </size>
- </property>
- <property name="toolTip">
- <string>Scaling (dB) applied to spectra before plotting</string>
- </property>
- <property name="prefix">
- <string>Gain </string>
- </property>
- <property name="minimum">
- <number>-20</number>
- </property>
- <property name="maximum">
- <number>20</number>
- </property>
- </widget>
- </item>
- <item>
- <spacer name="horizontalSpacer_7">
- <property name="orientation">
- <enum>Qt::Horizontal</enum>
- </property>
- <property name="sizeType">
- <enum>QSizePolicy::Minimum</enum>
- </property>
- <property name="sizeHint" stdset="0">
- <size>
- <width>8</width>
- <height>20</height>
- </size>
- </property>
- </spacer>
- </item>
- <item>
- <widget class="QSpinBox" name="zeroSpinBox">
- <property name="minimumSize">
- <size>
- <width>80</width>
- <height>0</height>
- </size>
- </property>
- <property name="maximumSize">
- <size>
- <width>38</width>
- <height>16777215</height>
- </size>
- </property>
- <property name="toolTip">
- <string>Constant offset applied to waterfall data</string>
- </property>
- <property name="suffix">
- <string/>
- </property>
- <property name="prefix">
- <string>Zero </string>
- </property>
- <property name="minimum">
- <number>-100</number>
- </property>
- <property name="maximum">
- <number>100</number>
- </property>
- </widget>
- </item>
- <item>
- <widget class="QDoubleSpinBox" name="slopeSpinBox">
- <property name="minimumSize">
- <size>
- <width>60</width>
- <height>0</height>
- </size>
- </property>
- <property name="prefix">
- <string>Slope </string>
- </property>
- <property name="decimals">
- <number>1</number>
- </property>
- <property name="minimum">
- <double>-2.000000000000000</double>
- </property>
- <property name="maximum">
- <double>2.000000000000000</double>
- </property>
- <property name="singleStep">
- <double>0.100000000000000</double>
- </property>
- </widget>
- </item>
- <item>
- <spacer name="horizontalSpacer">
- <property name="orientation">
- <enum>Qt::Horizontal</enum>
- </property>
- <property name="sizeType">
- <enum>QSizePolicy::Minimum</enum>
- </property>
- <property name="sizeHint" stdset="0">
- <size>
- <width>8</width>
- <height>20</height>
- </size>
- </property>
- </spacer>
- </item>
- <item>
- <widget class="QSpinBox" name="fMinSpinBox">
- <property name="sizePolicy">
- <sizepolicy hsizetype="Fixed" vsizetype="Fixed">
- <horstretch>0</horstretch>
- <verstretch>0</verstretch>
- </sizepolicy>
- </property>
- <property name="minimumSize">
- <size>
- <width>110</width>
- <height>0</height>
- </size>
- </property>
- <property name="toolTip">
- <string>Decode JT65 below this frequency, JT9 above</string>
- </property>
- <property name="suffix">
- <string> JT9</string>
- </property>
- <property name="prefix">
- <string>JT65 </string>
- </property>
- <property name="minimum">
- <number>0</number>
- </property>
- <property name="maximum">
- <number>5000</number>
- </property>
- <property name="singleStep">
- <number>100</number>
- </property>
- <property name="value">
- <number>3000</number>
- </property>
- </widget>
- </item>
- <item>
- <spacer name="horizontalSpacer_8">
- <property name="orientation">
- <enum>Qt::Horizontal</enum>
- </property>
- <property name="sizeType">
- <enum>QSizePolicy::Minimum</enum>
- </property>
- <property name="sizeHint" stdset="0">
- <size>
- <width>8</width>
- <height>20</height>
- </size>
- </property>
- </spacer>
- </item>
- <item>
- <widget class="QComboBox" name="spec2dComboBox">
- <property name="toolTip">
- <string>Select data for display curve</string>
- </property>
- <property name="currentIndex">
- <number>1</number>
- </property>
- <item>
- <property name="text">
- <string>Current</string>
- </property>
- </item>
- <item>
- <property name="text">
- <string>Cumulative</string>
- </property>
- </item>
- </widget>
- </item>
- <item>
- <spacer name="horizontalSpacer_3">
- <property name="orientation">
- <enum>Qt::Horizontal</enum>
- </property>
- <property name="sizeHint" stdset="0">
- <size>
- <width>20</width>
- <height>20</height>
- </size>
- </property>
- </spacer>
- </item>
- </layout>
- </item>
- </layout>
- </item>
- </layout>
- </widget>
- <customwidgets>
- <customwidget>
- <class>CPlotter</class>
- <extends>QFrame</extends>
- <header>plotter.h</header>
- <container>1</container>
- </customwidget>
- </customwidgets>
- <resources/>
- <connections/>
-</ui>
diff --git a/wsjt.ico b/wsjt.ico
deleted file mode 100644
index 8a55550..0000000
Binary files a/wsjt.ico and /dev/null differ
diff --git a/wsjtx.iss b/wsjtx.iss
deleted file mode 100644
index 8d550fa..0000000
--- a/wsjtx.iss
+++ /dev/null
@@ -1,23 +0,0 @@
-[Setup]
-AppName=wsjtx
-AppVerName=wsjtx Version 1.1.0 r3488
-AppCopyright=Copyright (C) 2001-2013 by Joe Taylor, K1JT
-DefaultDirName=c:\wsjtx2
-DefaultGroupName=wsjtx2
-
-[Files]
-Source: "c:\Users\joe\wsjt\wsjtx_install\*.exe"; DestDir: "{app}"
-Source: "c:\Users\joe\wsjt\wsjtx_install\*.dll"; DestDir: "{app}";
-Source: "c:\Users\joe\wsjt\wsjtx_install\*.dat"; DestDir: "{app}";
-Source: "c:\Users\joe\wsjt\wsjtx_install\wsjt.ico"; DestDir: "{app}";
-Source: "c:\Users\joe\wsjt\wsjtx_install\CALL3.TXT"; DestDir: "{app}"; Flags: onlyifdoesntexist
-Source: "c:\Users\joe\wsjt\wsjtx\shortcuts.txt"; DestDir: "{app}"
-Source: "c:\Users\joe\wsjt\wsjtx\mouse_commands.txt"; DestDir: "{app}"
-Source: "c:\Users\joe\wsjt\wsjtx\WSJT-X_Users_Guide_v1.1.pdf"; DestDir: "{app}"
-Source: "c:\Users\joe\wsjt\wsjtx_install\save\Samples\130418_1742.wav"; DestDir: "{app}\save\Samples";
-Source: "c:\Users\joe\wsjt\wsjtx_install\save\Samples\130610_2343.wav"; DestDir: "{app}\save\Samples";
-
-[Icons]
-Name: "{group}\wsjtx2"; Filename: "{app}\wsjtx.exe"; WorkingDir: {app}; IconFilename: {app}\wsjt.ico
-Name: "{userdesktop}\wsjtx2"; Filename: "{app}\wsjtx.exe"; WorkingDir: {app}; IconFilename: {app}\wsjt.ico
-
diff --git a/wsjtx.pro b/wsjtx.pro
deleted file mode 100644
index 92270a5..0000000
--- a/wsjtx.pro
+++ /dev/null
@@ -1,81 +0,0 @@
-#-------------------------------------------------
-#
-# Project created by QtCreator 2011-07-07T08:39:24
-#
-#-------------------------------------------------
-
-QT += core gui network
-greaterThan(QT_MAJOR_VERSION, 4): QT += widgets
-CONFIG += thread
-#CONFIG += console
-
-TARGET = wsjtx
-DESTDIR = ../wsjtx_install
-VERSION = 1.1
-TEMPLATE = app
-DEFINES = QT4
-
-win32 {
-DEFINES += WIN32
-F90 = g95
-g95.output = ${QMAKE_FILE_BASE}.o
-g95.commands = $$F90 -c -O2 -o ${QMAKE_FILE_OUT} ${QMAKE_FILE_NAME}
-g95.input = F90_SOURCES
-QMAKE_EXTRA_COMPILERS += g95
-}
-
-unix {
-DEFINES += UNIX
-F90 = gfortran
-gfortran.output = ${QMAKE_FILE_BASE}.o
-gfortran.commands = $$F90 -c -O2 -o ${QMAKE_FILE_OUT} ${QMAKE_FILE_NAME}
-gfortran.input = F90_SOURCES
-QMAKE_EXTRA_COMPILERS += gfortran
-}
-
-SOURCES += main.cpp mainwindow.cpp plotter.cpp about.cpp \
- soundin.cpp soundout.cpp devsetup.cpp widegraph.cpp \
- getfile.cpp displaytext.cpp getdev.cpp logqso.cpp \
- psk_reporter.cpp rigclass.cpp \
- signalmeter.cpp \
- meterwidget.cpp
-
-win32 {
-SOURCES += killbyname.cpp
-}
-
-HEADERS += mainwindow.h plotter.h soundin.h soundout.h \
- about.h devsetup.h widegraph.h getfile.h \
- commons.h sleep.h displaytext.h logqso.h \
- psk_reporter.h rigclass.h \
- signalmeter.h \
- meterwidget.h
-
-# (Is the following really needed???)
-#DEFINES += __cplusplus
-
-FORMS += mainwindow.ui about.ui devsetup.ui widegraph.ui \
- logqso.ui
-
-RC_FILE = wsjtx.rc
-
-unix {
-LIBS += ../wsjtx/lib/libjt9.a
-LIBS += -lhamlib
-LIBS += -lportaudio -lgfortran -lfftw3f
-}
-
-win32 {
-INCLUDEPATH += ../../hamlib-1.2.15.3/include
-LIBS += ../../hamlib-1.2.15.3/src/.libs/libhamlib.dll.a
-#LIBS += ../../hamlib-1.2.15.3/lib/gcc/libhamlib.dll.a
-LIBS += ../wsjtx/lib/libjt9.a
-LIBS += ../wsjtx/libfftw3f_win.a
-LIBS += ../wsjtx/libpskreporter.a
-LIBS += ../wsjtx/libHRDInterface001.a
-#LIBS += ../QtSupport/palir-02.dll
-LIBS += /users/joe/wsjt/QtSupport/palir-02.dll
-LIBS += libwsock32
-LIBS += C:/MinGW/lib/libf95.a
-
-}
diff --git a/wsjtx.rc b/wsjtx.rc
deleted file mode 100644
index 9a0de81..0000000
--- a/wsjtx.rc
+++ /dev/null
@@ -1 +0,0 @@
-IDI_ICON1 ICON DISCARDABLE "wsjt.ico"
diff --git a/wsjtx_changelog.txt b/wsjtx_changelog.txt
deleted file mode 100644
index ea05cf7..0000000
--- a/wsjtx_changelog.txt
+++ /dev/null
@@ -1,791 +0,0 @@
- WSJT-X ChangeLog
-------------------------------------------------------------------
-
-May 30, 2013: Version 1.0, r3323
---------------------------------
-
-With this release of WSJT-X Version 1.0 we include a few (relatively
-minor) enhancements in response to user requests, as well as some
-program polishing and cleanup. Active program development will
-continue, but new releases will become less frequent.
-
-1. New option on the Setup menu: "Tx freq locked to Rx freq".
-
-2. Double-click on a decoded "73" message now sets Tx5, rather than Tx6.
-
-3. New keyboard shortcuts: Alt+1 through Alt+6 set the next Tx message
- at the corresponding number.
-
-4. PTT control via Ham Radio Deluxe has been imnplemented and tested.
-
-5. "Tool Tips" are now provided for most on-screen controls.
-
-6. Under Linux and OS X, listings of available audio devices and APIs
- have been corrected.
-
-7. Tab order among GUI controls has been cleaned up.
-
-8. Updates to the WSJT-X User's Guide.
-
-
-May 22, 2013: v0.99, r3297
---------------------------
-
-1. CAT control via Ham Radio Deluxe is now available. For setup
- details see item #5 at the top of page 6 of the updated WSJT-X
- User's Guide.
-
-2. Submodes JT9-5, JT8-10, JT9-30 have been de-activated. (As far as I
- know, nobody was using them.) This action makes the program smaller
- by some 150 MB and able to run effectively on some older computers.
-
-3. Bizarre ordering of COM port numbers on the drop-down list has been
- corrected, and suitable serial ports added to the list displayed in
- Linux.
-
-4. Gray bar between decoding periods now contains a dashed line.
-
-5. Corrected a bug that prevented use of Setup | Configuration with
- no existing wsjtx.ini file.
-
-May 17, 2013: v0.95, r3278
---------------------------
-1. Double-clicking on a decoded text line in "Band Activity" window
- now copies the line into the "QSO Frequency" window if it was not
- already there.
-
-2. Option "Color highlighting in left window" removed from Setup
- menu. Highlighting is now always done.
-
-3. Positions of "QSO Frequency" and "Band Activity" windows have been
- swapped.
-
-4. F4 was restored to its previous use; F5 is now used to display
- Special Mouse Commands
-
-5. Small square between Band selector and Frequency readout was made
- a control button. Orange indicates one-way CAT control from
- program to radio, red indicates bi-directional control. Clicking
- the orange button causes a one-time readout of dial frequency.
-
-6. If Save=None, the last recorded file is deleted on program exit.
- This prevents unwanted accumulation of files in the Save
- directory.
-
-7. Status-bar messages were re-arranged in a more logical order.
-
-8. Tx signal report was added to wsjtx_status.txt (for JT-Alert)
-
-9. More informative labels were placed on the "Tab 2" GUI controls.
-
-10. Better default scaling for the "Cumulative" spectrum.
-
-11. New algorithm for identifying JT9 signals to send to decoder,
- resulting major improvements in decoder speed.
-
-12. Bug fixes:
- - Incorrect displayed frequencies for JT9-2 signals
- - Infinitely repeated "Error rigOpen -1" messages
- - User tries to open CAT control using busy or nonexistent serial port
-
-13. Many updates to the User's Guide
-
-
-May 2, 2013: v0.95, r3251
--------------------------
-
-1. The "band change" function is executed whenever the Band combobox
- is activated, even if the selected band has not changed.
-
-2. The program does not set rig mode. That task is left to the user.
-
-3. Time interval for polling rig frequency is now a user parameter on
- the setup screen. I set mine to 1 second, which works fine with
- the Kenwood TS-2000. Set it to 0 if you want no polling for
- frequency (which means unidirectional CAT control from program to
- radio). Choose something like 10 s for the K3.
-
-4. Much new work on the WSJT-X User's Guide, which is approaching its
- final form for Version 1.0. Please read it and tell us about
- anything you find unclear or missing!
-
-These changes address nearly all of the CAT issues found by a few
-users -- those with K3, IC-746, IC-706, in particular.
-
-One additional piece of advice when running WSJT-X in Windows: connect
-and turn on the radio and any interface equipment before starting
-WSJT-X, and exit the program before turning such equipment off.
-
-April 29, 2013: v0.95, r3243
-----------------------------
-
-1. Now has bi-directionsl CAT control using direct calls to hamlib
- functions. Highlights displayed dial frequency with red background
- if frequency differs from nominal for the selected band by more
- than 100 kHz. (Is there a more useful or logical condition to
- flag?) Small red square between Band selector and Dial Frequency
- display to indicate that CAT control is active. Mode is set to USB
- on startup. (Note: CAT control diagnostics are presently rather
- rudimentary, we're still working on this. Feedback is welcome!)
-
-2. New controls on Setup | Configuration screen:
- - RTS/DTR OFF -- needed by K2 and maybe other radios
- - Data / Mic -- select CAT-control PTT type
- - Test CAT Control -- try settings before returning to main screen
- - Test PTT -- try settings for toggling PTT On/Off
-
-3. Help menu now provides displays of Keyboard Shortcuts (quick access
- via F3) and Special Mouse Commands (F4).
-
-4. Option "Setup | Advanced | Allow multiple instances" enables the
- use of more than one instance of WSJT-X for special applications.
- (The program must be copied into and run from different
- directories.)
-
-5. No posts to PSK Reporter if band was changed during the reception
- period.
-
-6. Improved behavior of Tune button.
-
-7. Improved inter-process communication between WSJT-X and JT-Alert-X.
-
-8. Better interaction between "Report" spinner control and Tx messages.
-
-9. Removed the NB checkbox and slider. (Has anyone found these useful?)
-
-10. New buttons on main window: "Tx=Rx" sets Tx frequency to current
- Rx frequency; "Rx=Tx" does the opposite.
-
-11. Log QSO confirmation window is now "non-modal": you can keep it
- open and still access controls on the main window.
-
-12. Tab-order has been rationalized on most screens.
-
-13. Dial frequency and mode written to file ALL.TXT.
-
-14. Double-click on decoded line sets Tx message #3 if message has
- the form "MyCall Call2 rpt".
-
-15. Bug causing occasional, seemingly unpredictable program crashes
- has been fixed.
-
-16. The WSJT-X User's Guide is somewhat closer to being complete. User
- feedback on the Guide will be most welcome. What is unclear? What
- is missing?
-
-April 17, 2013: v0.9, r3195
----------------------------
-1. Sorry, the CAT control changes in r3187/3188 were a dismal failure
-in many stations, and they introduced other bugs as well. This revision
-goes back to uni-directional CAT control: the program can set the
-radio's dial frequency and do T/R switching, but that's all. The band
-setting is not reset on program startup.
-
-2. Logic for the Tune button has been corrected.
-
-3. For Linux compile-it-yourself enthusiasts: the interface to
-PSK Reporter is now working undel Linux.
-
-April 16, 2013: v0.9, r3188
----------------------------
-
-1. CAT control now reads and follows changes in radio's dial
-frequency. Readout gets red highlighting if radio is on wrong band.
-On program restart, band is reset to the last selected band.
-
-2. New "Tune" button generates an unmodulated carrier. Toggle button
-a second time to turn Tx off.
-
-3. Added labels at top of "Tab 2" and enlarged the text entry fields.
-
-4. Fixed the broken logic for "Runaway Tx watchdog".
-
-5. Fixed "Prompt me to log QSO" so that it no longer requires also
-setting "ID after 73".
-
-6. Additional changes of (eventual) interest to Linux users. Code for
-sending spots to PSK Reporter now in place.
-
-April 13, 2013: v0.9, r3166
----------------------------
-1. Option to send Tx messages (highlighted in yellow) to the QSO window.
-
-2. Prevent starting a transmission more than 24 sec into a Tx period.
-
-3. "Setup | Options" changed to "Setup | Configuration".
-
-4. Type Alt-V to save the most recently completed Rx file.
-
-5. Fixed bug that truncated Rx messages to 16 characters.
-
-6. Internal program changes that should provide better user diagnostics
-when necessary at program startup.
-
-April 11, 2013: v0.9, r3157
----------------------------
-1. Maximum size of several window areas increased to accommodate system
-fonts set larger than default.
-
-2. New behavior of Erase button: click once to erase the left (QSO) window,
-twice to erase both decoded text windows.
-
-3. Keyboard shortcuts:
- Alt-D: decode again at QSO frequency (same as clicking the Decode() button)
- Shift-D: do another full decode in both windows
- Alt-E: Erase()
- Ctrl-F: Edit the free text message box
- Alt-H: Halt Tx()
- Alt M: Monitor()
- Alt-N: Enable Tx()
- Alt-Q: Log QSO()
- Alt-S: Stop()
-
-4. New Setup options: "Tx disabled after sending 73" and "Runaway Tx
-watchdog".
-
-5. Fixed bug in saving the "report received" for logging purposes.
-
-6. Corrected the logic for "Runaway Tx watchdog".
-
-7. Fixed bug that truncated characters 17 and 18 of decoded messages.
-
-April 10, 2013: v0.9, r3151
----------------------------
-1. Blank line between decoding periods is now in the right-hand
-text window, where it should be.
-2. Decoding range defined by fMin and fMax is now enforced.
-
-April 9, 2013: v0.9, r3143
---------------------------
-This minor release restores the decoding speed of earlier revisions
-and corrects a bug that prevented sending CW ID.
-
-April 9, 2013: v0.9, r3142
---------------------------
-
-This version of WSJT-X has a number of significant changes. Please
-read the following notes carefully. Also -- even if you are already
-familiar with WSJT-X -- be sure to read the updated WSJT-X User's
-Guide at
-http://www.physics.princeton.edu/pulsar/K1JT/WSJT-X_Users_Guide.pdf ,
-especially pages 3 and 4.
-
-Changes since v0.8 r3118 include the following:
-
-1. There are now two scrolling windows for decoded text. The left
-window contains decodes only from close to the designated QSO
-frequency. The right window includes signals over the full decoding
-range.
-
-2. An alternative set of controls is now available for generating and
-selecting Tx messages. Some may find these more convenient to use
-than the Tx1 through Tx6 message boxes.
-
-3. A number of new user options are available on the Setup menu:
- - Blank line between decoding periods (right window only)
- - Clear DX Call and DX Grid after logging QSO
- - Display distances in miles
- - Runaway Tx watchdog
- - Background colors for left window
- - Double-click on decoded message sets Tx Enable
-
-4. New or changed on-screen features
- - "Tol" replaced by fMin and fMax on waterfall screen (see User's Guide)
- - Spinner control for signal report
- - On waterfall scale: green marker for Rx freq, red for Tx. blue
- for decoding range
-
-5. New behavior
- - "CQ DX" is now treated properly when decoded line is double-clicked
- - Message formate for compound callsigns (e.g., PJ4/K1ABC, G4XYZ/P)
- are now handled correctly. (Some restrictions apply, and will
- be spelled out in the completed User's Guide.)
- - Decode button now causes a decode only at the specified Rx frequency.
- - Click on waterfall spectrum sets Rx freq; double-click also invokes
- decoder (as though Decode button had been clicked). CTRL-click moves
- both Rx and Tx freqs.
- - Amplitude at end of transmission is ramped down to prevent a final
- key click.
-
-6. The following bugs have been fixed:
- - Logic error in decoder
- - Certain non-standard Tx messages could cause a program crash.
- - Certain (rarely used) messages did not pack/unpack correctly
-
-April 2, 2013: v0.8, r3118
---------------------------
-1. Improved interface to program JT-Alert, by VK3AMA.
-
-2. The LogQSO confirmation dialog no longer blocks the GUI updating
- process.
-
-3. A blank line with gray background separates the decoded text lines for
- each new invocation of the decoder.
-
-4. New suggested default frequencies: 5.357, 18.104, and 24.918 MHz.
- Be sure to edit these entries on the 'Default Frequencies' tab of the
- Setup screen. (When you have done this once, the new values will be
- remembered.)
-
-5. The LogQSO button now does nothing is the 'DX call' entry field is
- blank.
-
-6. Several minor bugs were fixed.
-
-
-March 27, 2013: v0.8, r3113
----------------------------
-1. Bug fix: VOX control of T/R switching now works.
-
-2. Potentially useful error messages now appear when CAT control
- has failed.
-
-3. Added an instruction on the Log QSO confirmation screen.
-
-4. Clear the DXcall and DXgrid entries after logging a QSO.
-
-March 26, 2013: v0.8, r3112
----------------------------
-
-Edson Pereira, PY2SDR, recently became an active contributor to this
-open-source project. Edson and I have been very busy over the past
-few days! WSJT-X revision 3112 has many changes and new features.
-
-1. The GUI layout has been adjusted and optimized.
-
-2. CAT control is now operational, offering optional control of your
- radio's dial frequency and T/R status. Go to the Setup | Options
- window to select the necessary parameters.
-
-3. CW ID has been implemented. You can have your ID sent after a fixed
- time interval, or automatically when you transmit a "73" or free
- text message.
-
-4. Default dial frequencies are available for each band on a new tab
- on the Setup | Options window. Please note: some of these
- frequencies are probably wrong! You can edit them as needed.
- (Please let us know if the original values are inconsistent with
- actual practice on any band.)
-
-5. Several new options appear on the Setup menu. Try them!
-
-6. Azimuth and Distance information is displayed whenever a valid grid
- locator appears in the "Dx Grid" box.
-
-7. The decoder has again been adjusted for better compromise between
- sensitivity and decoding time.
-
-8. The User's Guide is out of date, and needs work. We hope to get to
- that task soon.
-
-9. Very important for some would-be users: WSJT-X now runs properly
- under Linux. We haven't made a package yet, so for now you must
- compile your own. If you don't know how, we hope to be set up
- to make packages before too long.
-
-10. If you know someone who might be interested in contributing to the
- development of WSJT-X and related projects, please send him/her
- our way! We're especially looking for someone interested in
- producing packaged Linux distributions -- for example, *.deb or
- *.rpm packages, but other programming help is also wanted.
-
-As always: please report bugs, and don't be bashful about sending us
-your feature requests!
-
-March 22, 2013: v0.7, r3071
----------------------------
-1. Correct a bug that (still) allowed display of previous decodes
-when nothing new was decoded.
-
-2. Add a user confirmation screen activated when you click Log QSO.
-This lets you edit or add information before it is written to the
-ADIF file.
-
-3. Tx message macros and now available. Configure them on the Setup
-window. They are invoked as a pop-up menu by right-clicking on the
-Tx5 message window; then select the desired message by left-clicking
-on the desired message.
-
-March 20, 2013: v0.7, r3063
----------------------------
-1. Add Frequency to the generated ADIF records.
-
-2. Correct a decoder bug that led to duplication of previous output
-when nothing new was decoded.
-
-March 19, 2013: v0.7, r3061
----------------------------
-1. Allow Windows COM port numbers up to 99.
-
-2. Replace status files wsjtx_qrg.txt and wsjtx_txcall.txt with
-a single file, wsjtx_status.txt.
-
-3. Combine wsjtx_rx.log and wsjtx_tx.log into a single file ALL.TXT.
-
-4. "Log QSO" now writes a file in ADIF format.
-
-5. Starting to implement popup macros for Tx message #5.
-
-6. Big improvement in decoding speed.
-
-*** More changes to come! Please report any problems, especially
-*** with the ADIF-format log.
-
-March 12, 2013: v0.6, r3046
----------------------------
-1. Decoded calls can now be uploaded to the PSK Reporter web site.
-Check the box "Enable PSK Reporter" on the Setup screen, and go to
-http://pskreporter.info/pskmap.html to see the spots. Be sure to
-enter your "Dial Frequency (MHz)" at lower right of the Wide Graph
-window. (Rig control features are yet to come...)
-
-2. Added some interfaces to permit use with the program JT-Alert,
-by VK3AMA. Look for this capability in the near future.
-
-March 6, 2013: v0.5, r3038
---------------------------
-1. Selection of Current/Cumulative/JT9Sync for the 2d spectral display
-changed to a combobox.
-
-2. Double-click on decoded text does not change frequency settings
-if first decoded call is MyCall.
-
-March 1, 2013: v0.5, r3026
---------------------------
-1. The horizontal scale of 2d spectra (e.g., the "red curve") is now
-correct when the user has selected FFT Bins/Pixel > 1.
-
-2. Double-clicking on a decoded text line now selects the second
-callsign independent of exactly where one has clicked on the line.
-In addition, it sets the selected frequencies (both Tx and Rx) to
-the frequency of the decoded transmission.
-
-December 11, 2012: v0.5, r2791
-------------------------------
-1. Messages of the form "CQ DX K1ABC" are now supported.
-
-November 30, 2012: v0.5, r2788
-------------------------------
-1. A bug was introduced when support for positive signal reports was
-added. It could cause a program crash when certain free-text messages
-were composed for transmission. The bug has been fixed.
-
-2. In the slower JT9 sub-modes, the UTC listed on decoded text lines
-has been changed to the start time of the Rx sequence, rather than the
-time of the final minute.
-
-3. The waterfall's "Auto Zero" button had no function, and has been
-removed.
-
-4. In previous revisions the installer put a number of DLLs into
-the Windows system directory, normally C:\Windows\System32. This
-revision installs the DLLs to the WSJT-X installation directory.
-
-
-November 29, 2012: v0.5, r2786
-------------------------------
-1. In r2783, the companion program jt9.exe (started automatically when
-you start WSJT-X) was a CPU hog for no good reason. This was an
-oversight on my part, and the bug has been corrected.
-
-2. The program should now run correctly if installed in a directory
-whose name contains embedded spaces. (Under Vista and Win7, however,
-it's still not a good idea to install WSJT-X into C:\Program Files,
-because of restricted write permissions there.)
-
-3. In r2783 and earlier, stopping a transmission by toggling to "Auto
-OFF" would terminate Tx audio and release PTT almost simultaneously,
-possibly hot-switching your T/R relay(s). This has been corrected so
-that proper sequencing takes place.
-
-
-November 28, 2012: v0.5, r2783
-------------------------------
-This revision has an unusually large number of changes relative to the
-previous release, v0.4 r2746. These changes include:
-
-1. PTT control via COM ports COM10 and higher is enabled.
-
-2. Improved decoder performance: higher speed as well as better
-chances of success. Moderate amounts of frequency drift are detected
-and compensated. Computed S/N values are more reliable. Time offsets
-from -2.5 to +5 s are now supported, which makes JT9 usable for EME.
-(EME tests on 144 MHz have been successful, and performance on that
-propagation mode appears to be good.)
-
-3. Tx Frequency now tracks the selected QSO Frequency (unless you hold
-down the CTRL key when setting QSO Frequency via mouse-clicks or the
-F11/F12 keys).
-
-4. Decoded text containing "CQ " is highlighted with green background;
-text including "MyCall" is highlighted in red.
-
-5. In previous versions, signal reports were required to be in the
-range -30 to -01 dB. In v0.5 r2782 the range has been extended to -50
-to +49 dB. There is backward compatibility for the range -30 to -01,
-but reports in the range -50 to -31 and 0 to +49 will NOT be decoded
-correctly by previous program versions. It is important to upgrade!
-
-6. Items "Save Synced" and "Save Decoded" are now implemented.
-
-7. UTC Date, JT9 submode, and a parameter related to the decoding
-procedure are now included in file wsjtx_rx.log.
-
-8. Editing of Tx messages (in any of the six Tx message boxes) is
-complete when you hit "Tab" or "Return". The message is then parsed
-and converted to the form in which it will be displayed if decoding is
-successful. Free-text messages are trimmed to 13 characters and
-highlighted with a pink background.
-
-9. The most recent transmitted message is displayed in the right-most
-label on the status bar. This can be useful if you have lost track of
-where you were in a QSO.
-
-10. By default, the program now starts with Monitor ON. An option on
-the Setup menu allows you to select "Monitor OFF at startup".
-
-11. Better scaling is provided for the red "JT9 Sync" curve. Note
-that JT9 signals in the active sub-mode should appear in this plot as
-a bump of width equal to the total signal bandwidth, with a narrow and
-slightly higher bump at the left edge. The narrow bump is the
-frequency of the Sync tone, which is defined as the nominal frequency
-of the JT9 signal.
-
-12. Basic QSO information is now written to file wsjt.log when you
-click the "Log QSO" button.
-
-13. The WSJT-X User's Guide has been updated.
-
-14. Other known bugs have been fixed. There will probably be new
-ones! When you find one, or if you know of any old ones that have NOT
-been fixed, please send me email.
-
-Summary of Present Status
-----------------------------------------------------------------------
-I believe that WSJT-X is now a stable and very usable program. Many
-thousands of QSOs have been made with JT9-1, mostly at HF -- I have
-made nearly 100, myself. Also a number of QSOs have also been
-completed at MF, and successful tests have been made on 2m EME, etc.
-A number of QSOs have also been made with JT9-2.
-
-As far as I know the slower modes (JT9-5, JT9-10, and JT9-30) also
-work correctly. (Certainly they do in my laboratory test setup.)
-Most people will find these modes too slow for "everyday" use, and
-they require high frequency stability. It remains to be seen whether
-they will be widely used.
-
-An alternative approach to obtaining improved sensitivity would be to
-give the decoder an ability to average over several successive
-transmissions. For example, the average of five JT9-1 transmissions
-could reach a decoding threshold around -32 dB, only 2 dB worse than a
-single JT9-5 transmission. Because of QSB, the shorter transmissions
-may actually succeed in less total time. Stability requirements would
-be those of JT9-1, much less stringent than those of JT9-5.
-
-Program development is not finished, by any means. I will be grateful
-for your feedback on performance issues, as well as your "wish-list"
-of features to be added. As always, example recordings of files that
-you think should have decoded, but did not, will be much appreciated.
-
-November 16, 2012: v0.4, r2746
-------------------------------
-
-Changes from v0.4 r2731 include the following:
-
-1. Valid signal reports are now generated by double-clicking on a
-callsign in the decoded text window.
-
-2. Consecutive spaces in a Tx message are now collapsed into a single
-space.
-
-3. Decoding speed is much improved, especially when strong (possibly
-non-JT9) signals are present and "Tol" is set to a relatively large
-value.
-
-4. Scaling of the "JT9 Sync" plot (red curve) is more reasonable.
-
-5. Layout of widgets on the main window has been improved.
-
-6. Several minor bug fixes.
-
-November 14, 2012: v0.4, r2731
-------------------------------
-
-A number of known bugs have been fixed, and the JT9 decoder is
-significantly improved. Among other improvements, the program is now
-much less fussy about timing issues.
-
-November 6, 2012: v0.3, r2717
-------------------------------
-
-Changes from r2713 include the following:
-
-1. A bug in the decoder that led to erratic behavior (failed decodes)
-under certain conditions has been corrected. Decoding is now much
-more reliable.
-
-2. A valid algorithm is now used to calculate S/N values for received
-JT9 signals.
-
-3. The header format of recorded *.wav files has been corrected.
-These files will now play correctly in Windows programs that expect
-the standard header.
-
-November 6, 2012: v0.2, r2713
-------------------------------
-
-Changes from r2711 include the following:
-
-1. Updates to the Quick-Start User's Guide,
-http://www.physics.princeton.edu/pulsar/K1JT/WSJT-X_Users_Guide.pdf
-
-2. Double-click on waterfall now sets Tol to a reduced
-(mode-dependent) value.
-
-3. Tol is saved and restored on program restart.
-
-4. A "digital gain" slider was added next to the green-bar audio level
-indicator. With the slider at mid-range, the scale reads correctly in
-dB above the least significant bit of 16-bit audio data.
-
-5. There is now a test that rejects at least one type of data that is
-sufficiently corrupt to cause Eddie's best friend, the message
-"15P6715P67WCV".
-
-6. Several minor tweaks to improve decoder performance.
-
-7. The program now starts with Monitor OFF. You must click Monitor to
-start accepting audio. For some types of testing, this may be an
-advantage. This startup condition may be changed again, in the
-future.
-
-October 31, 2012: v0.2, r2711
------------------------------
-
-Three significant changes since r2706:
-
-1. Three options are now provided on the "Decode" menu, controlling
-the "depth" of the decoding process. For most purposes I suggest you
-should use "Normal", but feel free to experiment with the others.
-
-2. Decoding of multiple signals in one Rx interval has been improved.
-
-3. Handling of strong signals has been improved.
-
-October 309, 2012: v0.2, r2706
-------------------------------
-
-Changes since r2702 include the following:
-
-1. The problem with "ghost" signals is fixed.
-
-2. A problem causing very long decode times under certain
-circumstances has been fixed. Please note: decode times on any recent
-PC should no more than a few seconds!
-
-3. I have re-directed the program's fatal error messages so they will
-be sent to the command-prompt window from which you started the
-program. Please send me full reports on any such messages you observe,
-preferably with details on how to reproduce the problem.
-
-#########################################################################
-
-Some additional information ...
-
-1. Yes, the JT9 modes require good stability in all system
-oscillators. The present JT9 bdecoder does not attempt to track
-frequency drifts. Such capability will be added, however. We have
-been using digital modes for EME for nearly ten years now, at 144 MHz
-and higher. There are more than 1000 WSJT users on EME, using all
-kinds of rige. We have learned how to deal with reasonable rates of
-drift. Surely if we can do these things at VHF, we can do them much
-more easily at MF and LF.
-
-2. If you're sure that you have seen degraded JT9 performance because
-of frequency stability issues, don't just complain on the LF
-reflector. Document your case and send me an example file with a
-drifting JT9 signal. Making WSJT-X and JT9 better is partly YOUR
-responsibility!
-
-3. In other ways as well, test files are needed. I can make many
-tests myself, but I can't foresee all the problems others will have.
-That's what the "Save All" function is for! In these early tests,
-always run with "Save All" checked, just in case you will want to
-refer back to something that happened. You may want to send me the
-file in question. You can always clean out your "Save" directory by
-using "File | Delete all *.wav files in SaveDir". I need good
-examples of signals that fail to decode for any unknown reason. Also
-some good examples of atmospheric or other impulsive noise, for
-testing the noise blanker.
-
-4. I have added a page of "Hints for New Users" to the online WSJT-X
-User's Guide,
-http://www.physics.princeton.edu/pulsar/K1JT/WSJT-X_Users_Guide.pdf .
-Please read it! ... and let me know if you find other operational
-details of WSJT-X that need explanation. This will likely be
-especially true for those not already familiar with older versions of
-WSJT.
-
-5. An operational suggestion: In many ways the different JT9 submodes
-are treated as distinct modes. If you receive a JT9-x signal in a
-different submode than the one you have selected, you won't decode
-it. For this reason, if JT9 is to become popular we'll probably need
-to choose one or two of the submodes for general use, and perhaps
-assign a narrow slice of the band to each one. Note that "message
-averaging" in the Rx software can make two or three JT9-2
-transmissions as good as one JT9-5 transmission, with the advantage
-that you will copy sooner if signals are better than required for
-JT9-5. Message averaging is not yet present in the JT9 decoder... but
-in future it can be. Again, we have dealt with such issues very
-effectively on EME -- and can do so at MF/LF, for sure.
-
-6. On the topic of CW, Beacons, WSPR, JT9, etc. I really don't
-understand what all the fuss is about. Surely there is room for
-everybody? Maybe I'm just too new here to understand? (Mal, is this
-mostly just a matter of "Mal being Mal"???)
-
-On the HF bands, the WSPR sub-band is just 200 Hz wide. If we did the
-same on 630 m, the WSPR sub-band would take up less than 3% of the 7
-kHz band. If that's too much, we could cut it in half, or even less,
-and still have enough WSPR space. Moreover, a "slow WSPR", if
-warranted, would require even less bandwidth. Similar comments apply
-to JT9. The bandwidth of JT9 signals is significantly less than that
-of CW, for comparable information rates. There should be enough
-spectrum for both, even in our narrow MF and LF bands.
-
-7. As for performance comparisons between JT9 and WSPR: WSPR is a
-mature program, and its decoder has been optimized and tweaked over a
-period approaching five years. You are playing with JT9 in infancy.
-With help (as opposed to simple complaints) from users, it will
-improve rapidly.
-
-October 29, 2012: v0.2, r2702
------------------------------
-Changes since version 0.1, r2696 include the following:
-
-1. Sample rate for audio output has been changed from 12000 to 48000
-Hz. Tx audio may now be generated at any frequency from 500 to 20000
-Hz.
-
-2. The Decoder now tries to decode all synchronizable signals in the
-"green zone", that is, within "Tol" Hz of the selected QSO
-frequency. (Before, by default it decoded only the signal producing
-the highest "sync" value. Other signals could be decoded by manually
-setting the QSO frequency and reducing Tol as needed.)
-
-3. The user's selected QSO Frequency is now saved and restored on
-program restart.
-
-4. The problem with re-initialization after changing sub-modes has
-been fixed.
-
-5. The problem (for some users) of not releasing PTT after end of a
-transmission has been fixed.
-
-6. The program now writes a log of all decodes to a file wsjtx_rx.log
-in the wsjtx directory.
-
-
-October 25, 2012: v0.1, r2695
------------------------------
-Initial version of WSJT-X (experimental WSJT) released for testing.
diff --git a/wsjtx_opti.iss b/wsjtx_opti.iss
deleted file mode 100644
index 1fbfedc..0000000
--- a/wsjtx_opti.iss
+++ /dev/null
@@ -1,23 +0,0 @@
-[Setup]
-AppName=wsjtx
-AppVerName=wsjtx Version 1.1.0 r3478
-AppCopyright=Copyright (C) 2001-2013 by Joe Taylor, K1JT
-DefaultDirName=c:\wsjtx2
-DefaultGroupName=wsjtx2
-
-[Files]
-Source: "c:\Users\joe\wsjt\wsjtx_install\*.exe"; DestDir: "{app}"
-Source: "c:\Users\joe\wsjt\wsjtx_install\*.dll"; DestDir: "{app}";
-Source: "c:\Users\joe\wsjt\wsjtx_install\*.dat"; DestDir: "{app}";
-Source: "c:\Users\joe\wsjt\wsjtx_install\wsjt.ico"; DestDir: "{app}";
-Source: "c:\Users\joe\wsjt\wsjtx_install\CALL3.TXT"; DestDir: "{app}"; Flags: onlyifdoesntexist
-Source: "c:\Users\joe\wsjt\wsjtx\shortcuts.txt"; DestDir: "{app}"
-Source: "c:\Users\joe\wsjt\wsjtx\mouse_commands.txt"; DestDir: "{app}"
-Source: "c:\Users\joe\wsjt\wsjtx\WSJT-X_Users_Guide_v1.1.pdf"; DestDir: "{app}"
-Source: "c:\Users\joe\wsjt\wsjtx_install\save\Samples\130418_1742.wav"; DestDir: "{app}\save\Samples";
-Source: "c:\Users\joe\wsjt\wsjtx_install\save\Samples\130610_2343.wav"; DestDir: "{app}\save\Samples";
-
-[Icons]
-Name: "{group}\wsjtx2"; Filename: "{app}\wsjtx.exe"; WorkingDir: {app}; IconFilename: {app}\wsjt.ico
-Name: "{userdesktop}\wsjtx2"; Filename: "{app}\wsjtx.exe"; WorkingDir: {app}; IconFilename: {app}\wsjt.ico
-
--
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-hamradio/wsjtx.git
More information about the pkg-hamradio-commits
mailing list