Информационный сервер для программистов: Исходники со всего света. Паскальные исходники со всего света
  Powered by Поисковый сервер Яndex: Найдется ВСЁ!
На Главную Pascal Форум Информер Страны мира
   Звуки и Музыка    >>    007
   
 
 007 - Enhanser for Musical Editor 006 (Speaker)  D.G. Shirvanyanz 29.06.1996

Дополнение к музыкальному редактору 006.
Демонстрирует использование в паскаль-программе музыкальных файлов, созданных с помощью 006. Главная программа написана с использованием Turbo Vision. Включен и сам музыкальный редактор 006, его музыкальные файлы примеров и все необходимые TV модули.



365k 
 

Можете считать это еще одной демонстрационной программой Turbo Vision. Я написал ее, когда увидел музыкальный редактор 006. В общем-то это хороший редактор, но меня стесняли его неубства : ограничение на размер файлов данных, зависимость скорости исполнения от быстроты процессора, невозможность исполнения музыки за пределами редактора, кроме как через COM - файлы, которые невозможно прервать или остановить, либо похожим способом через текст программы на Паскале. Моя программа дополняет 006, она делает то, чего не умеет делать редактор. Она читает файлы данных редактора, но сама хранит их в собственном формате. Ее файлы могут содержать несколько отдельных частей, которые можно пере- ставлять, выделять, удалять и пр., а также записывать в специальные COM - файлы, размер которых ограничен только пределом для COM - файлов. Собственные файлы данных также содержат информацию об относительной ско- рости работы процессора машины, на которой они были созданы, поэтому при переносе готовых файлов на другую машину, при исполнении их темп будет соответственно подогнан к скорости другого процессора. Кстати, любопытная деталь. Там, в меню готовой программы есть пункт : Play|Play on display. При его выполнении программа создаст код COM - файла, запишет его в видеобуфер, и передаст туда управление. Как ни странно, но это работает ! Правда, видеопамять работает медленнее обычной, но все-таки код исполняется. Иногда это может выглядеть эффектно. Я привожу тексты всех моих модулей, а также все нужные модули Turbo Vision. К сожалению, у меня дурная привычка обходиться минимальным количеством ком- ментариев, но думаю по идентификаторам смысл текста уловить можно. Формат собственных файлов можно понять, разобрав процедуры чтения и записи. Программа делается так : сперва нужно откомпилировать программу, (текст самой программы содержится в 007.PAS, но основное ее содержимое находится в модуле APPMAIN.PAS),затем в конец EXE-