Someone could / should write a short script that could accept your call sign as input, and output the call sign as the proper opening tones ...
GD77 OPENING TONES
Re: GD77 OPENING TONES
Re: GD77 OPENING TONES
Hi Mark.
viewtopic.php?f=10&t=1732
73 best regards de Fabio IZ2EIB
It is not exactly what you ask, however try to take a look here:
viewtopic.php?f=10&t=1732
73 best regards de Fabio IZ2EIB
Re: GD77 OPENING TONES
Nice job man !!!
Re: GD77 OPENING TONES
I would like to have the Formula one theme on my radio. Could somebody help me figure out how to do that?
Re: GD77 OPENING TONES
The note values are documented here.
https://github.com/LibreDMR/OpenGD77_Us ... -and-notes
You would need to find the notes of the speicifc melody you want to play as well as the note durations and use that data.
You could start with finding out the name of the "Formula One" theme, as the theme you hear in the USA may not be the same as played elsewhere in the world
I recall from a long time ago, that a section of the Fleetwood Mac song called "The Chain" was used, but this may not be the song played in the USA.
Once you have found the name of the song, you'll then need to find the notes.
Possibly search on YouTube for someone showing how its played on the piano, and they may tell you what the notes are.
Re: GD77 OPENING TONES
Hello. Why is it so hard to make we can modify start end rx/tx sound too? This would be a big step further for those radioa.
Re: GD77 OPENING TONES
On top of that you have to keep in mind (which seems to be hard to understand) that everything takes space. Any byte spent on this couldn't be used for that.
We are always trying to use the minimum space, counting bytes, otherwise one day we won't have anymore space to improve the firmware.
And franckly speaking, that kind of "feature" does not deserve much attention in regard of some others.
The hardcoded RX start/end beeps take between 8 to 12 bytes each, Leaving the choice to the user to define his own will take wayyyy more space in the end.
We are always trying to use the minimum space, counting bytes, otherwise one day we won't have anymore space to improve the firmware.
And franckly speaking, that kind of "feature" does not deserve much attention in regard of some others.
The hardcoded RX start/end beeps take between 8 to 12 bytes each, Leaving the choice to the user to define his own will take wayyyy more space in the end.
Re: GD77 OPENING TONES
Here's a Q&D script that accepts your callsign and generates morse code and the tone string.
Usage (on the command line):
x@ $ perl callsign_to_morse.pl LZ1PYK
Callsign: LZ1PYK
In morse: .-.. --.. .---- .--. -.-- -.-
Opengd77 tone: 38,2,0,2,38,6,0,2,38,2,0,2,38,2,0,2,0,6,38,6,0,2,38,6,0,2,38,2,0,2,38,2,0,2,0,6,38,2,0,2,38,6,0,2,38,6,0,2,38,6,0,2,38,6,0,2,0,6,38,2,0,2,38,6,0,2,38,6,0,2,38,2,0,2,0,6,38,6,0,2,38,2,0,2,38,6,0,2,38,6,0,2,0,6,38,6,0,2,38,2,0,2,38,6,0,2,0,6
Since no text attachments are accepted, you'll have to copy-paste the code below into a file (e.g. callsign_to_morse.pl), save it, and run it with perl.
Code: Select all
use strict;
# morse code list
# the list is from https://medium.com/the-devs-tech/lets-create-morse-code-using-perl-22b6b832303
my %letters;# First digits
$letters{'0'} = '-----';
$letters{'1'} = '.----';
$letters{'2'} = '..---';
$letters{'3'} = '...--';
$letters{'4'} = '....-';
$letters{'5'} = '....';
$letters{'6'} = '-....';
$letters{'7'} = '--...';
$letters{'8'} = '---..';
$letters{'9'} = '----.';# And now, letters
$letters{'A'} = '.-';
$letters{'B'} = '-..';
$letters{'C'} = '-.-.';
$letters{'D'} = '-..';
$letters{'E'} = '.';
$letters{'F'} = '..-.';
$letters{'G'} = '--.';
$letters{'H'} = '....';
$letters{'I'} = '..';
$letters{'J'} = '.---';
$letters{'K'} = '-.-';
$letters{'L'} = '.-..';
$letters{'M'} = '--';
$letters{'N'} = '-.';
$letters{'O'} = '---';
$letters{'P'} = '.--.';
$letters{'Q'} = '--.-';
$letters{'R'} = '.-.';
$letters{'S'} = '...';
$letters{'T'} = '-';
$letters{'U'} = '..-';
$letters{'V'} = '...-';
$letters{'W'} = '.--';
$letters{'X'} = '-..-';
$letters{'Y'} = '-.--';
$letters{'Z'} = '--..';
$letters{' '} = ' ';
my $replace = {
dash => '38,6',
dot => '38,2',
word_pause => '0,6',
char_pause => '0,2',
};
my $line = $ARGV[0] || die "Usage: $0 CALLSIGN";
$line = uc $line;
my $cs = "";
for my $c (split //, $line) {
$cs .= $letters{$c} . " ";
}
print "Callsign:\t$line\n";
print "In morse:\t$cs\n";
my $res = "";
for my $i (1 .. length $cs) {
my $char = substr($cs, $i-1, 1);
if ( $char eq "-" ) {
$res .= "$replace->{dash},$replace->{char_pause},";
} elsif ( $char eq " " ) {
$res .= "$replace->{word_pause},";
} elsif ( $char eq "." ) {
$res .= "$replace->{dot},$replace->{char_pause},"
} else {
warn "Invalid char: $char"
}
}
chop $res;
print "Opengd77 tone:\t", $res, "\n";