Просмотр спектра музыкальных файлов с помощью AuSpec

Список разделов foobar2000 Секреты foobar2000

Описание: Кнопочки, конфиги, секреты, советы.

Сообщение #61 suhov » 29.10.2009, 17:59

2megane68
Постараюсь вечерком осилить. Давно хочу организовать проверку (хотя бы частичную) медиатеки. А для этого нужен удобный метод. Надеюсь это то и есть.  :)


все просто) очень удобно и быстро) как допилят auCDtectTaskManager (надеюсь скоро) - все станет просто мегаудобно! Если б еще окошко спектрограммы показывалось одним кликом на иконку в трее, а не двумя... (или просто силой мысли)))

зы - прогресс однако! Спасибо большое!
Последний раз редактировалось suhov 29.10.2009, 19:33, всего редактировалось 1 раз.
suhov
Аватара
Репутация: 0
С нами: 15 лет 9 месяцев

Сообщение #62 megane68 » 29.10.2009, 19:50

2suhov
У меня как раз такая задумка сначала и была. В смысле найти плагин, который бы интегрировался в Columns. Но таких к сожалению нет. Есть очень хороший по моему мнению foo_uie_vis_channel_spectrum.dll Но он выдает только Peak Meter и Spectrum Analyzer. Справедливости ради скажу, что очень удобный. Поэтому решил обойтись своими силами и с подачи IZOTOP'a решил попробовать VST для проф музыкантов. Нашел сам плагин NuGen Audio Analizer. Результат, честно сказать меня очень даже приятно порадовал. Все известные программы, по сравнению с этим просто "отстой"!!!

Теперь дело всего- то, как бы найти специалиста, который бы написал такой плагин для foobar2000. :)

P.S. На всякий случай дал ссылки на всё необходимое. Выше в моем посту.
Последний раз редактировалось megane68 29.10.2009, 20:03, всего редактировалось 1 раз.
megane68 M
Репутация: -18
С нами: 15 лет 1 месяц

Сообщение #63 suhov » 29.10.2009, 20:06

что означают кнопочки на верхней панели? http://imagehost.spark-media.ru/i/61403E6D-2BA8-8B92-BD07-C61D6BDFCD24.png  *ну*
suhov
Аватара
Репутация: 0
С нами: 15 лет 9 месяцев

Сообщение #64 megane68 » 29.10.2009, 20:14

2suhov
Эти кнопки для нас не имеют значения. Это для использования VST в программах для записи, типа Cubase, Sonar, Nuendo и т. д.
Самые важные настройки все справа!!!
Я спецом написал, что лучше изначально настроить как у меня на скриншоте...
Одна кнопка со стрелками - это изменение размера окна!!!
Очень важно !!! Не нажимайте и следите, что бы кнопка "Smoothing" была отжата (смортеть на скриншоте). Так как она отвечает за сглаживание и при её нажатии Вам будет очень сложно разобраться со спектрограммой!!!
Последний раз редактировалось megane68 29.10.2009, 21:26, всего редактировалось 1 раз.
megane68 M
Репутация: -18
С нами: 15 лет 1 месяц

Сообщение #65 K-GEN » 08.11.2009, 22:47

поставил Auspec09c настроил все по инструкции, запускаю - выходит ошибка Incorrect BASS.DLL version (2.3 is required), нажимаю ОК и появляется спектограмма. все работает просто постоянно выскакивающая ошибка раздражает, в чем может быть проблема?
ПС. искал в сети библиотеку BASS.DLL 2.3 но так и не нашел  *упал*
______________________________________________________________________________________________________________
Проблему решил: при загрузке Auspec09c проверяет наличие помимо bass.dll еще и bass_ape.dll, bassflac.dll, basswma.dll которые были у меня версии 2.3, заменил на версии 2.4 и все заработало как часы  :)

ПС. Еще неплохо было бы отображение на сетке времени и частоты, а также немного "разукрасить" спектр)
Последний раз редактировалось K-GEN 16.11.2009, 18:39, всего редактировалось 1 раз.
K-GEN
Репутация: 0
С нами: 17 лет 6 месяцев

Сообщение #66 ustas » 19.03.2010, 08:16

Обновились библиотеки BASS.
http://www.un4seen.com/

У кого не работает скрипт AuSpec2.vbs написанный в первом сообщении предлагаю к использованию немного модифицированный мной:

Код: Выделить всё
Dim WshShell, FSO
Set WshShell = WScript.CreateObject("WScript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")

Call WshShell.Run("foobar2000.exe " & chr(34) & _
      "/runcmd-playlist=Convert/auspec" & chr(34), 1, True)

WshShell.Popup "Please press OK when converting is done",, "auSpec waiting for responce ...", 1

WshShell.CurrentDirectory = ".\tools\AuSpec\"
Call WshShell.Run("AuSpec_Pre.exe c:\temp\foo_temp\Image.wav", 1, True)
Call WshShell.Run("C:\temp\foo_temp\Image.wav.png", 1, True)
FSO.GetFolder("C:\temp\foo_temp").Delete

Он просто просит нажать кнопку ОК по окончанию конвертирования. Кстати, я использую в настройках DSP "Post track silence" с установкой в одну секунду. Получаются более информативные скрины при конвертации нескольких треков.

PEACE, Me.
Последний раз редактировалось ustas 23.03.2010, 10:17, всего редактировалось 1 раз.
ustas
Репутация: 0
С нами: 14 лет 1 месяц

Сообщение #67 Aum » 12.04.2010, 12:31

Все работает норм! но в Вин 7 постоянно вываливается окошко:
Изображение

что с ним можно сделать?вроде вот это оно:
panda:если не дожидается, значит не находит окна с заголовком «Converting»
можно попробовать отслеживать другое событие или просто дать задержку в несколько секунд.

как задержку поставить? кто силен в скриптах?!
Последний раз редактировалось Aum 12.04.2010, 15:48, всего редактировалось 1 раз.
Aum M
Аватара
Репутация: 20
С нами: 14 лет

Сообщение #68 ustas » 13.04.2010, 08:15

2Aum ПОСМОТРИ НА ОДИН ПОСТ ВЫШЕ !
ustas
Репутация: 0
С нами: 14 лет 1 месяц

Сообщение #69 Aum » 13.04.2010, 11:19

смотрел...да и там тоже самое...
работает, но ошибка таже... задержка ниже нужна...а мож и не в задержке дело..??
Aum M
Аватара
Репутация: 20
С нами: 14 лет

Сообщение #70 ustas » 14.04.2010, 22:19

2Aum Где ниже? Кинь скриншот с моим скриптом.
ustas
Репутация: 0
С нами: 14 лет 1 месяц

Сообщение #71 Aum » 15.04.2010, 11:06

вот оно:
Изображение

Ковырял, ковырял...
ничего хорошего... задержка не помогает...
все равно, в win 7,  окошко вываливается, при условии, что просмотрщик фотографий стандартный...ставишь сторонний - проблема - исчезает

что интересно - проблема всегда указывает на строку открытия файла:
Call WshShell.Run("C:\temp\foo_temp\Image.wav.png", 1, True)
Последний раз редактировалось Aum 27.04.2010, 14:49, всего редактировалось 1 раз.
Aum M
Аватара
Репутация: 20
С нами: 14 лет

Сообщение #72 Axess » 16.05.2010, 19:29

2SCOOTER_CS
1) файл Image.wav.png создается?
2) попробуй AuSpec_Pre.ini в нормальной кодировке пересохранить
Axess M
Аватара
Откуда: Kirov
Репутация: 16
С нами: 14 лет 7 месяцев

Сообщение #73 SCOOTER_CS » 17.05.2010, 01:11

2Axess
Это я ошибся. всё работает. осталось только допилить, чтоб было красиво :)
Никак не пойму, что надо сделать, чтобы настроить палитру.

dmzkrsk:Пара добавлений
В AuSpec2.vbs настоятельно советую сделать замену

Код: Выделить всё
Call WshShell.Run(".\tools\AuSpec\AuSpec_Pre.exe c:\temp\foo\Image.wav", 1, True)

на
Код: Выделить всё
WshShell.CurrentDirectory = ".\tools\AuSpec"
Call WshShell.Run("AuSpec_Pre.exe c:\temp\foo\Image.wav", 1, True)

После замены этой строчки появляется ошибка.
Да и в файлах .pal ничего не понимаю
Последний раз редактировалось SCOOTER_CS 17.05.2010, 01:43, всего редактировалось 1 раз.
SCOOTER_CS
Репутация: 0
С нами: 14 лет 6 месяцев

Сообщение #74 Aum » 27.11.2013, 22:54

Aum:Ковырял, ковырял...
ничего хорошего... задержка не помогает...
все равно, в win 7, окошко вываливается, при условии, что просмотрщик фотографий стандартный...ставишь сторонний - проблема - исчезает

что интересно - проблема всегда указывает на строку открытия файла:
Call WshShell.Run("C:\temp\foo_temp\Image.wav.png", 1, True)

Таки решил проблему на Виндовз 7 с вываливающейся ошибкой: в vbs файлике просто прописал путь к просмотровщику картинок винды и вуаля))
Ниже весь архив с подкорректированным файлом и подключенной цветной палитрой
Вложения
AuSpec.rar
(333.07 КБ) Скачиваний: 517
Aum M
Аватара
Репутация: 20
С нами: 14 лет

Сообщение #75 Muri9 » 03.01.2014, 23:28

Здравствуйте, спасибо за скрипт.
Допилил его для себя. Auspec легко заменяется на sox, spek, или что угодно.
Добавил параметры для sox. Можно легко создавать пресеты в run services ( например монохромный спектр, или без легенды ).
spectrogram.png лежит в папке foobar/tools/sox и постоянно перезаписывается. В принципе то-же самое можно сделать и с временным wav.

Код: Выделить всё
Dim sh, fso, wav, png, title, soxArgs

Set sh = WScript.CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")

wav = "C:\temp\Image.wav"
png = wav & ".png"

title = ""
If WScript.Arguments.Count > 0 Then
   title = " -t " & chr(34) & WScript.Arguments.Item(0) & chr(34)
End if

soxArgs = ""
If WScript.Arguments.Count > 1 Then
   soxArgs = " " & WScript.Arguments.Item(1)
End if

Call sh.Run("foobar2000.exe " & chr(34) & _
      "/runcmd-playlist=Convert/sox" & chr(34), 1, True)

WScript.Sleep 100

If Not sh.AppActivate("Converting - 1/1 ...") Then
   sh.Popup "Please press OK when converting is done",, "waiting for responce ...", 1
End If

Do While sh.AppActivate("Converting - 1/1 ...")
   WScript.Sleep 500
Loop

If sh.AppActivate("Converter Output") Then
   WScript.Sleep 100
   sh.SendKeys "%{F4}"
End If

sh.CurrentDirectory = ".\tools\sox\"

if fso.FileExists(wav) Then
   Call sh.Run("sox.exe C:\temp\Image.wav -n spectrogram" & title & soxArgs, 1, True)
   rem Call sh.Run("rundll32.exe shimgvw.dll,ImageView_Fullscreen " & sh.CurrentDirectory & "\spectrogram.png", 1, True)
   Call sh.Run("..\JPEGView\JPEGView.exe " & sh.CurrentDirectory & "\spectrogram.png", 1, True)
   fso.GetFile(wav).Delete
end if
Вложения
Clipboard Image2.jpg
Clipboard Image.jpg
Muri9
Репутация: 0
С нами: 10 лет 2 месяца

Пред.

Вернуться в Секреты foobar2000