voice: Switch default English Piper voice to 'en_GB-semaine-medium'

The former one ('cori') had some very pathological corner cases
especiallly when voicing single letters. This one is just
better all around.

Change-Id: I275256a637cf70ba196aafdecc24038bfe841955
This commit is contained in:
Solomon Peachy 2024-07-27 07:44:17 -04:00
parent 2dddf16e2c
commit 566d99aced
3 changed files with 12 additions and 8 deletions

Binary file not shown.

View file

@ -601,7 +601,7 @@ sub simbuilds {
'festival' => '--language english',
'espeak' => '-ven-gb -k 5',
'gtts' => '-l en -t co.uk',
'piper' => 'en_GB-cori-high.onnx',
'piper' => 'en_GB-semaine-medium.onnx',
},
'enabled' => 1,
},

View file

@ -138,7 +138,7 @@ my %espeak_lang_map = (
);
my %piper_lang_map = (
'english' => 'en_GB-cori-high.onnx', # Always first, it's the golden master
'english' => 'en_GB-semaine-medium.onnx', # Always first, it's the golden master
# 'bulgarian' => '-vbg',
'chinese-simp' => 'zh_CN-huayan-medium.onnx',
'czech' => 'cs_CZ-jirka-medium.onnx',
@ -595,17 +595,21 @@ sub gentalkclips {
print(".");
}
# Convert to a complete path
my $path = sprintf("%s/%s", $dir, $file);
$voice = $file;
$wav = sprintf("%s.talk.wav", $path);
# Ignore dot-dirs and talk files
if ($file eq '.' || $file eq '..' || $file =~ /\.talk$/) {
next;
}
$voice = $file;
# Convert some symbols to spaces
$voice =~ tr/_-/ /;
# Convert to a complete path
my $path = sprintf("%s/%s", $dir, $file);
$wav = sprintf("%s.talk.wav", $path);
if ( -d $path) { # Element is a dir
$enc = sprintf("%s/_dirname.talk", $path);
if (! -e "$path/talkclips.ignore") { # Skip directories containing "talkclips.ignore"