Forth
http://www.fforum.winglion.ru/

Находитель простых аккордов для гитары
http://www.fforum.winglion.ru/viewtopic.php?f=58&t=3201
Страница 1 из 1

Автор:  Victor__v [ Пт окт 19, 2018 00:52 ]
Заголовок сообщения:  Находитель простых аккордов для гитары

Главное слово TRANSLATE-ACCORD
Принимает в качестве параметра строку с аккордом ( S" Am", S" C#J7" и пр. )
Печатает все варианты этого аккорда под строй гитары (от 1-й до 3 или 4).
Соот-но простые аккорды дадут 6 обращений, а аккорды с 4-й ступенью 24.
Комбинаторика, одним словом
Изменить строй для печати можно записав данные в массив STROI (4 байта). Сейчас в полночь просто лень писать слово под это.
Ноты это обычные константы.

Поддерживаемые аккорды
Мажоры
m миноры
dim уменьшенные
sus4 2-я ступень смещена на тон
aug увеличенные

Дополнительно 4-я ступень
7 септ
J7 увеличенный септ
9 нона

Возможны глюки. На написание гитарной утилиты потратил вечер :idea:

Что дальше?
Прикрутить интерфейс
и локализацию к нему

Добить либу по оверлеям и сохранить эту наработку в виде оверлея для кучи

Вложения:
FIND-ACCORD.zip [16.62 Кб]
Скачиваний: 337

Автор:  Victor__v [ Пн окт 22, 2018 22:28 ]
Заголовок сообщения:  Re: Находитель простых аккордов для гитары

А вот и находитель аккордов в виде оверлея.
Внутри также батник для запуска форта с подгрузкой оверлея.

Также оверлей был скомпилен с участием оптимизатора. В итоге код уменьшился с 7 до 5 кб.
Судя по логам основной упор принесла оптимизация лок. переменных.

Вложения:
оверлейчик.7z [15.57 Кб]
Скачиваний: 284

Автор:  KPG [ Пн окт 22, 2018 22:43 ]
Заголовок сообщения:  Re: Находитель простых аккордов для гитары

Можно, наверное, на форуме создать раздел для размещения Форт программ и в виде исполняемых файлов (+ исходников)
и описанием их возможностей и условий применений.
(мало ли кому они могут быть интересны и полезны, а Форт для них "тёмный лес" :)

Автор:  Victor__v [ Пн окт 22, 2018 22:57 ]
Заголовок сообщения:  Re: Находитель простых аккордов для гитары

Возможно.
Подождём, когда побольше кода понаберётся

Страница 1 из 1 Часовой пояс: UTC + 3 часа [ Летнее время ]
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
http://www.phpbb.com/