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

**donseigneur** » 08.05.2009, 14:56

у меня не так много времени, чтобы тратить его на человека, который не может ответить на прямо поставленный вопрос.
абсолютно всё, что нужно для функционирования, описано в первом посте.

Понял, извини.

Всем большое спасибо, оставляю эту затею. (?!?!как его запускать то?!?!)

**G-Man** » 01.06.2009, 20:48

Интересная примочка, спасибо! Правда, мне больше нравится, как отображает результаты TauAnalyzer. Но он только для компактов(
А почему для проверки такой маленький фрагмент - всего 30с? Хотелось бы иметь возможность просматривать спектрограму всего трека

**panda** » 02.06.2009, 04:14

G-Man:всего 30с?

никто не запрещает сделать больше.

**G-Man** » 02.06.2009, 11:35

panda:никто не запрещает сделать больше.

я тоже так думал, но если ставлю полный трек, то вылазит ошибка при запуске AuSpec.exe

**panda** » 02.06.2009, 11:37

минута, полторы?

**G-Man** » 02.06.2009, 13:57

ну максимальная длинна фрагмента в фубаре - 60 с. При 60с работает, но я же говорил о полном треке. Жалко, что нельзя

**panda** » 02.06.2009, 16:49

можно

**G-Man** » 02.06.2009, 17:02

как же можно, если ошибка вылетает?
можно конечно сначала сконвертить, потом запустить AuSpec, на вопрос о перезаписи нажать нет... но если просто поставить полный трек в профиле конвертера, то вылетает ошибка!
Сценарий: C:/Program Files/foobar2000/tools/AuSpec/AuSpec2.vbs
Строка: 11
Символ: 1
Ошибка: Не удается найти указанный файл
Код: 80070002
Источник: (null)

**panda** » 02.06.2009, 17:15

[code=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)
Do While WshShell.AppActivate("Generating Preview")
WScript.Sleep(500)
Loop
Do While WshShell.AppActivate("Converting")
WScript.Sleep(500)
Loop

Call WshShell.Run(".\tools\AuSpec\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[/code]

**G-Man** » 02.06.2009, 17:39

Класс. Спасибо

**dmzkrsk** » 10.06.2009, 20:44

Всем привет
Я автор AuSpec
Меня тут нашли и позвали сюда

Пара добавлений
В 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)

Теперь программа сможет читать AuSpec_Pre.ini и *.pal файлы из своей папки

Чтобы ничего не поломалось надо убедиться, что в *.ini файле установленно

Код: Выделить всё: output = png local = 0

Наверно сразу подтянется и палитра и рисунки станут или цветными или серыми, заместо желто-серых
Кто хочет раскрасить сонограммы своими цветами, то формат моих палитр очень простой (те кто редактировал градиенты в фотошопе принцип поймут).

Также из папки можно удалить bass*.dll кроме самой bass.dll -- они отвечают за поддержку форматов, но если делать через converter, то ничего не нужно
Если использовать программу отдельно -- я её делал, чтобы сразу генерить картинки к куче папок и подпапок -- то плагины пригодятся.

Ну и самое главное: версия 0.9c, которая валялась у меня
Берем тут: http://the-island.ru/auspec09c.rar
Тут также bass.dll и плагины (плагинов тут больше) новой версии (2.4), так что надо заменять все целиком по хорошему.

После этого не забываем поправить ini файл (см. выше)

В новой версии можно жестко ограничивать ширину картинки. Она будет растягиваться или сжиматься до нужной ширины. Подробности и комментарии в ini файле.

Если что пишите. Буду отвечать. Постараюсь просматривать регулярно.

Еще есть графическая версия (к foobar не цепляема пока), но у меня все нехватает времени доработать её до приемлимого вида.

**panda** » 11.06.2009, 05:17

велкам!

з.ы. исправил оба скрипта.

**G-Man** » 15.06.2009, 15:33

А можно сделать чтобы проверялся спектр и файлов выделенных в библиотеке - не только выделенных в плейлисте?

**panda** » 15.06.2009, 16:11

2G-Man
делай

**G-Man** » 15.06.2009, 20:02

%)
я бы сделал, если бы умел. Ну и если бы это реально было, о чем я и спросил

**panda** » 16.06.2009, 03:16

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

**1dollar** » 17.06.2009, 00:16

хм... с версией 0.9c ничего не получалось. Где-то нарыл старую версию auspec (от 2007 года) и всё заработало.
Если у кого-то не работает, попробуйте старую версию.

**G-Man** » 17.06.2009, 12:40

Странно очень, что не получалось.
Попробуй установить по инструкции отсюда (выдрал из пака своего):
http://waper.ru/file/917038/AuSpectre v0.9c.7z

**1dollar** » 17.06.2009, 22:39

Не заработало. Скорее всего, нет какой-то библиотеки. Но мне не горит. Спектры смотрю очень редко, и только у мп3, да и со старой версией всё работает.
Только скрипт из первого поста себе изменил, чтобы не спрашивало: удалять или нет. Так даже лучше. Если картинка нужна, в просмотрщике можно сохранить в удобное место, а не искать по папкам. Если же не надо, то картинка просто закрывается и файл молча удаляется.

**G-Man** » 17.06.2009, 23:49

для работы программы необходимо следующее:

*Microsoft C++ Runtime Library 2005
*Установленный плагин Run Services для Foobar2000
*Установленный плагин Run Command для Foobar2000