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

[suhov]

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


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

зы - прогресс однако! Спасибо большое!

[megane68]

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

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

P.S. На всякий случай дал ссылки на всё необходимое. Выше в моем посту.

[suhov]

что означают кнопочки на верхней панели? http://imagehost.spark-media.ru/i/61403E6D-2BA8-8B92-BD07-C61D6BDFCD24.png  *ну*

[megane68]

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

[K-GEN]

поставил 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 и все заработало как часы  :)

ПС. Еще неплохо было бы отображение на сетке времени и частоты, а также немного "разукрасить" спектр)

[ustas]

Обновились библиотеки 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.

[Aum]

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


что с ним можно сделать?вроде вот это оно:

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

как задержку поставить? кто силен в скриптах?!

[ustas]

2Aum ПОСМОТРИ НА ОДИН ПОСТ ВЫШЕ !

[Aum]

смотрел...да и там тоже самое...
работает, но ошибка таже... задержка ниже нужна...а мож и не в задержке дело..??

[ustas]

2Aum Где ниже? Кинь скриншот с моим скриптом.

[Aum]

вот оно:


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

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

[Axess]

2SCOOTER_CS
1) файл Image.wav.png создается?
2) попробуй AuSpec_Pre.ini в нормальной кодировке пересохранить

[SCOOTER_CS]

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

Пара добавлений
В 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 ничего не понимаю

[Aum]

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

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

Таки решил проблему на Виндовз 7 с вываливающейся ошибкой: в vbs файлике просто прописал путь к просмотровщику картинок винды и вуаля))
Ниже весь архив с подкорректированным файлом и подключенной цветной палитрой

[Muri9]

Здравствуйте, спасибо за скрипт.
Допилил его для себя. 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