Компьютер сочиняет музыку

Автор обещает много интересных штучек.

Модератор: The trick

The trick
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 491
Зарегистрирован: 26.06.2010 (Сб) 23:08
Откуда: Астрахань

Компьютер сочиняет музыку

Сообщение The trick » 27.01.2016 (Ср) 13:07


Всем привет. Как-то давно я делал виртуального композитора для создания 8-бит музыки, но в итоге забросил это дело. Я даже писал об этом и выкладывал демки (вот и вот). На днях я немного доработал его + добавил свои синтезаторы (вот и вот) в него + банки пресетов к ним.
Кстати там же можете добавлять новые пресеты и сохранять их.
Конечно музыкой это назвать нельзя (из-за кривого алгоритма, который я разработал давно, когда еще и музыку толком сам не умел делать и программировать не умел), но поиграться можно.
Для создания нового трека нужно придумать имя трека и ввести его в поле Name, если поле ничего не содержит оно заполнится произвольным числом. На основе имени создается трек (вычисляется хэш и это значение используется в качестве зерна псевдослучайного генератора), т.е. имя будет однозначно идентифицировать трек. Поле Tempo задает темп. Правой кнопкой мыши по треку - открывает окно синтезатора трека, можно менять параметры тем самым изменяя звучание. Левой кнопкой по паттерну - просмотреть паттерн. Никаких поверок нет, так что не нужно туда вводить неправильные значения иначе программа "рухнет".
Также программа может зависнуть (опять-таки из-за кривого алгоритма) при создании трека.

Некоторые интересные найденные треки:
  1. 45645
  2. Хакер
  3. VBStreets.ru
  4. Телепат
  5. 681
  6. 60000
  7. 43964
  8. 412
  9. 44170
  10. 30691
  11. 28259
  12. 56865
  13. 38399
  14. basic
  15. 48029
  16. space
  17. 73180
  18. 41990
  19. 52528
  20. 7902
  21. 95280

Удачи!

Группа в ВК.
Вложения
Version_1.4.zip
(545.03 Кб) Скачиваний: 24
Анатолий Кривоус | http://vk.com/thetrick | http://promodj.com/Thetrik

Хакер
Телепат
Телепат
Аватара пользователя
 
Сообщения: 16017
Зарегистрирован: 13.11.2005 (Вс) 2:43
Откуда: Казахстан, Петропавловск

Re: Компьютер сочиняет музыку

Сообщение Хакер » 27.01.2016 (Ср) 13:19

И опять-таки без исходников.
—We separate their smiling faces from the rest of their body, Captain.
—That's right! We decapitate them.

The trick
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 491
Зарегистрирован: 26.06.2010 (Сб) 23:08
Откуда: Астрахань

Re: Компьютер сочиняет музыку

Сообщение The trick » 27.01.2016 (Ср) 13:54

Хакер писал(а):И опять-таки без исходников.

The trick писал(а):и программировать не умел

Поэтому мне даже стыдно их публиковать.
Анатолий Кривоус | http://vk.com/thetrick | http://promodj.com/Thetrik

Mikle
Изобретатель велосипедов
Изобретатель велосипедов
Аватара пользователя
 
Сообщения: 3723
Зарегистрирован: 25.03.2003 (Вт) 14:02
Откуда: Туапсе

Re: Компьютер сочиняет музыку

Сообщение Mikle » 27.01.2016 (Ср) 17:13

А я на твоей dsvb.tlb своё начал мутить, с исходником, вот:
https://yadi.sk/d/H3r6Qw7Snpoco

Хакер
Телепат
Телепат
Аватара пользователя
 
Сообщения: 16017
Зарегистрирован: 13.11.2005 (Вс) 2:43
Откуда: Казахстан, Петропавловск

Re: Компьютер сочиняет музыку

Сообщение Хакер » 27.01.2016 (Ср) 17:15

Mikle писал(а):https://yadi.sk/d/H3r6Qw7Snpoco

Жалко, что мой браузер слишком стар, чтобы заценить :(
—We separate their smiling faces from the rest of their body, Captain.
—That's right! We decapitate them.

Mikle
Изобретатель велосипедов
Изобретатель велосипедов
Аватара пользователя
 
Сообщения: 3723
Зарегистрирован: 25.03.2003 (Вт) 14:02
Откуда: Туапсе

Re: Компьютер сочиняет музыку

Сообщение Mikle » 27.01.2016 (Ср) 17:21

Твой браузер не может с Яндекс-диска качать??? Заливаю сюда:
Вложения
Bass.zip
(15.47 Кб) Скачиваний: 77

Хакер
Телепат
Телепат
Аватара пользователя
 
Сообщения: 16017
Зарегистрирован: 13.11.2005 (Вс) 2:43
Откуда: Казахстан, Петропавловск

Re: Компьютер сочиняет музыку

Сообщение Хакер » 27.01.2016 (Ср) 17:22

Mikle писал(а):Твой браузер не может с Яндекс-диска качать???

viewtopic.php?f=54&t=51618
—We separate their smiling faces from the rest of their body, Captain.
—That's right! We decapitate them.

Хакер
Телепат
Телепат
Аватара пользователя
 
Сообщения: 16017
Зарегистрирован: 13.11.2005 (Вс) 2:43
Откуда: Казахстан, Петропавловск

Re: Компьютер сочиняет музыку

Сообщение Хакер » 27.01.2016 (Ср) 17:29

Mikle писал(а):Заливаю сюда:

Так это не автогенерация мелодий, как у Анатолия, а просто прототип секвенсора? Или я просто не разобрался, как сгенерировать новый паттерн?
—We separate their smiling faces from the rest of their body, Captain.
—That's right! We decapitate them.

Mikle
Изобретатель велосипедов
Изобретатель велосипедов
Аватара пользователя
 
Сообщения: 3723
Зарегистрирован: 25.03.2003 (Вт) 14:02
Откуда: Туапсе

Re: Компьютер сочиняет музыку

Сообщение Mikle » 27.01.2016 (Ср) 18:18

Это синтез не мелодии, а звука. Эмулируется колебание струны. А партия записывается, да, как в секвенсоре.

The trick
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 491
Зарегистрирован: 26.06.2010 (Сб) 23:08
Откуда: Астрахань

Re: Компьютер сочиняет музыку

Сообщение The trick » 27.01.2016 (Ср) 19:57

Mikle писал(а):А я на твоей dsvb.tlb своё начал мутить, с исходником, вот:
https://yadi.sk/d/H3r6Qw7Snpoco

Хорошо что пригодилась :D .
Я так понял физическое моделирование?
Анатолий Кривоус | http://vk.com/thetrick | http://promodj.com/Thetrik

Mikle
Изобретатель велосипедов
Изобретатель велосипедов
Аватара пользователя
 
Сообщения: 3723
Зарегистрирован: 25.03.2003 (Вт) 14:02
Откуда: Туапсе

Re: Компьютер сочиняет музыку

Сообщение Mikle » 27.01.2016 (Ср) 21:55

The trick писал(а):Я так понял физическое моделирование?

Да, это одна из моих любимых тем.

The trick
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 491
Зарегистрирован: 26.06.2010 (Сб) 23:08
Откуда: Астрахань

Re: Компьютер сочиняет музыку

Сообщение The trick » 28.01.2016 (Чт) 10:23

Mikle писал(а):
The trick писал(а):Я так понял физическое моделирование?

Да, это одна из моих любимых тем.

Кстати здесь не используется DirectSound, а используется Winmm, который я обернул в класс.
Анатолий Кривоус | http://vk.com/thetrick | http://promodj.com/Thetrik

Mikle
Изобретатель велосипедов
Изобретатель велосипедов
Аватара пользователя
 
Сообщения: 3723
Зарегистрирован: 25.03.2003 (Вт) 14:02
Откуда: Туапсе

Re: Компьютер сочиняет музыку

Сообщение Mikle » 28.01.2016 (Чт) 10:55

The trick писал(а):Кстати здесь не используется DirectSound, а используется Winmm, который я обернул в класс.

Видимо потому, что на момент написания программы обёртки над DS ещё не было?

The trick
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 491
Зарегистрирован: 26.06.2010 (Сб) 23:08
Откуда: Астрахань

Re: Компьютер сочиняет музыку

Сообщение The trick » 28.01.2016 (Чт) 11:39

Mikle писал(а):Видимо потому, что на момент написания программы обёртки над DS ещё не было?

Нет на момент написания это было сделано через dx8vb. Я использовал класс т.к. это просто более удобно, генерируется эвент и ты заполняешь данные, для отладки очень хорошо, т.к. нет проблем при паузах. Можешь посмотреть clsTrickSound.cls тут, для дебага. Финальную версию можешь сделать через ds, чтобы меньше места занимало. Я так понимаю ты это для 32к конкурса делаешь чтобы музыка генерировалась?
Анатолий Кривоус | http://vk.com/thetrick | http://promodj.com/Thetrik

Mikle
Изобретатель велосипедов
Изобретатель велосипедов
Аватара пользователя
 
Сообщения: 3723
Зарегистрирован: 25.03.2003 (Вт) 14:02
Откуда: Туапсе

Re: Компьютер сочиняет музыку

Сообщение Mikle » 28.01.2016 (Чт) 15:46

The trick писал(а): Я так понимаю ты это для 32к конкурса делаешь чтобы музыка генерировалась?

Это одна из старых наработок, я их перебираю к конкурсу.

Mikle
Изобретатель велосипедов
Изобретатель велосипедов
Аватара пользователя
 
Сообщения: 3723
Зарегистрирован: 25.03.2003 (Вт) 14:02
Откуда: Туапсе

Re: Компьютер сочиняет музыку

Сообщение Mikle » 29.01.2016 (Пт) 10:34

Освободился, смог по достоинству оценить творение The trick.
Радует разнообразие, некоторые варианты очень достойны, такой синтезатор был бы очень кстати в какой-нибудь мини-игре, чтобы играл всё время что-то новенькое.
Небольшой баг - если остановить недоиграный трек, создать новый и запустить его, то в самом начале слышен кусок старого трека.

The trick
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 491
Зарегистрирован: 26.06.2010 (Сб) 23:08
Откуда: Астрахань

Re: Компьютер сочиняет музыку

Сообщение The trick » 29.01.2016 (Пт) 10:46

Mikle писал(а):Освободился, смог по достоинству оценить творение The trick.
Радует разнообразие, некоторые варианты очень достойны, такой синтезатор был бы очень кстати в какой-нибудь мини-игре, чтобы играл всё время что-то новенькое.
Небольшой баг - если остановить недоиграный трек, создать новый и запустить его, то в самом начале слышен кусок старого трека.

Спасибо! Багов много, буду по возможности устранять. Там и до конца паттерны не проигрываются в конце трека. Буду внедрять новый алгоритм. Была еще такая мысль сделать алгоритмы в виде DLL, чтобы подключать их как VST, но только каждый свою музыку будет генерировать и использовать свои синтезаторы.
Анатолий Кривоус | http://vk.com/thetrick | http://promodj.com/Thetrik

Jack Ferre
Продвинутый пользователь
Продвинутый пользователь
Аватара пользователя
 
Сообщения: 128
Зарегистрирован: 17.02.2014 (Пн) 14:31
Откуда: Казахстан, Костанай

Re: Компьютер сочиняет музыку

Сообщение Jack Ferre » 01.02.2016 (Пн) 20:46

:thumleft:
Хакер писал(а):Жалко, что мой браузер слишком стар, чтобы заценить

Жалко ff
Что (original mix)
Мой браузер
☺☺☺☺☺☺☺ ☺☺☺☺
Слишком старый
666
Жалко браузер

[offtopic]
? ? ? ? ? >> Я идиот! Убейте меня, кто-нибудь!
Хм... А я думаю: "С чего вдруг многие эту хрень пишут?"
[/offtopic]

The trick
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 491
Зарегистрирован: 26.06.2010 (Сб) 23:08
Откуда: Астрахань

Re: Компьютер сочиняет музыку

Сообщение The trick » 01.02.2016 (Пн) 20:54

Пилю новую версию потихоньку
Безымянный.PNG
Безымянный.PNG (25.23 Кб) Просмотров: 4727
Анатолий Кривоус | http://vk.com/thetrick | http://promodj.com/Thetrik

The trick
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 491
Зарегистрирован: 26.06.2010 (Сб) 23:08
Откуда: Астрахань

Re: Компьютер сочиняет музыку

Сообщение The trick » 22.04.2016 (Пт) 20:30

Новая версия 1.1
    Добавлены новые пресеты.
Скачать.
Создана группа в ВК.
Вложения
Version_1.1.rar
(198.79 Кб) Скачиваний: 72
Анатолий Кривоус | http://vk.com/thetrick | http://promodj.com/Thetrik

bon818
Бывалый
Бывалый
Аватара пользователя
 
Сообщения: 209
Зарегистрирован: 29.08.2009 (Сб) 4:49
Откуда: Ташкент

Re: Компьютер сочиняет музыку

Сообщение bon818 » 23.04.2016 (Сб) 18:04

Присоединяюсь к VisualProg из соседнего форума.
Если сделаете экспорт дорожек в миди ..... то будет классно. +1

The trick
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 491
Зарегистрирован: 26.06.2010 (Сб) 23:08
Откуда: Астрахань

Re: Компьютер сочиняет музыку

Сообщение The trick » 23.04.2016 (Сб) 20:35

В версии 2 будет экспорт в WAV, MP3, MIDI.
Анатолий Кривоус | http://vk.com/thetrick | http://promodj.com/Thetrik

The trick
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 491
Зарегистрирован: 26.06.2010 (Сб) 23:08
Откуда: Астрахань

Re: Компьютер сочиняет музыку

Сообщение The trick » 09.02.2017 (Чт) 19:05

Новая версия 1.3

Переработан интерфейс;
Добавлен экспорт в MIDI;
Добавлен экспорт в MP3;
Добавлена возможность работы с плейлистом (генерация, сохранение, открытие и т.д.)

Скачать.
Анатолий Кривоус | http://vk.com/thetrick | http://promodj.com/Thetrik

Mikle
Изобретатель велосипедов
Изобретатель велосипедов
Аватара пользователя
 
Сообщения: 3723
Зарегистрирован: 25.03.2003 (Вт) 14:02
Откуда: Туапсе

Re: Компьютер сочиняет музыку

Сообщение Mikle » 09.02.2017 (Чт) 19:16

Если после запуска, не нажимая "Create Song", сразу нажать"Play" - вылетает.

The trick
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 491
Зарегистрирован: 26.06.2010 (Сб) 23:08
Откуда: Астрахань

Re: Компьютер сочиняет музыку

Сообщение The trick » 09.02.2017 (Чт) 23:05

Mikle писал(а):Если после запуска, не нажимая "Create Song", сразу нажать"Play" - вылетает.

Спасибо, исправил.
Анатолий Кривоус | http://vk.com/thetrick | http://promodj.com/Thetrik

The trick
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 491
Зарегистрирован: 26.06.2010 (Сб) 23:08
Откуда: Астрахань

Re: Компьютер сочиняет музыку

Сообщение The trick » 07.03.2017 (Вт) 12:24

Анатолий Кривоус | http://vk.com/thetrick | http://promodj.com/Thetrik

The trick
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 491
Зарегистрирован: 26.06.2010 (Сб) 23:08
Откуда: Астрахань

Re: Компьютер сочиняет музыку

Сообщение The trick » 03.05.2017 (Ср) 17:09

Новая версия 1.4.

Изображение

  • Добавлен новый FM-синтезатор;
  • Добавлены новые пресеты;
  • Добавлена новая цветовая тема и переработана старая;
  • Доработан пользовательский интерфейс;
  • Добавлена возможность регулировки параметров каждого синтезатора;
  • Добавлена возможность выбора готовых пресетов;
  • Исправлен баг с сохранением трека;
  • Добавлена поддержка мультимедийных клавиш клавиатуры.
Скачать.
Анатолий Кривоус | http://vk.com/thetrick | http://promodj.com/Thetrik

Хакер
Телепат
Телепат
Аватара пользователя
 
Сообщения: 16017
Зарегистрирован: 13.11.2005 (Вс) 2:43
Откуда: Казахстан, Петропавловск

Re: Компьютер сочиняет музыку

Сообщение Хакер » 05.05.2017 (Пт) 0:24

А почему у экзешника такая необычная база?
—We separate their smiling faces from the rest of their body, Captain.
—That's right! We decapitate them.

The trick
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 491
Зарегистрирован: 26.06.2010 (Сб) 23:08
Откуда: Астрахань

Re: Компьютер сочиняет музыку

Сообщение The trick » 05.05.2017 (Пт) 8:51

Хакер писал(а):А почему у экзешника такая необычная база?

Да действительно. Я даже уже и не помню, в 1.3 такая же база была. Видимо что-то тестировал (обычно бывают нужны EXE файлы с разной базой), забыл поменять назад. Спасибо за замечание. Исправлю.
Анатолий Кривоус | http://vk.com/thetrick | http://promodj.com/Thetrik


Вернуться в The trick

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1

    TopList