Хм, Касперский и Яндекс.Протект ругаются на архив.Из касперского у меня только Removal Tools, на компе он ничего не нашёл.
...Попробуй подключить к плагину VCL.Controls.Добавил в uses, файл распух вдвое.
Из касперского у меня только Removal Tools, на компе он ничего не нашёл.
Я уже как-то сталкивался с такой проблемой - что-то в новом VCL-е под 64-бит попадает под сигнатуры.Похоже, подобная паранойя только у касперского.
Небольшая доработка, добавлено затухание кадров.Мне кажется он начал себя плохо чувствовать
фпс маленькийFPS снижен намеренно, прежнее мельтешение быстро утомляет - обрабатывается одно обращение к плагину из 8.
и не доконца стирается (остаются тени даже после остановки воспроизведения)Стирание фона производится заливкой чёрным цветом с альфа-каналом. У меня через 2-3 с после остановки окно чёрное.
У меня через 2-3 с после остановки окно чёрное.У меня остаются тени пока их не перерисуют другие элементы
У меня остаются тени пока их не перерисуют другие элементыАга, увидел на тёмном фоне. Хотел сделать стирание плавнее, и не задумался, что цвет $08000000 действительно никогда до черноты не доведёт, надо не менее $10000000.
Спасибо за замечание.о ещё и фпс поднялся
Файл заменил.
о ещё и фпс поднялсяМожно не ограничивать FPS, в плагинах он всё равно выше 30 не будет, зато будет вот такая каша - https://disk.yandex.ru/d/E1UEXh3BnubGXg
Можно не ограничивать FPS, в плагинах он всё равно выше 30 не будет, зато будет вот такая каша - https://disk.yandex.ru/d/E1UEXh3BnubGXgпризнаться честно эффект очень интересный
upd: если на полноэкранном режиме сильно-сильно-сильно-сильно-сильно-сильно-сильно присмотреться тени всё равно остаются :0 (особенно видно с прозрачным окном)
признаться честно эффект очень интересныйНо на калейдоскоп это уже совсем не похоже...
upd: если на полноэкранном режиме сильно-сильно-сильно-сильно-сильно-сильно-сильно присмотреться тени всё равно остаются :0Да, действительно, что-то остаётся. Загадка ... В Polar Waves стирание сделано точно таким же методом, но ничего не остаётся. Возможно, причина в том, что в сабжевом плагине рисование реализовано обычными полигонами, а Polar Waves используются процедуры из библиотеки ACL...
Странную вещь заметил на днях: в х64 версии плагина пропал красный цвет. В х32 всё норм.
Оказалось, что значения массива Data.Spectrum в первых индексах (1..10) имеют запредельные значения, и полигоны попросту не входят в окно. Пришлось поделить эти значения на 10 !
Кроме того, даже в режиме СТОП в том же диапазоне частот присутствует какой-то "шум" (какие-то данные передаются в массиве) и красные полигоны при этом отображаются и в максимальном размере.
Data.Spectrum в первых индексах (1..10) имеют запредельные значения
Кроме того, даже в режиме СТОП в том же диапазоне частот присутствует какой-то "шум" (какие-то данные передаются в массиве) и красные полигоны при этом отображаются и в максимальном размере.
Нашёл, в чём дело. У меня весь спектр разбит на 5 диапазонов, в каждом вычисляется максимум и присваивается локальной переменной в процедуре рисования.
В х32 версии эти переменные обнуляются автоматом при вызове процедуры, а в х64 - нет. Пришлось принудительно обнулять.
Исправленный вариант в первом посте.