AIMP Forum

AIMP for Windows => Плагины / Plugins => Дополнения / Addons => Визуализации / Visualizations => Topic started by: alexpac26 on February 17, 2014, 10:30:49

Title: OpenSpectrumLazarus Спектрум (исходник на Lazarus)
Post by: alexpac26 on February 17, 2014, 10:30:49
AIMP Визуализация Спектр

Это визуализация-спектр для AIMP, bass_sfx.dll (http://www.un4seen.com/forum/?topic=9488) совместимая

Скачать визуализации:
https://www.aimp.ru/?do=catalog&rec_id=639
https://www.aimp.ru/?do=catalog&rec_id=638

Скачать исходники:
https://drive.google.com/open?id=1xjJ_qUnPhXu9pMnOek3XcvX--Om2nY7J
https://drive.google.com/open?id=1DlauiL3KcnqVTyLoKNr-bThs1Wgu5_QX

Общий вид:

(http://jqbook.net.ru/up_images/545533af7ac67.jpg)

Общий вид:
(http://jqbook.net.ru/up_images/5455413fe6056.jpg)

Представляет из себя горизонтальную или вертикалькую ленту спектра. (переключается по клику на визуализации)

Значения спектра отображаются путем изменения градиента точек.

(http://jqbook.net.ru/up_images/54554184bfe67.png)

Настройка визуализации

Общий вид:
(http://jqbook.net.ru/up_images/54553f52998ab.jpg)
Позволяет создавать и редактировать темы для спектр визуализации.

Запускается либо по клику в правом верхнем углу окна AIMP, либо напрямую из папки с пагином (нужно окрыть папку и запустить)

Конфигурации сохраняются в %APPDATA%

Формат цвета #HTML_CSS цвет

Поддержка полноэкранного режима.

Для входа в полноэкранный режим, нужно в настройках AIMP v3.5 поставить

(http://jqbook.net.ru/up_images/54553c6793966.jpg)

В AIMP 3.6 на текущий момент настроек нет

Установка

Для AIMP v3.5:

-Скопировать содержимое папки bin в папку с плагинами AIMP

Для AIMP v3.6:

-Чтобы установить визуализацию нужно создать папку (в AIMP/plugins) с именем таким же как DLL внутрь туда эту DLL положить
-Скопировать содержимое папки bin в папку AIMP/plugins/OpenSpectrumLazarus2

(http://jqbook.net.ru/up_images/54553d6d75446.jpg)

Описание алгоритма

Используется алгоритм матрицы спектрального максимума

Сама матрица получена после прогона нескольких mp3-flac файлов различных жанров. За счет этого спектр наиболее точно выравнивается.

Нормализация Спектра:

Code: [Select]
высота палки[i] := значение полосы[i] / значение матрицы максимума[i]
Исходный спектр состоит из 255 пиков, однако используются только 207 из них

Сжатие спектра:


Так как на экране отображаются только 10-30 пиков вместо двух сотен, то возникает необходимость в сжатии полученного, уже нормализованного спектра

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

Code: [Select]
procedure SP_CalculateBarConfig(const Theme: TTheme; var BarConfig: TSP_BarConfig);
var i, maxSP, totalSP: integer; stepSP: single;
begin
   if BarConfig.BarCount <> Theme.SPBarCount then begin
      with BarConfig do begin
         BarCount:= Theme.SPBarCount;
// единичный отступ 15%
// нужен для того чтобы "БАСЫ" отображались максимально точно
         Offset:=round( BarCount * 0.15 );
         BarCount:=Theme.SPBarCount;
         maxSP:=Length(vSP_MATRIX)-1;
// длина vSP_MATRIX = 207
         if BarCount<50 then maxSP:= Length(vSP_MATRIX) - trunc( Length(vSP_MATRIX) * 0.05 );
         if BarCount<30 then maxSP:= Length(vSP_MATRIX) - trunc( Length(vSP_MATRIX) * 0.1 );
         if BarCount<15 then maxSP:= Length(vSP_MATRIX) - trunc( Length(vSP_MATRIX) * 0.2 );
         Step:=0;
         // Рассчет шага
         repeat
           totalSP:=Offset;
           stepSP:=1;
           for i:=1 to BarCount-Offset do begin
              stepSP:= stepSP + Step;
              totalSP:= totalSP + round( stepSP );
           end;
           Step:=Step + 0.01;
         until totalSP>=maxSP;
         Step:=Step - 0.01;
         Step:=abs(Step);
      end; // end with
   end; // end if
end;

Структуры данных:

Code: [Select]
  TSP_BarConfig = record
    BarCount: integer; // количество отображаемых полос
    Offset: integer; // единичный отступ
    Step: single; // шаг
  end;
Например спектр состоит из 20 полос
Тогда у него будет отступ: 3
Величина шага будет составлять 1.1

Спектр будет охватывать 189 полос из 207

Excel скриншот полученного расчета
(http://jqbook.net.ru/up_images/545537b49964e.png)

На втором этапе уже сжимаем спектр на основе полученной конфигурации TSP_BarConfig

Code: [Select]
procedure SP_CalculateSpectrum(const Theme: TTheme; var BarConfig: TSP_BarConfig;
  const DATA: TSP_SingleArray;
  var OUTData: TSP_SingleArray
);
var i,z,k: integer; stepSP, hmax: single;
begin
   with BarConfig do begin
      z:=0;
      k:=0;
      for z:=0 to Offset-1 do begin
  // единичный отступ
        OUTData[k]:=DATA[z];
        inc(k);
      end;
      z:=Offset-1;
      stepSP:=1;
      repeat
        hmax:=0;
        stepSP:=stepSP+Step;
        for i:=z+1 to z+round(stepSP) do begin
// ищем максимум из диапазона заданного шагом
           hmax:=MAX(DATA[i],hmax);
        end;
// записываем результат в OUTData
        OUTData[k]:=hmax;
        inc(k);
        z:=z+round(stepSP);
      until k>=BarCount;
   end;
end;
Title: Re: ИСХОДНИК СПЕКТРА НА LAZARUS
Post by: Soolo on February 17, 2014, 10:42:51
Круто, спасибо! +

Полноэкранный режим не работает и после него тоже не работает
Title: Re: ИСХОДНИК СПЕКТРА НА LAZARUS
Post by: FreeMan700 on February 17, 2014, 11:37:34
Класс! Добавляйте всё в первый пост. Чтобы потом по теме не шарить. +1
Title: Re: Спектрум (исходник на Lazarus)
Post by: Tarik on February 17, 2014, 12:42:38
+1. Только длл-ку в svp незачем было переименовывать. Плееру можно дать саму ддл-ку.
Title: Re: OpenSpectrumLazarus Спектрум (исходник на Lazarus)
Post by: alexpac26 on February 23, 2014, 17:20:41
добавлен OpenThermalSpectrumLazarus
Title: Re: OpenSpectrumLazarus Спектрум (исходник на Lazarus)
Post by: Soolo on February 23, 2014, 20:05:33
добавлен OpenThermalSpectrumLazarus
Классно. Спасибо.
Есть проблема: на Win8x64 не запускается визуалка =) АИМП просто вылетает.
Title: Re: OpenSpectrumLazarus Спектрум (исходник на Lazarus)
Post by: alexpac26 on February 23, 2014, 20:37:42
Quote
Win8x64
к сожалению нет технической возможности проверить
а первая нормально работает на win8 ?

и еще вопрос. Сам AIMP 64 битный?
Title: Re: OpenSpectrumLazarus Спектрум (исходник на Lazarus)
Post by: Soolo on February 23, 2014, 20:40:30
к сожалению нет технической возможности проверить
а первая нормально работает на win8 ?
хм... сразу не проверил, а теперь посмотрел - тоже не работсет

и еще вопрос. Сам AIMP 64 битный?
АИМП только 32-х битный
Title: Re: OpenSpectrumLazarus Спектрум (исходник на Lazarus)
Post by: Tarik on February 23, 2014, 20:44:58
Есть проблема: на Win8x64 не запускается визуалка =) АИМП просто вылетает.
Win7x64 - норм.
Title: Re: OpenSpectrumLazarus Спектрум (исходник на Lazarus)
Post by: alexpac26 on February 23, 2014, 21:22:50
Soolo,

на протестируй, скомпилировал первый под Delphi

Title: Re: OpenSpectrumLazarus Спектрум (исходник на Lazarus)
Post by: Soolo on February 23, 2014, 21:37:47
на протестируй, скомпилировал первый под Delphi
тоже не работает
багрепорт
Code: [Select]
====================================================================================================
Exception Report - 2014.02.23 20:36:22
====================================================================================================
Program: AIMP3.exe [3.5.5]
OS Version: Windows 8.1 Enterprise (6.2.9200)
Account Info: Soolo / SOOLO-PC
Program up time: 00:00:29
Windows up time: 07:54:22
Screen: 1280 x 800, 32 bit, 96 ppi
Memory: 2293,90 / 4061,30 MB (Free / Total)
----------------------------------------------------------------------------------------------------
Module: AIMP3.dll
Class: EAccessViolation
Message: Access violation at address 01F76E09 in module 'AIMP3.dll'. Read of address 00000000
----------------------------------------------------------------------------------------------------
(00015E09){AIMP3.dll   } [01F76E09] System.UTF8ToUnicodeString
(0003CF4E){ntdll.dll   } [7734DF4E] Unknown function at RtlRaiseStatus
(0003CDB6){ntdll.dll   } [7734DDB6] KiUserExceptionDispatcher
(00015E96){AIMP3.dll   } [01F76E96] System.UTF8ToString
(002BE468){AIMP3.dll   } [0221F468] Vcl.Forms.TApplication.HandleException
(000FE910){AIMP3.dll   } [0205F910] System.Classes.StdWndProc
(00006691){USER32.dll  } [75067691] CallNextHookEx
(00007BA5){USER32.dll  } [75068BA5] Unknown function at FindWindowA
(00007463){USER32.dll  } [75068463] Unknown function at CallNextHookEx
(00008C3B){USER32.dll  } [75069C3B] DispatchMessageW
----------------------------------------------------------------------------------------------------
C:\Program Files (x86)\AIMP3\AIMP3.dll - 3.5.5.1340
C:\Program Files (x86)\AIMP3\AIMP3.exe - 3.5.5.1340
C:\Program Files (x86)\AIMP3\AIMP3lib.dll - 3.5.5.1340
C:\Program Files (x86)\AIMP3\bass.dll - 2.4.10.21
C:\Program Files (x86)\AIMP3\libsoxr.dll - Unknown
C:\Program Files (x86)\AIMP3\Modules\aimp_infobar.dll - 3.5.5.1340
C:\Program Files (x86)\AIMP3\Modules\aimp_libvorbis.dll - Unknown
C:\Program Files (x86)\AIMP3\Modules\aimp_mediakeys.dll - 3.5.5.1340
C:\Program Files (x86)\AIMP3\Modules\aimp_scheduler.dll - 3.5.5.1340
C:\Program Files (x86)\AIMP3\Modules\aimp_update.dll - 3.5.5.1340
C:\Program Files (x86)\AIMP3\Modules\basscd.dll - 2.4.5.3
C:\Program Files (x86)\AIMP3\Modules\lame_enc.dll - Unknown
C:\Program Files (x86)\AIMP3\Modules\libFLAC.dll - Unknown
C:\Program Files (x86)\AIMP3\Modules\MACDll.dll - Unknown
C:\Program Files (x86)\AIMP3\Modules\wavpackdll.dll - 4.60.0.1
C:\Program Files (x86)\AIMP3\Plugins\Aorta.svp - Unknown
C:\Program Files (x86)\AIMP3\Plugins\bass_aac.dll - 2.4.4.5
C:\Program Files (x86)\AIMP3\Plugins\bass_ac3.dll - 2.4.0.3
C:\Program Files (x86)\AIMP3\Plugins\bass_alac.dll - 2.4.3.0
C:\Program Files (x86)\AIMP3\Plugins\bass_ape.dll - 2.4.0.6
C:\Program Files (x86)\AIMP3\Plugins\bass_flac.dll - 2.4.1.0
C:\Program Files (x86)\AIMP3\Plugins\bass_midi.dll - 2.4.8.0
C:\Program Files (x86)\AIMP3\Plugins\bass_mpc.dll - 2.4.1.1
C:\Program Files (x86)\AIMP3\Plugins\bass_opus.dll - 2.4.1.1
C:\Program Files (x86)\AIMP3\Plugins\bass_spx.dll - 2.4.2.0
C:\Program Files (x86)\AIMP3\Plugins\bass_tta.dll - 2.4.0.0
C:\Program Files (x86)\AIMP3\Plugins\bass_wma.dll - 2.4.4.0
C:\Program Files (x86)\AIMP3\Plugins\bass_wv.dll - 2.4.2.0
C:\Program Files (x86)\AIMP3\Plugins\dsp_enh.dll - 0.1.7.0
C:\Program Files (x86)\AIMP3\Plugins\OpenSpectrumDelphi2014.svp - Unknown
C:\Program Files (x86)\AIMP3\Plugins\OpenSpectrumLazarus2014.svp - Unknown
C:\Program Files (x86)\AIMP3\Plugins\OpenThermalSpectrumLazarus2014.svp - Unknown
C:\Program Files (x86)\AIMP3\Plugins\OptimFROG.dll - 1.3.0.0
C:\Program Files (x86)\AIMP3\Plugins\tak_deco_lib.dll - 2.3.0.0
C:\Program Files (x86)\AIMP3\Sqlite3.dll - Unknown
Title: Re: OpenSpectrumLazarus Спектрум (исходник на Lazarus)
Post by: alexpac26 on February 23, 2014, 21:51:12
Soolo,

через message box можешь отловить где оно падает? может оно даже инициализацию не проходит?
Title: Re: OpenSpectrumLazarus Спектрум (исходник на Lazarus)
Post by: Soolo on February 23, 2014, 22:01:41
через message box можешь отловить где оно падает? может оно даже инициализацию не проходит?
к сожалению, не знаю, что это и с чем едят
Title: Re: OpenSpectrumLazarus Спектрум (исходник на Lazarus)
Post by: alexpac26 on February 23, 2014, 22:02:35
на версию с  message box

Title: Re: OpenSpectrumLazarus Спектрум (исходник на Lazarus)
Post by: Soolo on February 23, 2014, 22:07:36
на версию с  message box
последовательность такая:
(https://www.aimp.ru/forum/index.php?action=dlattach;topic=43286.0;attach=39212)
потом падение
Title: Re: OpenSpectrumLazarus Спектрум (исходник на Lazarus)
Post by: alexpac26 on February 23, 2014, 22:09:06
может UAC там недает файл создать не?

посмотри там лежит рядом OpenSpectrumLazarus2014.ini ?
Title: Re: OpenSpectrumLazarus Спектрум (исходник на Lazarus)
Post by: Soolo on February 23, 2014, 22:13:12
может UAC там недает файл создать не?
так точно, на портативном АИМПе всё хорошо
собственно, ничего удивительного
настройки должны храниться в папке профиля https://www.aimp.ru/forum/index.php?topic=38683.0
Title: Re: OpenSpectrumLazarus Спектрум (исходник на Lazarus)
Post by: alexpac26 on February 23, 2014, 22:15:00
надо будет положить в %AppData% :D
Title: Re: OpenSpectrumLazarus Спектрум (исходник на Lazarus)
Post by: alexpac26 on February 23, 2014, 22:45:27
Шапка обновлена, Пути сохранения заменены на %AppData%

Проверено Win7x64 UAC максимальный уровень защиты
Title: Re: OpenSpectrumLazarus Спектрум (исходник на Lazarus)
Post by: Soolo on February 23, 2014, 23:19:45
Шапка обновлена, Пути сохранения заменены на %AppData%
Да, теперь норм, но выше я давал ссылку (https://www.aimp.ru/forum/index.php?topic=38683.0), где лучше всего сохранять файлы настроек.

OpenThermalSpectrumLazarus работает около секунды, а потом окно визуализации чернеет, как будто попадается неподдерживаемая частота или уровень сигнала.
Title: Re: OpenSpectrumLazarus Спектрум (исходник на Lazarus)
Post by: alexpac26 on February 23, 2014, 23:36:51
Quote
Да, теперь норм, но выше я давал ссылку, где лучше всего сохранять файлы настроек.

как бы тут не AIMPTM API

а Открытое и совместимое не только с AIMPTM

Поэтому использовал %AppData% как один из возможных вариантов


Quote
OpenThermalSpectrumLazarus работает около секунды, а потом окно визуализации чернеет, как будто попадается неподдерживаемая частота или уровень сигнала.
вот этот проверь.
Я у себя тоже замечал нечто подобное, но через довольно продожительное время ~10-15 минут поэтому сложно поймать

Title: Re: OpenSpectrumLazarus Спектрум (исходник на Lazarus)
Post by: Soolo on February 23, 2014, 23:49:03
как бы тут не AIMPTM API

а Открытое и совместимое не только с AIMPTM

Поэтому использовал %AppData% как один из возможных вариантов
блин, забыл совсем
тогда да, норм

Я у себя тоже замечал нечто подобное, но через довольно продожительное время ~10-15 минут поэтому сложно поймать
во, так круче =) работает
даже фуллскрин работает, в отличие от классического спектрума
Title: Re: OpenSpectrumLazarus Спектрум (исходник на Lazarus)
Post by: alexpac26 on February 23, 2014, 23:52:03
Шапка обновлена (ссылка на OpenThermalSpectrum)

Quote
даже фуллскрин работает
до поры до времени.

ИМХО лучше переключить в 320x240
Title: Re: OpenSpectrumLazarus Спектрум (исходник на Lazarus)
Post by: PepperAim on February 26, 2014, 06:47:18
Win7 x64. При смене режима на полноэкранный или наоборот меняется ориентация, если была горизонтальная то в олноэкоанном - вертикальная и наоборот. А настроек нет ? скорость, цвет...
Title: Re: OpenSpectrumLazarus Спектрум (исходник на Lazarus)
Post by: Soolo on February 26, 2014, 09:18:27
Win7 x64. При смене режима на полноэкранный или наоборот меняется ориентация, если была горизонтальная то в олноэкоанном - вертикальная и наоборот. А настроек нет ? скорость, цвет...
клик левой кнопкой мыши меняет ориентацию
Title: Re: OpenSpectrumLazarus Спектрум (исходник на Lazarus)
Post by: alexpac26 on March 13, 2014, 13:07:50
шапка обновлена.
Title: Re: OpenSpectrumLazarus Спектрум (исходник на Lazarus)
Post by: alexpac26 on July 17, 2014, 08:38:00
Добавлена совместимость со скином Ryze v1.0.3 (https://aimp.ru/index.php?do=catalog&rec_id=406)

(http://jqbook.net.ru/cat_blog/lazarus/aimp_ruze.jpg)

https://yadi.sk/d/Km6EZoBkWkc5w << OpenSpectrumLazarus  с поддержкой Ryze

на всякий случай ссылка на Ryze визуализацуию

https://yadi.sk/d/u16dDCybbNMNi
Title: Re: OpenSpectrumLazarus Спектрум (исходник на Lazarus)
Post by: alexpac26 on November 02, 2014, 01:37:23
Версия 2
Редактор Визуализации
Title: Re: OpenSpectrumLazarus Спектрум (исходник на Lazarus)
Post by: Tarik on November 02, 2014, 13:53:33
alexpac26, +1! Полноэкранный режим просто сказка))
По умолчанию можно было бы чуть увеличить скорость нарастания/спадания столбцов, сейчас выглядит немного заторможено. И не понял, как открыть окно настроек кликом в верхнем правом углу, что-то совсем ничего не происходит. (АИМП 3.60)
Title: Re: OpenSpectrumLazarus Спектрум (исходник на Lazarus)
Post by: alexpac26 on November 02, 2014, 14:01:23
Quote
АИМП 3.60

почемуто в версии 3.6 не ловятся касания у Sonique плагинов
Title: Re: OpenSpectrumLazarus Спектрум (исходник на Lazarus)
Post by: Tarik on November 02, 2014, 14:05:46
почемуто в версии 3.6 не ловятся касания у Sonuque плагинов
Те, что .svp? Их можно без проблем переименовывать с расширением .dll
Title: Re: OpenSpectrumLazarus Спектрум (исходник на Lazarus)
Post by: Soolo on November 02, 2014, 20:49:34
почемуто в версии 3.6 не ловятся касания у Sonique плагинов
ответ Артёма:
Quote
Косяк в плагине:

Code: [Select]
function f_Clicked(x,y,buttons: Integer): BOOL; cdecl;
begin
  if (y<25) AND (LAST_DS.Width-x<25) then begin
      if FileExistsUTF8('OpenSpectrumLazarus2_editor.exe') then begin
          ShellExecuteW(0,'open','OpenSpectrumLazarus2_editor.exe','', nil, SW_SHOWNORMAL);
      end;
  end;
  result:=true;
end

У чела не указан путь к редактору, соответственно, винда берет текущую папку (CurrentDirectory) и в ней ищет указанный файл. То, что в 3.55 при каком-то стечении обстоятельств эта папка ссылалась на папку Plugins и все работало, не значит, что оно бы работало всегда.
Title: Re: OpenSpectrumLazarus Спектрум (исходник на Lazarus)
Post by: alexpac26 on November 02, 2014, 21:52:53
Исправлено
Code: [Select]
function f_Clicked(x,y,buttons: Integer): BOOL; cdecl;
var
  path: array [0 .. MAX_PATH-1] of WideChar;
  pathLength: integer;
  pf: WideString;
  ps: UTF8String;
begin
  if (y<30) AND (LAST_DS.Width-x<30) then begin
     pathLength:=windows.GetModuleFileNameW(HInstance, @path[0], MAX_PATH);
     // windows отвечает Unicode кодировкой
     // Lazarus Использует UTF8 кодировку в строках
     SetLength(pf,pathLength);
     Move(path[0],pf[1],pathLength*sizeOf(WideChar)); // копируем низкоуровневую строку в нормальную строку
     ps:=UTf8Encode(pf);
     ps:=ExtractFilePath(ps);
     pf:=UTF8Decode(ps);
     ps:=ps + 'OpenSpectrumLazarus2_editor.exe';
     if FileExistsUTF8( ps ) then begin // UTF8
        // Для Windows отправляем уже в Unicode
        // pf - Unicode строка
        ShellExecuteW(0,'open','OpenSpectrumLazarus2_editor.exe','', PWideChar(pf), SW_SHOWNORMAL);
     end;
  end;
  result:=true;
end;
Title: Re: OpenSpectrumLazarus Спектрум (исходник на Lazarus)
Post by: tracker35 on December 09, 2014, 18:48:30
win7 x64, учетка Администратора, aimp 3.55
плагин подхватывается и работает, смена отображения вида приводит к закрытию AIMP с ошибкой.
запуск OpenSpectrumLazarus2_editor.exe из папки с плагинами, выдает ошибку
(http://i.imgur.com/VzEuFZa.png)

создание пустого файла OpenSpectrumLazarus2014_Themes.bin никчему не приводит, прошу выслать исправный файл.
Title: Re: OpenSpectrumLazarus Спектрум (исходник на Lazarus)
Post by: alexpac26 on December 09, 2014, 19:57:35
перезалил http://jqbook.net.ru/up_files/openspectrumlazarus2-1-0.zip

в %AppData% удалите полностью файл OpenSpectrumLazarus2014_Config.bin и файл OpenSpectrumLazarus2014_Themes.bin



Title: Re: OpenSpectrumLazarus Спектрум (исходник на Lazarus)
Post by: Tarik on December 09, 2014, 20:27:48
перезалил http://jqbook.net.ru/up_files/openspectrumlazarus2-1-0.zip

в %AppData% удалите полностью файл OpenSpectrumLazarus2014_Config.bin и файл OpenSpectrumLazarus2014_Themes.bin
Пожалуйста, переносьте все обновления в первый пост.
Title: Re: OpenSpectrumLazarus Спектрум (исходник на Lazarus)
Post by: tracker35 on December 10, 2014, 23:53:53
Выше описанная проблема не пропала, файлы OpenSpectrumLazarus2014_Config.bin и файл OpenSpectrumLazarus2014_Themes.bin
не создаются в %AppData%
Title: Re: OpenSpectrumLazarus Спектрум (исходник на Lazarus)
Post by: alexpac26 on December 11, 2014, 00:07:29
Запуск просто редактора из папки тоже вызывает ошибку?

Путь до AppData у вас содержит русские буквы?

Короче создам русского пользователя и проверю..
Title: Re: OpenSpectrumLazarus Спектрум (исходник на Lazarus)
Post by: alexpac26 on December 11, 2014, 00:38:37
http://jqbook.net.ru/up_files/openspectrumlazarus2-1-1.zip

проверяйте, если все ок заменю файл на основной ссылке.
Title: Re: OpenSpectrumLazarus Спектрум (исходник на Lazarus)
Post by: tracker35 on December 11, 2014, 14:23:59
Да теперь необходимые файлы создаются, OpenSpectrumLazarus2_editor работает, цвета меняется.
Нет переключения внешнего вида по клику на визуализации, как на 4'ом скрине 1го сообщения.
Title: Re: OpenSpectrumLazarus Спектрум (исходник на Lazarus)
Post by: alexpac26 on December 11, 2014, 14:46:41
Quote
Нет переключения внешнего вида по клику на визуализации, как на 4'ом скрине 1го сообщения.
Это другая визуализация. http://jqbook.net.ru/lazarus/spvis2

ссылка для скачивания номер 2 на первой странице



Исходные файлы поправлены визуализации перекомпилированы. Изменений в визуализациях нет. Исправлено создание файлов в %AppData% под русским пользователем.
Кто скачал и использовал под русским пользователем - перекачайте заново по ссылкам.

Title: Re: OpenSpectrumLazarus Спектрум (исходник на Lazarus)
Post by: EugeneFreedom on July 08, 2015, 15:06:50
Всем привет!
Давно искал данную визуализацию, или что-то похожее. Скачал и сразу выдало ошибку

Сигнатура проблемы:
  Имя события проблемы:   APPCRASH
  Имя приложения:   AIMP3.exe
  Версия приложения:   3.6.0.1495
  Отметка времени приложения:   556f210e
  Имя модуля с ошибкой:   ntdll.dll
  Версия модуля с ошибкой:   6.1.7601.17514
  Отметка времени модуля с ошибкой:   4ce7ba58
  Код исключения:   c0000005
  Смещение исключения:   0002ec3c
  Версия ОС:   6.1.7601.2.1.0.256.48
  Код языка:   1049
  Дополнительные сведения 1:   96e0
  Дополнительные сведения 2:   96e0378783243addea5128a56bec8d53
  Дополнительные сведения 3:   5fd1
  Дополнительные сведения 4:   5fd181819e9ec2b0f98cf2846a51a3a5

Если кто поможет, буду благодарен.
Title: Re: OpenSpectrumLazarus Спектрум (исходник на Lazarus)
Post by: Soolo on July 08, 2015, 15:35:28
Всем привет!
Давно искал данную визуализацию, или что-то похожее. Скачал и сразу выдало ошибку
какая именно визуализация вызвала ошибку?
играл плеер, стоял на паузе или на стопе? на каком треке?
Title: Re: OpenSpectrumLazarus Спектрум (исходник на Lazarus)
Post by: alexpac26 on July 08, 2015, 15:44:12
на последней версии AIMP не тестировал.
скачаю последний AIMP посмотрю, отпишусь.
Title: Re: OpenSpectrumLazarus Спектрум (исходник на Lazarus)
Post by: alexpac26 on July 08, 2015, 19:49:14
проверил на AIMP 3.6.1495

(https://www.aimp.ru/forum/index.php?action=dlattach;topic=43286.0;attach=44201)

все ок.
Title: Re: OpenSpectrumLazarus Спектрум (исходник на Lazarus)
Post by: alexpac26 on December 02, 2015, 08:41:35
https://www.aimp.ru/forum/index.php?topic=25627.90
Quote
    господа - никто не подскажет как поднять пики что бы в полноэкранном варианте отображалось все линии и в середине тоже

Quote
переключить частоту выхода на слышимый диапазон: 44100 Гц (настройки \ воспроизведение)

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

OpenSpectrum в нормально работает в обычном 44100 Гц диапазоне.
Под другие типа 96000 Гц матрица спектрального максимума не рассчитывалась, поэтому могут быть неверны показания.

Также максимальное количество полос вывода равно 100. Если выбрать больше, будет неверно отображаться, вероятно программная ошибка.

Title: Re: OpenSpectrumLazarus Спектрум (исходник на Lazarus)
Post by: login on January 10, 2016, 23:13:08
https://www.aimp.ru/forum/index.php?topic=25627.90
В соседней теме обсуждается поведение спектров при частоте вывода больше стандартной.

OpenSpectrum в нормально работает в обычном 44100 Гц диапазоне.
Под другие типа 96000 Гц матрица спектрального максимума не рассчитывалась, поэтому могут быть неверны показания.

Также максимальное количество полос вывода равно 100. Если выбрать больше, будет неверно отображаться, вероятно программная ошибка.
Здравствуйте Алекс, огромное спасибо вам за плагин
перезалил http://jqbook.net.ru/up_files/openspectrumlazarus2-1-0.zip

в %AppData% удалите полностью файл OpenSpectrumLazarus2014_Config.bin и файл OpenSpectrumLazarus2014_Themes.bin

Перенесите, пожалуйста, ссылку  в первый пост, а то не все могут найти, огромное спасибо за рабочий редактор, смог настроить оранжевинькое, как и хотел:)
Win 8.1 x64 AIMP 4.0 полёт нормальный

З.Ы. логинился с этого ника чтобы зря не регистрироваться
Title: Re: OpenSpectrumLazarus Спектрум (исходник на Lazarus)
Post by: Stargather on January 31, 2016, 23:52:59
А у меня не идет - вылетает плеер и всё :(
Последняя версия проги, скачана с оф сайта, система - винда семерка, сп1
Title: Re: OpenSpectrumLazarus Спектрум (исходник на Lazarus)
Post by: alexpac26 on January 03, 2017, 23:40:53
Quote
А у меня не идет - вылетает плеер и всё :(
Последняя версия проги, скачана с оф сайта, система - винда семерка, сп1

windows 7 x64, aimp 4.12 проверен, работает
замечено отсутствие оптимизации пиков (макс высота 75% от окна)
в pandemic скине все ок
судя по спектру матрица спектра требует перерасчета, однако благодаря адаптивному алгоритму сама подстраивается через некоторое время.
Title: Re: OpenSpectrumLazarus Спектрум (исходник на Lazarus)
Post by: Evg3559 on February 04, 2018, 17:04:40
При попытке запустить OpenThermalSpectrumLazarus v2.0 плеер крашится.
Инфа в вылетающем окошке:
Quote
Сигнатура проблемы:
  Имя события проблемы:   APPCRASH
  Имя приложения:   AIMP.exe
  Версия приложения:   4.5.0.2058
  Отметка времени приложения:   5a437e2b
  Имя модуля с ошибкой:   MSCTF.dll
  Версия модуля с ошибкой:   6.1.7601.23403
  Отметка времени модуля с ошибкой:   56f58399
  Код исключения:   c0000005
  Смещение исключения:   00004307
  Версия ОС:   6.1.7601.2.1.0.256.1
  Код языка:   1049
  Дополнительные сведения 1:   8ae6
  Дополнительные сведения 2:   8ae6df3a306969d35926c90e27f0695a
  Дополнительные сведения 3:   80c9
  Дополнительные сведения 4:   80c9604515d510d88dbb99375ee433f8

А так бы хотелось его посмотреть. Люблю такие штуки.
Title: Re: OpenSpectrumLazarus Спектрум (исходник на Lazarus)
Post by: alexpac26 on February 05, 2018, 13:10:12
версия 4+ не поддерживается
спектр оптимизирован на версию 3.6+
для использования установите версию 3.6+
https://www.aimp.ru/?do=download&cat=old
Title: Re: OpenSpectrumLazarus Спектрум (исходник на Lazarus)
Post by: Soolo on February 05, 2018, 13:16:35
При попытке запустить OpenThermalSpectrumLazarus v2.0 плеер крашится.
Попробуйте эту сборку: https://yadi.sk/d/gbyafX063RkjaG
У меня на ней ничего не падает.
Title: Re: OpenSpectrumLazarus Спектрум (исходник на Lazarus)
Post by: Evg3559 on February 05, 2018, 13:49:10
Quote
Попробуйте эту сборку: https://yadi.sk/d/gbyafX063RkjaG
У меня на ней ничего не падает.

Как-то так. Логер тоже завис =)
Логов в папке с программой не нашел.

сообщение в окошке
Quote
Сигнатура проблемы:
  Имя события проблемы:   APPCRASH
  Имя приложения:   AIMP.exe
  Версия приложения:   4.5.0.2060
  Отметка времени приложения:   5a6f7009
  Имя модуля с ошибкой:   AIMP.Runtime.dll
  Версия модуля с ошибкой:   4.5.0.2060
  Отметка времени модуля с ошибкой:   5a6f6ff5
  Код исключения:   c0000005
  Смещение исключения:   00011d5d
  Версия ОС:   6.1.7601.2.1.0.256.1
  Код языка:   1049
  Дополнительные сведения 1:   9459
  Дополнительные сведения 2:   9459acf64d9b3ededfd8466b0b7294fc
  Дополнительные сведения 3:   df07
  Дополнительные сведения 4:   df07d1df83f65dea6d579ff96c49cff9

Скрин во вложении

ps. Попытка номер два на записи https://yadi.sk/i/E8PpRH3e3S6wVB

pss Нашел дампы в папке \AppData\Local\CrashDumps
тут https://yadi.sk/d/8pmpcT293S6xH7

AIMP.exe.4764.dmp последний
Title: Re: OpenSpectrumLazarus Спектрум (исходник на Lazarus)
Post by: Evg3559 on February 05, 2018, 14:33:48
У меня получилось сохранить багрепорт. Поставил плеер на паузу и поменял визуализацию. Багрепортёр не завис.
Title: Re: OpenSpectrumLazarus Спектрум (исходник на Lazarus)
Post by: Artem on February 05, 2018, 14:47:19
где-то в плагине Stack overflow
Title: Re: OpenSpectrumLazarus Спектрум (исходник на Lazarus)
Post by: alexpac26 on February 06, 2018, 13:48:15
пока Evg3559 не проверит 3.6 делать выводы про ошибку в плагине рано
Title: Re: OpenSpectrumLazarus Спектрум (исходник на Lazarus)
Post by: Stepan81 on June 23, 2022, 02:11:39
Artem Вы можете сделать чтобы этот плагин OpenSpectrumLazarus2 работал на новой версии аимпа 5.03 x64 bit
Title: Re: OpenSpectrumLazarus Спектрум (исходник на Lazarus)
Post by: Artem on June 23, 2022, 08:11:55
Попробуйте эту штуку:
https://www.aimp.ru/forum/index.php?topic=68732.0
Title: Re: OpenSpectrumLazarus Спектрум (исходник на Lazarus)
Post by: Stepan81 on June 23, 2022, 17:31:47
Плагин работает но тормозит на х64....
на х32 он работает идеально.....
Title: Re: OpenSpectrumLazarus Спектрум (исходник на Lazarus)
Post by: Artem on June 24, 2022, 08:32:38
Будет время - перепишу на наш API. Иначе под 64-бита он не заведется
Title: Re: OpenSpectrumLazarus Спектрум (исходник на Lazarus)
Post by: Stepan81 on June 24, 2022, 22:52:39
Понятно!!! Будем ждать....
Title: Re: OpenSpectrumLazarus Спектрум (исходник на Lazarus)
Post by: sveakul on June 26, 2022, 00:33:00
Я тоже с нетерпением жду этого!