Forth и другие саморасширяющиеся системы программирования Locations of visitors to this page
Текущее время: Пт мар 29, 2024 02:22

...
Google Search
Forth-FAQ Spy Grafic

Часовой пояс: UTC + 3 часа [ Летнее время ]




Начать новую тему Ответить на тему  [ Сообщений: 4 ] 
Автор Сообщение
 Заголовок сообщения: Находитель простых аккордов для гитары
СообщениеДобавлено: Пт окт 19, 2018 00:52 
Не в сети

Зарегистрирован: Чт янв 07, 2016 19:14
Сообщения: 1288
Благодарил (а): 3 раз.
Поблагодарили: 18 раз.
Главное слово 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 Кб]
Скачиваний: 749

_________________
Цель: сделать 64-битную Нову под Винду
Вернуться к началу
 Профиль Отправить личное сообщение  
Ответить с цитатой  
 Заголовок сообщения: Re: Находитель простых аккордов для гитары
СообщениеДобавлено: Пн окт 22, 2018 22:28 
Не в сети

Зарегистрирован: Чт янв 07, 2016 19:14
Сообщения: 1288
Благодарил (а): 3 раз.
Поблагодарили: 18 раз.
А вот и находитель аккордов в виде оверлея.
Внутри также батник для запуска форта с подгрузкой оверлея.

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


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

_________________
Цель: сделать 64-битную Нову под Винду
Вернуться к началу
 Профиль Отправить личное сообщение  
Ответить с цитатой  
 Заголовок сообщения: Re: Находитель простых аккордов для гитары
СообщениеДобавлено: Пн окт 22, 2018 22:43 
Не в сети

Зарегистрирован: Пн янв 07, 2013 22:40
Сообщения: 2141
Благодарил (а): 8 раз.
Поблагодарили: 74 раз.
Можно, наверное, на форуме создать раздел для размещения Форт программ и в виде исполняемых файлов (+ исходников)
и описанием их возможностей и условий применений.
(мало ли кому они могут быть интересны и полезны, а Форт для них "тёмный лес" :)


Вернуться к началу
 Профиль Отправить личное сообщение  
Ответить с цитатой  
 Заголовок сообщения: Re: Находитель простых аккордов для гитары
СообщениеДобавлено: Пн окт 22, 2018 22:57 
Не в сети

Зарегистрирован: Чт янв 07, 2016 19:14
Сообщения: 1288
Благодарил (а): 3 раз.
Поблагодарили: 18 раз.
Возможно.
Подождём, когда побольше кода понаберётся

_________________
Цель: сделать 64-битную Нову под Винду


Вернуться к началу
 Профиль Отправить личное сообщение  
Ответить с цитатой  
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ Сообщений: 4 ] 

Часовой пояс: UTC + 3 часа [ Летнее время ]


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

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


Вы не можете начинать темы
Вы можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
phpBB сборка от FladeX // Русская поддержка phpBB