Титус, мне ваша програма конечно интересна. Она лучше MakeTzx?
Дайте ссылку. Я её посмотрю.
Вид для печати
Титус, мне ваша програма конечно интересна. Она лучше MakeTzx?
Дайте ссылку. Я её посмотрю.
Лучше)Цитата:
Сообщение от Ralf
К сожалению, ссылки нет, т.к. программа без интерфейса.
Есть сборка от NewArt, попросите у него.
Или выложите на форуме оцифрованные записи, я их сам распознаю.
Название какое? Я видел ссылку на неё на форуме.
Спасибо. Добавлю сюда, чтобы не искалось по всему форуму.
А это не последняя полная версия?Цитата:
Сообщение от creator
http://zx-pk.ru/showpost.php?p=616786&postcount=18
Заглядывал. Ну мало ли, файл вставили в другой.Цитата:
Сообщение от creator
Звонок Титусу прояснил ситуацию. Он сам там руками компилирует всё в рабочую программу. Так что... нэту. Нигде.
Значит так, проясняю ситуацию.Цитата:
Сообщение от creator
1. У ньюарта все есть, просто я ему когда-то не разрешал выкладывать на общее скачивание, т.к. считал программу недоделкой, но сейчас РАЗРЕШАЮ.
2. У меня версии для ньюартовского пакета AutoTitus нету, т.к. я ему тогда ее дал, он под нее заточился, а сам я дальше стал модифицировать исходник и уже ушел от той версии.
Короче, у ньюарта все есть, просите у него. Я разрешаю ему выкладывать все.
Тиши-тише. Ньюарту было отдано, но там вышло так, что старый файл не подходит. Сейчас человек занят, попозже почитает, разберётся. И надеюсь сделает сам полностью рабочую версию программы. На сколько понимаю, там допилить чуток осталось.Цитата:
Сообщение от creator
Денис, твоя невнимательность феноменальна.
Читай еще раз ВНИМАТЕЛЬНО!
Просите у ньюарта, или у других ребят, которым я давал ее тогда. Наверняка давал Гудбою, Софтфеликсу и Джерсу.Цитата:
Сообщение от Titus
Старею. :) Так дай мне её, что ты давал всем другим. Только не говори, что всё потерялось, не поверю.Цитата:
Сообщение от Titus
Пипец... Я ее давал несколько лет назад и себе не сохранял. Мне она была НЕ НУЖНА, я не пользуюсь ньюартовским пакетом AutoTitus!Цитата:
Сообщение от Rindex
Спокойствие. Сейчас достанем. Подождите немного.Цитата:
Сообщение от Titus
http://zx-pk.ru/showthread.php?goto=newpost&t=25002Цитата:
Сообщение от Rindex
https://dl.dropboxusercontent.com/u/.../autotitus.zip
Работает так:
1. в папку с программой кидаем mp3
на выходе получается папка с именем mp3, в которой еще 3 папки
канал А, канал B и их сумма.
TAP переведенные с ошибкой помечаются ERROR.
Почему mp3? Потому что когда оцифровываешь 50 кассет wav файлы занимают уж очень дофига места. А mp3 на качестве никак не сказывается.
Я использовал 320kbp/48khz/16bit/Stereo
wav программа вроде бы тоже кушает.
Вот исходник на PureBasic:
:v2_dizzy_facepalm:PHP код:#low_priority = 1
Procedure SetLowPriority(z)
If #low_priority
Pid = ProgramID(z)
proc = OpenProcess_(#PROCESS_ALL_ACCESS,0,Pid)
SetPriorityClass_(proc, 16384)
CloseHandle_(proc)
EndIf
EndProcedure
Procedure.l MarkTapes(Directory$, name$, Channel$ )
ReadFile(0, Directory$+name$+"\"+Channel$+"\Log.txt")
While Eof(0) = 0
t$ = ReadString(0)
pos = FindString(t$, "Filename: ", 1)
If pos
tap_name$ = Trim(StringField( t$, 2, ":" ))
error = 0
ElseIf error = 0 And FindString(t$, "Checksum: Error", 1) And tap_name$
new_tap_name$ = Left(tap_name$, Len(tap_name$)-4)+" [ERROR].tap"
RenameFile( Directory$+name$+"\"+Channel$+"\"+tap_name$, Directory$+name$+"\"+Channel$+"\"+new_tap_name$ )
error = 1
on_error = 1
EndIf
Wend
CloseFile(0)
EndProcedure
Procedure.l mp3TOwav(mp3$, wav$, Channel$)
CreateDirectory( wav$ )
CreateDirectory( wav$+"\"+Channel$ )
PrintN(" mp3 -> wav [channel "+Channel$+"]")
If Channel$ = "mixdown"
z = RunProgram( GetPathPart(mp3$) + "ffmpeg.exe", " -i " +Chr(34)+ mp3$ + Chr(34)+" -y -ac 1 -ar 48000 -acodec pcm_s16le "+Chr(34) + wav$+"\mixdown\Untitled.wav"+ Chr(34), "", #PB_Program_Open|#PB_Program_Hide )
Else
z = RunProgram( GetPathPart(mp3$) + "ffmpeg.exe", " -i " +Chr(34)+ mp3$ + Chr(34)+" -map_channel 0.0."+Channel$+":0.0 -y -ar 48000 -acodec pcm_s16le "+Chr(34) + wav$+"\"+Channel$+ "\Untitled.wav"+ Chr(34), "", #PB_Program_Open|#PB_Program_Hide )
EndIf
SetLowPriority(z)
ProcedureReturn z
EndProcedure
Procedure.l wavTOtap(Directory$, dest$, Channel$)
CopyFile( Directory$+"Tape_Recover.exe", dest$ + "\"+Channel$+"\Tape_Recover.exe" )
PrintN(" wav -> tap [channel "+Channel$+"]")
SetCurrentDirectory( dest$ + "\"+Channel$ )
z = RunProgram( "Tape_Recover.exe" ,"","",#PB_Program_Open | #PB_Program_Hide)
SetLowPriority(z)
ProcedureReturn z
EndProcedure
Procedure ClearAss(Directory$, name$, Channel$)
DeleteFile( Directory$ + name$ + "\"+Channel$+"\Tape_Recover.exe" )
DeleteFile( Directory$ + name$ + "\"+Channel$+"\Untitled.wav" )
EndProcedure
Procedure Process(ch0, ch1, ch2)
Repeat
Delay(100)
ConsoleTitle( LSet("", nm, "|") )
nm = (nm +1) & 7
Until ProgramRunning( ch0 ) = 0 And ProgramRunning( ch1 ) = 0 And ProgramRunning( ch2 ) = 0
EndProcedure
OpenConsole()
ConsoleTitle("Auto Titus v0.8")
Directory$ = GetCurrentDirectory()
Repeat
exit = 1
If ExamineDirectory(0, Directory$, "*.*")
While NextDirectoryEntry(0)
If DirectoryEntryType(0) = #PB_DirectoryEntry_File
exit = 0
name$ = GetFilePart( DirectoryEntryName(0) )
clear_name$ = Left(name$, Len(name$)-4)
ext$ = GetExtensionPart(name$)
If ext$ = "mp3" Or ext$ = "wav"
PrintN( name$ )
PrintN("")
ch0 = mp3TOwav( Directory$+name$, Directory$+clear_name$, "0" )
ch1 = mp3TOwav( Directory$+name$, Directory$+clear_name$, "1" )
ch2 = mp3TOwav( Directory$+name$, Directory$+clear_name$, "mixdown" )
Process(ch0, ch1, ch2)
ch0 = wavTOtap( Directory$, Directory$+clear_name$, "0" )
ch1 = wavTOtap( Directory$, Directory$+clear_name$, "1" )
ch2 = wavTOtap( Directory$, Directory$+clear_name$, "mixdown" )
Process(ch0, ch1, ch2)
Delay(2000); flush Titus buffers
MarkTapes(Directory$, clear_name$, "0" )
MarkTapes(Directory$, clear_name$, "1" )
MarkTapes(Directory$, clear_name$, "mixdown" )
Delay(1000); some shit
ClearAss( Directory$, clear_name$, "0" )
ClearAss( Directory$, clear_name$, "1" )
ClearAss( Directory$, clear_name$, "mixdown" )
PrintN(" ")
RenameFile( Directory$ +"\"+ DirectoryEntryName(0), Directory$ +"\"+ GetPathPart(DirectoryEntryName(0))+clear_name$+"\"+name$ )
EndIf
EndIf
Wend
FinishDirectory(0)
Delay(3000)
EndIf
Until exit
А Ziutek, KAZ ? они вместе с Mat состояли в Ethanol Soft Inc.Цитата:
Сообщение от Ralf
Пробовал поработать с AutoTitus. Не повезло :(
Здесь одна сторона кассеты с которой я работал. Формат мп3, размер 70 мб:
https://www.sendspace.com/file/cb7nkj
Сделал AutoTitus09.exe test.mp3 Програма 5 минут работала, что-то писала в консоле но ничего не сделала.
Что я плохо делал?
Ralf, попробуй эту - http://zx-pk.ru/showthread.php?t=25002
И не заливай файлы на sendspace.com. Там ссылки умирают очень быстро. Если уж класть, то http://www.sderni.ru/ (месяц, плюс месяц после последнего скачивания), или http://rghost.ru/ (по умолчанию стоит 5 дней, но там можно продлить теперь до 90 дней, плюс месяц после последнего скачивания). Регистрация нигде не нужна.
---------- Post added at 23:35 ---------- Previous post was at 23:28 ----------
А 70Mb, тогда туда. На те файлообменники не больше 50Mb можно залить.
AutoTitus уже не актуальна. Пользуйтесь Tape Recover 2.0.Цитата:
Сообщение от Ralf
Ссылка выше, Андрей. ;)
Или надо там сделать конто и тога лимита не будет?Цитата:
И не заливай файлы на sendspace.com. Там ссылки умирают очень быстро. Если уж класть, то http://www.sderni.ru/ (месяц, плюс месяц после последнего скачивания), или http://rghost.ru/ (по умолчанию стоит 5 дней, но там можно продлить теперь до 90 дней, плюс месяц после последнего скачивания).
Нет, там только 45 и 50Mb. Если больше заливай на sendspace.com, если это не очень важно. Для длительного хранения (говорят навсегда) есть другие сервисы.Цитата:
Сообщение от Ralf
---------- Post added at 00:11 ---------- Previous post was at 00:01 ----------
Если хочешь, расскажу о них, хотя тут и тут я о них уже говорил.
Для обмена файлами можно использовать сервис files.inbox.lv
Ограничение на размер файла 1.5 Gb
Мне нравится. Правда там регистрация нужна.
Срок хранения какой? Отвечать не надо - 10Gb.Цитата:
Сообщение от ZX_NOVOSIB
---------- Post added at 00:20 ---------- Previous post was at 00:15 ----------
Отвечу просто. Говорят бесконечные. Пока не подводили. Вот чем я пользуюсь, чтобы сохранить файлы надолго. Регистрация нужна везде.
http://4shared.com/ - 15Gb
https://disk.yandex.ru/ - 20Gb
https://cloud.mail.ru/ - 200Gb (у меня 1Tb, попал под акцию)
Да, на записи очень сильных фон тоном герц в 300.Цитата:
Сообщение от SoftLight
Думаю, что это наводка либо на провод соединяющий компьютер и магнитофон, либо какого-то другого плана.
Это, конечно, можно отфильтровать и программно, но при этом пострадает и сама запись.
Мой совет - оцифровать без этого гудения, тогда все прекрасно считается.
Возможно, там стоит фильтр, который это гудение срезает)Цитата:
Сообщение от SoftLight
MakeTZX тоже прекрасно (за исключением пары файлов) распознаёт эту запись.Цитата:
Сообщение от SoftLight
http://savepic.net/6624887.png
Потому что у MakeTZX тоже фильтр)Цитата:
Сообщение от goodboy
Я вижу в этом смайлике скрытый вопрос - тогда зачем Tape Recover, если у него нет элементарного фильтра? )Цитата:
Сообщение от creator
Когда я работаю с MakeTzx я всегда пользуюсь фильтром. MakeTzx имеет GUI и там для выбора какие-то Butterworth и Chebyshev. Мне они очень часто помогли. У меня без фильтра обычно не работает.
Сразу скажу - другого магнитофона, провода и PC у меня нет. Магнитофон - современный SONY
Надо хотя бы попробовать что-то сделать со шлейфом. Это гудение очень сильное.Цитата:
Сообщение от Ralf
На хороших записях, вам помогут всякие MakeTzx и т.д., но на плохих с таким гудением не поможет никто. Без гудения поможет Tape Recover.
Обьясню, почему нет фильтра в Tape Recover.
Эта программа была специально разработана для распознавания записей с дефектами специфичными для магнитной пленки:
1) Сильное колебание скорости записи.
2) Завал высоких (обычно происходит при плохой подстройке головки). Причем, завал может быть столь велик, что от высоких почти ничего не остается.
3) Выпадание отдельных фронтов или целых групп, кодирующих 0.
4) Колебание постоянки.
5) Прочее.
Если еще и бороться программными методами с наводками на провод, то это ухудшит адаптивность к вышеописанным дефектам.
Поэтому наводки на провод - целиком на совести оцифровщика.
скачать 70 мб не могу. Но мне интересно, а wav2tzx как распознает эту запись, лучше или хуже чем MakeTZX?Цитата:
Сообщение от goodboy
практически никак.Цитата:
Сообщение от ZX_NOVOSIB
Еще в свое время мне такую утилиту презентовали: https://dl.dropboxusercontent.com/u/...pConverter.rar
но она рассчитана на "хорошую" запись. инструкция прилагается
И чем эта прога лучше wav2tzx? Помоему ничем. Впрочем в аттаче версия, нормализованная по размеру, благодаря удалению гигантского wav файла, который зачем-то был всунут в архив с прогой. Вдруг кому пригодится. wav2tapЦитата:
Сообщение от JeRrS
Сегодня я пробовал улучшить запуись
Магнитофон действительно добавлял шум. Нашёл трик в сети чтобы что-то записать несколько раз на свободной ленте - какая-то очистка, демагнетизация, не знаю.
Весьма помогло.
Теперь TapeRecover видит програмы но всё таки ест много ошибок.
Загрузил файл в сеть - другая сторона тестовой кассеты. Теперь это wav и он 140 мб :(
https://www.sendspace.com/file/pbjcs5
Можно ешё что-то сделать?
Если нет, я буду делать что сначала хотел - подсылать в .tap только те релизы которые легко считаются.
Да, с помехами в виде гудения на этой записи разобрались. Она уже подходит для распознавания.Цитата:
Сообщение от Ralf
Однако, много амплитудных провалов.
В таких случаях не просто желательно, а ОБЯЗАТЕЛЬНО делать стереозапись, т.к. подобные провалы частенько компенсируются соседним каналом.
Значит TapeRecover читает стерео?
Здесь написали:
http://zx-pk.ru/showpost.php?p=796044&postcount=1
программа анализирует wav файл 48000КГц,16 бит,моно
Он читает моно, но человек, который хочет ему скормить запись, сперва посмотрит (например в CoolEdit), какой канал лучше, запишет этот канал в моно, и уже будет распознавать).Цитата:
Сообщение от Ralf
Либо же скормит сперва правый канал, потом левый, и выберет, где лучше результат.
А если на магнитофоне головка моно, то это плохо? Для оцифровки надо обязательно стерео-магнитофон что ли?