Hi from W2IBC

Hello from W2IBC in Indiana. Don't know German but google translate is a help.

got to give a thanks to DL1HRC for the "Different Roger Beep's" mod. I do like that mod. Kinda wonder if it could be modified even more to give different courtesy tones for RX1 RX2 Echolink and NetRX

anyway hopefully I can get my svxlink working good again and find a spot for my repeater to get it back on air again, until then I get to play away on the bench local

73 de w2ibc

Hi and welcome to http://svxlink.de

Quote

Kinda wonder if it could be modified even more to give different courtesy tones for RX1 RX2 Echolink and NetRX

Yes there is a way to identify different Rx's and Network-Station but unfortunately not to distinguish Network-Stations (via LogicLinking) and EchoLink-stations (currently). The example changes the tone high depending of the RxID in this way: 440Hz + RXID * 120Hz,
- RX 0 -> 440Hz
- RX 1 -> 560Hz
- RX 2 -> 680 Hz
...

#
# different roger beeps:
# higher tones (440Hz + RXID * 120Hz ) - via RF
# lower tone (400Hz) - echolink/network
#


namespace eval Logic {


variable is_rf 0;


proc squelch_open {rx_id is_open} {
  variable sql_rx_id;
  variable is_rf;


  set sql_rx_id $rx_id;
  set tone [expr 440 + $rx_id * 120];


  if {!$is_open} {
    playSilence 100;
    playTone $tone 70 50;
    set is_rf 1;
  }
}


proc send_rgr_sound {} {
  variable is_rf;


  if {!$is_rf} {
    playTone 400 70 40;
    playSilence 100;
  }
  set is_rf 0;
 }
}


# end of namespace

Have fun, good luck

vy 73's de Adi, DL1HRC

Ah good deal. I actually use multi tones. to create different types of beeps.

my current config.

namespace eval Logic {


variable is_rf 0;


proc squelch_open {rx_id is_open} {
  variable sql_rx_id;
  variable is_rf;
  set sql_rx_id $rx_id;
  if {!$is_open} {
    playSilence 1000;
    playTone 1760 500 30;
    playSilence 30;
    playTone 1760 500 30;
    playSilence 30;
    playTone 1760 500 30;
    playSilence 100;
    set is_rf 1;
  }
}


proc send_rgr_sound {} {
 variable is_rf;
 if {!$is_rf} {
   CW::play "K"; 
 }
 set is_rf 0;
 }
}
# end of namespace

RF = nextel beep
Net = Morse K

I like having distinct sound :lol:

one strange thing I have noticed is /usr/share/svxlink/events.d/local
now the rogerbeep mod works. however my other mods don't for some reason.
got one file that should mute out the "do-do" tone as tx turns off.
"proc repeater_down {reason} {" in repeaterlogic.tcl

and proc is_receiving {rx} and proc squelch_open {is_open} in echolink.tcl (they both send a 1000hz tone for 100ms when sig drops out or in.)

Is there a certain naming you have to do in the event.d/local to make svxlink catch it? or am I stuck having to modify the main tcl and have to keep doing it on each new version?

Quote

however my other mods don't for some reason.
got one file that should mute out the "do-do" tone as tx turns off.

This is a section in the RepeaterLogic-namespace, the procedure is named repeater_down {reason}

The "do-do" is given out every time the repeater is going down between the normal prescribed identification cycle (as morse code oder voice announcements), in Germany every 10minutes.

Comment out a section inside this procedure like this:

if {$now-$Logic::prev_ident < $Logic::min_time_between_ident} {
#  playTone 400 90 50
#  playSilence 30
#  playTone 360 90 50
#  playSilence 200
    return;
}

Please keep in mind that you don't change the original files inside the /usr/share/svxlink/events.d-directory !
Remember the locale concept! Otherwise all made changes are lost when you conduct a "make install"!!

vy 73's de Adi, DL1HRC

yeah I had a files in /usr/share/*/*/local/ which houses the roger beep tcl. which works fine. but my other 2 mods in local didn't work.

/usr/share/svxlink/events.d/local/RepeaterDown.tcl

#
# Executed when the repeater is deactivated
#   reason  - The reason why the repeater was deactivated
#             IDLE         - The idle timeout occured
#             SQL_FLAP_SUP - Closed due to interference
#
proc repeater_down {reason} {
  global mycall;
  variable repeater_is_up;


  set repeater_is_up 0;


  if {$reason == "SQL_FLAP_SUP"} {
    playSilence 500;
    playMsg "Core" "interference";
    playSilence 500;
    return;
  }


  set now [clock seconds];
  if {$now-$Logic::prev_ident < $Logic::min_time_between_ident} {
#    playTone 400 900 50
#    playSilence 100
#    playTone 360 900 50
#    playSilence 500
    return;
  }
  set Logic::prev_ident $now;


  spellWord $mycall;
  playMsg "Core" "repeater";
  playSilence 250;


  #playMsg "../extra-sounds" "shutdown";
}


# end of namespace


#
# This file has not been truncated
#

is what I had, but good chance I was doing something wrong

Also I am using debian packages Felix Lechner has submitted to debian to be included in the repo. (repo installs are just so much nicer)

Ended up with pc issues. so i got to grab another machine and reinstall. hopefully can get this all going again.