Генератор музыки на Delphi , на основе текстовых макросов

Я тут, как обычно, подумал, и решил выложить на всеобщее обозрение собственнонаписанную программу для генерации музыки по текстовым файлам и wav-сэмплам.
Хочется автоматизировать диджейскую работу, чтобы шедевры ваять было легче.

v0.0.3: http://hexcity.com/mss/mss_v0_0_3.rar 1.35 МБ

Исходники проекта в архиве.

Страница проекта: http://hexcity.com/mss/

Сообщение отредактировано: DJ KARIES - 07.01.07, 09:23

Гм. Идея явно не нова. Поэтому проект надо было выложить тут: Разработка и тестирование программ

Ну, кроме CSound, я не сталкивался.
К тому же на CSound делаются звуковые сэмплы, а не компонуется мелодия из готовых сэмплов.
И самое главное, нет подобных проектов с исхлдниками на Delphi.

Вообще-то я про FL Studio (Fruity Loops) и его аналоги...

a можна на основе этой проги какнить замутить jungle/ d'n'b циклы для ударных?

Цитата B.V. @ 14.10.06, 16:42

Вообще-то я про FL Studio (Fruity Loops) и его аналоги...

Ё моё.
Я делаю чисто СКРИПТОВУЮ невизуальную систему, расчитанную на программиста.
Упор идёт на реиспользование фрагментов мелодии и алгоритмическую генерацию параметров.

Цитата mICRo @ 14.10.06, 17:32

a можна на основе этой проги какнить замутить jungle/ d'n'b циклы для ударных?

Да.

---

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

Цитата DJ KARIES @ 14.10.06, 17:48

Я делаю чисто СКРИПТОВУЮ невизуальную систему, расчитанную на программиста.

Видимо, я чего-то не понимаю. То есть ты сознательно усложняешь жизнь тем, кто хочет составить какой-то трек?

Поясню:

Не визуальное создание треков несравнимо труднее визуального. И никаких преимуществ первого перед вторым я не вижу.

Цитата B.V., 14.10.2006, 21:06:48, 1303102

Не визуальное создание треков несравнимо труднее визуального. И никаких преимуществ первого перед вторым я не вижу.

не скажи... у меня, например, музыкальный слух только "наполовину" - я хорошо чувствую музыку, но совершенно не способен играть на каких-то инструментах, и меня ОЧЕНЬ напрягает пользование визуальными аудио-редакторами. Иногда ну ОЧЕНЬ хочется иметь возможность не читать тупо график-трек, а просто написать скрипт типа

for n=starttrack+1 to endtrack
if abs(sample(n)value)-abs(sample(n-1)value))>20% then sample(n).basenormalize
next n

да и с loops тоже лично мне было бы удобнее описывать их численно, а не визуально.

делал я (вернее сказать - пытался делать) нечто подобное на VB, да увы - энтузиазм иссяк на середине (даже поменьше), так и забросил...

Цитата B.V. @ 14.10.06, 18:06

Видимо, я чего-то не понимаю. То есть ты сознательно усложняешь жизнь тем, кто хочет составить какой-то трек?
Поясню:
Не визуальное создание треков несравнимо труднее визуального. И никаких преимуществ первого перед вторым я не вижу.

Будут отдельные визуальные утилиты.
Но в целом, это будет скриптовая система.
Гораздо более удобная, по крайней мере для меня, чем трекеры.
Flstudio, Sonar, Acid, Orion и т.д. я юзал.
Более близок по духу мне Acid.

Цитата Змей(Чёрный) @ 15.10.06, 00:15

делал я (вернее сказать - пытался делать) нечто подобное на VB, да увы - энтузиазм иссяк на середине (даже поменьше), так и забросил...

Можно ссылочку на это творение?

Выложил обновлённую версию:
http://hexcity.com/mss/mss_2.rar (556 КБ)

Добавлены ударники, антиалиасинг, мультитрековость.
Но при проигрывании более одного трека, сэмплер временные метки криво понимает, т.е. несколько треков как бы замедляются.

Добавлено 15.10.06, 06:54
PS: в архиве исходники проекта (Delphi 7).

Сообщение отредактировано: DJ KARIES - 07.01.07, 09:23

Цитата DJ KARIES, 15.10.2006, 7:44:34, 1303288

Можно ссылочку на это творение?

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

Я тут проблемы с многотрековостью устранил и delay-фильтр сделал. Ещё чего доработаю и в понедельник выложу обновление.
Надо рендер в wav-файл сделать.

Добавлено 15.10.06, 19:41
Потом ещё стековую машину прикручу.

Выпустил версию 0.0.3.
Что нового:

0.0.3 22.10.2006
  + Маркеры (marker, wait_marker)
  - Замедление при воспроизведении нескольких треков
  + Однострочные комментарии символом "|"
  + Раздельный рендеринг треков при воспроизведении
  + Фильтр Delay
  + Указание главной громкости
  + Указание темпа
  + Указание формата задержки (wait) в ударах (wait 1/4 beat), сэмплах (wait 22050 sample)
  * Демо-мелодия

http://hexcity.com/mss/mss_v0_0_3.rar (1.35 МБ)

Сообщение отредактировано: DJ KARIES - 07.01.07, 09:24

Цитата DJ KARIES @ 14.10.06, 12:46

Страница проекта:

Цитата

Bandwidth Limit Exceeded

И архив не качается.

Надо хостера менять (umox.net).
Ацтой получился за $1 в месяц.

Оно у тебя на форте, я надеюсь?

Оно - это генератор MSS?
На Delphi 7.
Консоль.