Fix dB amplitude bug in TCL function CW::play

sm0svx · Feb 18, 2018 · 5008ece · 5008ece
1 parent 45a85cd
commit 5008ece
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/src/svxlink/svxlink/CW.tcl b/src/svxlink/svxlink/CW.tcl
@@ -167,7 +167,7 @@ proc loadDefaults {} {
 #   pitch - The CW pitch in Hz
 #   amp   - The CW amplitude in dBFS
 #
-proc play {txt {cpm 0} {pitch 0} {amp 0}} {
+proc play {txt {cpm 0} {pitch 0} {amp -1000000}} {
   variable short_len;
   variable long_len;
   variable char_spacing;
@@ -186,7 +186,7 @@ proc play {txt {cpm 0} {pitch 0} {amp 0}} {
     setPitch $pitch
     set load_defaults 1
   }
-  if {$amp > 0} {
+  if {$amp > -1000000} {
     setAmplitude $amp
     set load_defaults 1
   }

diff --git a/src/versions b/src/versions
@@ -8,7 +8,7 @@ LIBECHOLIB=1.3.3
 LIBASYNC=1.5.99.1
 
 # SvxLink versions
-SVXLINK=1.6.99.8
+SVXLINK=1.6.99.9
 MODULE_HELP=1.0.0
 MODULE_PARROT=1.1.1
 MODULE_ECHOLINK=1.4.99.0