GD77 OPENING TONES

K4ED
Posts: 16
Joined: Thu Jan 21, 2021 5:04 pm

Re: GD77 OPENING TONES

Post by K4ED » Mon Jul 05, 2021 12:52 am

ec2ut wrote:
Thu Aug 20, 2020 2:45 pm
I have tried to do it myself but it doesn't work out. If someone translate my callsign EC2UT into morse tones (convert to numbers) for the startup sound, I would be VERY grateful.
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 ...

IZ2EIB
Posts: 161
Joined: Sat Nov 30, 2019 12:55 pm

Re: GD77 OPENING TONES

Post by IZ2EIB » Tue Jul 06, 2021 6:55 pm

Hi Mark.
K4ED wrote:
Mon Jul 05, 2021 12:52 am
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 ...
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

User avatar
EA3BIL
Posts: 156
Joined: Sat Nov 16, 2019 12:38 pm
Location: Terrassa. BCN.
Contact:

Re: GD77 OPENING TONES

Post by EA3BIL » Mon Jul 12, 2021 11:53 am

:lol: :lol: :lol: :lol:

Nice job man !!!

W4TAB
Posts: 25
Joined: Sun Feb 12, 2023 12:58 pm

Re: GD77 OPENING TONES

Post by W4TAB » Fri Aug 25, 2023 10:17 am

I would like to have the Formula one theme on my radio. Could somebody help me figure out how to do that?

VK3KYY
Posts: 7437
Joined: Sat Nov 16, 2019 3:25 am
Location: Melbourne, Australia

Re: GD77 OPENING TONES

Post by VK3KYY » Fri Aug 25, 2023 11:25 am

W4TAB wrote:
Fri Aug 25, 2023 10:17 am
I would like to have the Formula one theme on my radio. Could somebody help me figure out how to do that?
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.

S58SMS
Posts: 152
Joined: Mon Dec 20, 2021 8:00 am

Re: GD77 OPENING TONES

Post by S58SMS » Wed Aug 30, 2023 6:20 am

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.

VK3KYY
Posts: 7437
Joined: Sat Nov 16, 2019 3:25 am
Location: Melbourne, Australia

Re: GD77 OPENING TONES

Post by VK3KYY » Wed Aug 30, 2023 6:35 am

S58SMS wrote:
Wed Aug 30, 2023 6:20 am
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.
Hard vs Important

Perhaps not hard, but still takes time that I need to use to write really useful functionality.

User avatar
F1RMB
Posts: 2488
Joined: Sat Nov 16, 2019 5:42 am
Location: Grenoble, France

Re: GD77 OPENING TONES

Post by F1RMB » Wed Aug 30, 2023 6:57 am

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.

LZ1PYK
Posts: 8
Joined: Fri Nov 17, 2023 4:46 pm

Re: GD77 OPENING TONES

Post by LZ1PYK » Mon Dec 04, 2023 11:21 am

K4ED wrote:
Mon Jul 05, 2021 12:52 am
ec2ut wrote:
Thu Aug 20, 2020 2:45 pm
I have tried to do it myself but it doesn't work out. If someone translate my callsign EC2UT into morse tones (convert to numbers) for the startup sound, I would be VERY grateful.
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 ...
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";


Post Reply