Demagog TTS

[flegont]

Понятно, попробую.

[tonio_k]

Поиск. Все подходящие.
критерий поиска:

Код: Выделить всё

@^[^\=]*\=[^\=]*вОрон\b[^\=]*$

сам текст:

► Показать

Код: Выделить всё

(\b(будут|как)\b\s?(\w+)?)\s{1,4}(\bволоса\b)=$1 волосА
(\bволоса\b)((\s(\w+)?){1,}(на жопе|рвать)(\w+)?)=волосА $2
######################################################################################################################################
(нул|ный|шел|шелся|шагал|взмыл|влип|заметил|уселся|летел|сделал|подтвердил|склонил|прокричал)\b(\s*\w*\s*)(\bворон\b)=$1$2вОрон
(\w+([ншщ]ий|ый)\b\s?(\w+)?)\s{1,4}(\bворон\b)=$1 вОрон
(\b(живёт|каркающий|мёртвый|пляшет|чернеет|чёрный)(\w+)?(\s(\w+)?){1,})(\bворон\b)=$1 вОрон
(\b(единорог)\b\s?(\w+)?)\s{1,4}\b(и|или|с)\b\s{1,4}(\bворон\b)=$1 $4 вОрон
(\b(твой|тот же)\b\s?(\w+)?)\s{1,4}(\bворон\b)=$1 вОрон
(\bворон\b)\s?(\w+)?\s{1,4}(\w+(етел)\b)=вОрон $2
(\bворон\b)((\s(\w+)?){1,}(восседал|заскуча|каркну[влт]|клювом|не мог|перехвати[влт]|пригнул|приземлился|пролетит|расправлял|сгорел|сорвался|тянет)(\w+)?)=вОрон $2
######################################################################################################################################
(\w+(гося|его|нье|ого)\b\s?(\w+)?)\s{1,4}(\bворона\b)=$1 вОрона
(\b(автомат|бок|Верну[влт]|вижу|голос|дети|задач|крыло|крыльям|обличий|огромного|орден|отпусти[влт]|перо|перья|полёт|полётом|птенцам|реплик|рождени|смерть|сознание|старого|уби[влт]|увидел|уничтожить|хребтом|чёрного)(\w+)?(\s(\w+)?){1,})(\bворона\b)=$1 вОрона

Результат в окне Статистка выводится вперемешку - без сохранения порядка строк, который был в оригинале. Можно как то сделать "последовательный" вывод строк сверху вниз.

[flegont]

"Все подходящие" выводятся в окно Статистики в алфавитном порядке, с игнорирование дубликатов. Если какое-то подходящее слово встречается в тексте 100500 раз, то нет смысла выдавать его столько же раз в Статистику. А алфавитный порядок - это необходимое условие, чтобы программа могла исключать дубликаты.

[balaamster]

Но, возникла проблема: голос "товарища Адама Селена" звучал "мертво", т.к. отсутствовал звуковой фон.

Эта цитата натолкнула меня на идею: "А что, если сделать синтезированную речь с посторонним фоном или музыкальной подложкой (типа 'Модель для сборки')?"

Начал изучать возможности FFmpeg. И, конечно же, он позволил реализовать задуманное.

У FFmpeg есть замечательный обработчик "-filter_complex", который позволяет на вход отдельных фильтров подавать сразу несколько потоков (аудио или видео, в зависимости от фильтра)
У фильтров общий вид такой:

► Показать

[индекс_файла:определитель потока]фильтр[метка_выходного_потока]

индекс_файла - 0, 1 и т.д. То есть первый "-i путь_к_файлу" будет иметь ндекс 0, второй - 1
определитель потока - указатаель на поток из входного файла. Может быть a - аудио v - видео. Если потоков больше двух, то можно по порядку 0, 1 и т.д.
метка_выходного_потока - просто "бирка" которую мы присваиваем потоку, как имя переменной.

Настройка принимает такой вид

Код: Выделить всё

-loglevel -8 -y -i %1 -i C:\temp\fon.mp3 -filter_complex "[0]aecho=0.8:0.6:20|40:0.2|0.2[b];[b][1]amix=inputs=2:duration=first:weights=1 0.3" -b:a 128k %2

► Показать

Код: Выделить всё

-i C:\temp\fon.mp3

- жестко задаём путь к файлу с фоновой "подложкой" (файловый индекс 1)

Код: Выделить всё

[0]aecho=0.8:0.6:20|40:0.2|0.2[b]

- файл с индексом 0 (поток тут не указываем, он у нас всё равно один - аудио), обрабатываем с эффектом эхо, присваиваем метку "b"

Код: Выделить всё

[b][1]amix=inputs=2:duration=first:weights=1 0.3

- поток с меткой "b" и файл с индексом 1 направляем в фильтр-микшер (amix).
inputs=2 - количество входных потоков.
duration=first - длительность выхода определяется длительностью первого потока. Первым потоком у нас в параметрах идёт синтезированная речь. Файл "подложки" выбираю заведомо больше минимальной длительности читаемого отрывка. Есть ещё варианты longest и shortest - обрезка по самой длинной и короткой дорожке соответственно.
weights=1 0.3 - вес потока в миксе. Условно говоря - громкость. По умолчанию всеп потоки имеют равный вес. 1 - голосовой поток, 0.3 - "подложка".

Пример результата:

20181128-213108.mp3

(1.01 МБ) 9 скачиваний

[flegont]

ААААААА!!!!!! Вот это да! Прекрасный пример Custom encoder. Я даже не подозревал, что такое возможно

[tonio_k]

balaamster, отличная находка! Я сам противник посторонних фоновых мелодий. Но знаю, насколько для других это оживляет произведение. И книги я записываю не только для себя.
Поэтому возникли такие перспективные идеи:
Я так понял, мелодия одна на всё произведение. Есть мысль разнообразить репертуар путем добавления в FilterAndAudioToAll(folder, mask, diclist, remsource) счетчик времени или (правильнее счетчик файлов), который будет через каждый, например, третий файл менять содержимое C:\temp\fon.mp3 - путем копирования с переименованием в fon.mp3 из заранее подготовленной папки с подборкой mp3 файлов фоновых мелодий. - Тут еще надо реализовать эту подстановку "по кругу"

Настройка принимает такой вид

Код: Выделить всё

-loglevel -8 -y -i %1 -i C:\temp\fon.mp3 -filter_complex "[0]aecho=0.8:0.6:20|40:0.2|0.2[b];[b][1]amix=inputs=2:duration=first:weights=1 0.3" -b:a 128k %2

Тут нужно что то придумать, что бы при каждом накладывании C:\temp\fon.mp3 было затухание фоновой мелодии к концу каждого аудио файла книги - что бы избежать резких переходов между файлами.

---

Отправлено спустя 2 часа 16 минут 22 секунды:
Как отловить fnd, если в диалоговом содержимое строки fnd вручную удалили через Ctrl+A, Del ?

Код: Выделить всё

fnd = Input(header,{askname..'='..fnd})
if not fnd then goto HALT end
fnd = fnd[1]

так ошибку дает:

Код: Выделить всё

if fnd = '' then goto HALT end

[flegont]

Код: Выделить всё

...
fnd = fnd[1]  -- присваивание это знак равенства
if fnd == '' then goto HALT end  -- сравнение на равенство это двойной знак равенства

[tonio_k]

не хочет ловить. Вот пример скрипта по поиску в словаре rex.

► Показать

Код: Выделить всё

-- печать всех строк текста из окна 1, отвечающих заданному регулярному выражению
-- поиск идет с учетом регистра (символ @ в начале РВ)
ind = WActive()
s = WText(ind)
header = 'Поиск фрагментов с заданными словами'
askname = 'Регулярное выражение (REX):'
defname = [[^(.)*=(.)*шаблОн(.)*$]]

if FileExists('#rexFind.@') then 
    fnd = LoadFromFile('#rexFind.@')[1]
else
    fnd = defname
end

fnd = Input(header,{askname..'='..fnd})
if not fnd then goto HALT end
fnd = fnd[1]

if fnd == '' then 
	fnd = defname
	SaveToFile({fnd},'#rexFind.@')
	goto HALT
 end

SaveToFile({fnd},'#rexFind.@')

WNew(0)
r = fnd
k = 1
while k > 0 do
    fnd, k = RexMatch(s,r,k)
    print(fnd)
    if k > 0 then k = k+#fnd+1  end
end
WActive(0)

-- установить курсор на первой позиции найденного
s = WText(ind)
fnd, k = RexMatch(s,r,1)
if k > 0 then WSel(ind,k-1,#fnd) end

::HALT::

При первом запускаем выходит окно с шаблоном текста ^(.)*=(.)*шаблОн(.)*$ встаю на него курсором - выделяю всю строку. Нажимаю Del и Оk. - надеюсь, что if fnd == '' then поймает пустое значение и даст команду сохранить файл со строкой fnd = defname и прервет выполнение скрипта (goto HALT). Но по факту if fnd == '' then этот момент не отлавливает - скрипт продолжает работать дальше

---

Отправлено спустя 17 минут 5 секунд:
Еще момент. fnd = Input(header,{askname..'='..fnd}) если нажать "Отмена" то скрипт прерывается, однако если нажать крестик (закрыть окно) то скрипт работает дальше. Крестик тоже как то бы отлавливать

[flegont]

1) Глюк No 1 в функции Input(). Если в форме ввода только одна строка и эта строка ничем не заполнена, то вместо правильного результата {''} - массив из одного элемента, равного пустой строке, возвращается пустой массив без элементов {}
В следующей версии исправлю.

Как его обойти сейчас?
Вместо fnd = fnd[1] написать if #fnd == 0 then fnd = '' else fnd = fnd[1] end

2) Глюк No 2 в функции Input(). Не понимает, что закрытие формы ввода крестиком - это то же самое, что отказ от выбора кнопкой "Отменить".
Аналогично - исправлю в следующей версии.

[tonio_k]

Правило:
стоящего_ в_ *_ шагах_=стоЯщего в_ шагах
Текст:
стоящего_ в_ пяти_ шагах_ от_ противника_
почему на выходе склеивает пяти_ шагах
стоЯщего в_ пятишагах от_ противника_

---

Отправлено спустя 34 минуты 22 секунды:
все, сам понял! Должно быть так:
стоящего_ в_ *_ шагах_=стоЯщего в_ _ шагах

[balaamster]

Есть мысль разнообразить репертуар путем добавления в FilterAndAudioToAll(folder, mask, diclist, remsource) счетчик времени или (правильнее счетчик файлов), который будет через каждый, например, третий файл менять содержимое C:\temp\fon.mp3 - путем копирования с переименованием в fon.mp3 из заранее подготовленной папки с подборкой mp3 файлов фоновых мелодий. - Тут еще надо реализовать эту подстановку "по кругу"

Благодаря подсказке:

Зациклить фоновый файл можно и таким способом:

Код: Выделить всё

ffmpeg -i speech.wav -filter_complex "amovie=background.wav:loop=100[s];[0][s]amix=duration=shortest" output.wav

Реализовал такую версию FilterAndAudioToAllMod - работает аналогично FilterAndAudioToAll, но с дополнением.

► Показать

Код: Выделить всё

function rnd_fon(fdir, ftype)
  local fon_home = HomeFolder(fdir)
  local fon_files = AllFiles(fon_home,'*.'..ftype)
  local fon_count = #fon_files
  return fon_home..fon_files[math.random(1,fon_count)]
end

function FilterAndAudioToAllMod(folder, mask, diclist, remsource)
    IgnoreDicPan()
    local b, d, p, mode
    local k = #folder
    if string.sub(folder,k,k) ~= '/' and string.sub(folder,k,k) ~= '\\' then
        folder = folder..'\\'
    end
    local a = AllFiles(folder,mask)
    for i = 1,#a do
        WOpen(0,folder..a[i])
        for j = 1,#diclist do
            b = diclist[j]
            if type(b) == 'table' then
                d = b[1]
                mode = b[2]
            else
               d = b
               mode = true
            end
            WFilter(0,0,d,mode)
        end
        WSave(0,folder..'temp_'..a[i])
        WOpen(0,folder..'temp_'..a[i])
        -- modification
        local cmd = string.format('CHCP 1251 | COPY /Y %q %q', rnd_fon('fon', 'mp3'), HomeFolder()..'fon.mp3')
        os.execute(cmd)
        -- end
        WAudio(0,folder,false)
        p = SplitFileName(a[i])[2]
        os.rename (folder..'temp_'..p..'.mp3', folder..p..'.mp3')
        os.remove(folder..'temp_'..a[i])
        if remsource and i > 1 then os.remove(folder..a[i-1]) end
    end
    if remsource then os.remove(folder..a[#a]) end
    WNew(0)
    return #a, #diclist
end

Необходимо создать в папке с Demagog папку fon. В неё поместить mp3-файлы с фоновым звуком. Функция rnd_fon возвращает случайный файл фона для каждого элемента серии.
Этот файл копируется в файл fon.mp3, в папке Demagog (передать фильтру абсолютные и относительные пути у меня не получилось) и подмешивается к речи.
Фильтр, подсказанный balabolka, создаёт зацикленный фон. Даже если речевой файл длиннее фона, отрывка без заполнения не останется.

Параметры для CustomEncoder

Код: Выделить всё

-loglevel -8 -y -i %1 -filter_complex "amovie=fon.mp3:loop=10[s];[0]aecho=0.8:0.6:20|40:0.2|0.2[b];[s]afade=t=in:ss=0:d=15[s];[b][s]amix=inputs=2:duration=first:weights=1 0.3" -ac 1 -b:a 64k %2

Тут нужно что то придумать, что бы при каждом накладывании C:\temp\fon.mp3 было затухание фоновой мелодии к концу каждого аудио файла книги

Плавное нарастание громкости в начале реализуется легко. Затухание можно будет реализовать только в скрипте с перекодировкой и использованием внешней утилиты mp3info, 66kb для определения длительности mp3-файла.
Так как речевой трек будет иметь разную длительность, то время (в секундах), с которого нужно начинать затухание нужно подбирать для каждого фрагмента отдельно и передавать его конвертеру.
Или можно определиться со средним временем звучания фрагмента и задать время начала затухания жёстко в строке настройки (самый последний короткий фрагмент останется без затухания)

Пример:

Код: Выделить всё

-loglevel -8 -y -i %1 -filter_complex "amovie=fon.mp3:loop=10[s];[0]aecho=0.8:0.6:20|40:0.2|0.2[b];[s]afade=t=in:ss=0:d=15[s];[s]afade=t=out:st=585:d=15[s];[b][s]amix=inputs=2:duration=first:weights=1 0.3" -ac 1 -b:a 64k %2

Затухание регулируется этим фильтром:
afade=t=out:st=585:d=15
st=585 - начало затухания с 585-й секунды, d=15 - длительность затухания 15 секунд. (рассчитано для файла длительностью 10 минут)

[flegont]

Отлично вышло Уже можно фабрику по изготовлению аудиокниг открывать

[tonio_k]

[+] Возможность выполнять до 9 скриптов "по умолчанию", через горячие клавиши Shift+Ctrl+1 .. Shift+Ctrl+9. Настройка в "Сервис - Статистика - Выполнить скрипт - По умолчанию".

Пытаюсь повесить на комбинацию Ctrl+Shift+9 скрипт CtrlQuit.lua - экстренное прерывание работы демагога

► Показать

2018-12-06_19-19-56.png (33.91 КБ) 88 просмотров

Что то не запускается.

[flegont]

_Tests_\CtrlQuit.lua
Иначе скрипт ищется в корневой папке Демагога. И вообще, скрипты по горячим клавишам к конкретному месту не привязаны, и могут находиться в любом месте на компьютере. В таком случае - указывать полный путь вместе с диском.
P.S. А у меня аналогичный скрипт называется HaltDemagog.lua

Код: Выделить всё

-- Экстренное прерывание программы
--(в случае мертвого цикла - не поможет)
os.exit()

[tonio_k]

Единственный момент.
Горячие клавиши вполне себе работают при открытых словарях dic, rex - что немного выбивается из принятой в Демагоге традиционной защиты словарей от несанкционированных изменений.
С другой стороны, оооочень нужна возможность вызвать os.exit() при любом активном окне.
Если все же решите "включить защиту", то может стоит os.exit() - жестко вшить либо в саму программу Демагог - подарить ей горячую клавишу, либо повесить ее "навсегда" к комбинации, например Ctrl+Shift+0 или Ctrl+Shift+9 и запретить редактирование этой клавиши. - главное что бы она срабатывала при любых открытых окнах (в т.ч. со словарями)

[flegont]

1) Защиту не планирую. Назначение скриптов на горячие клавиши - полностью прерогатива пользователя. Под его ответственность
2) Клавиша Shift+Ctrl+0 - весьма красива своей некоторой уникальностью. Наверное, поэтому Майрософт, начиная с Windows Vista зарезервировала ее для нужд операционной системы. Так что, увы...