Mikle писал(а):Далее хочу сделать шесть струн, чтобы их колебания взаимно передавались через порожек.
Proxy писал(а):антивирусу что-то на душе не спокойно. Может компрессор применён к exe?
Proxy писал(а):А потом из этого выйдет хороший аналог GTP RSE? Или как это планируется использовать?
FireFenix писал(а):Было бы прикольно ещё сделать эффект, как во время колебания струны, по ней елозиешь.
Mikle писал(а):FireFenix писал(а):Было бы прикольно ещё сделать эффект, как во время колебания струны, по ней елозиешь.
Это есть - можно сдвигать лад, не заглушая струну, можно подтягивать. Проблема теперь описать гитарную партию, сейчас бьюсь над редактором.
Mikle писал(а):Проблема теперь описать гитарную партию, сейчас бьюсь над редактором.
Mikle писал(а):Это планируется использовать в демосцене, есть такой жанр - 32k Exe Music.
FireFenix писал(а):во время звучания, если его перемещать - ничего не даёт.
Proxy писал(а):А чем midi не подходит?
Proxy писал(а):полностью ИИ созданную гитарную партию делать, без изначальных примитивов
Mikle писал(а):ИИ всё равно должен по какой-то партитуре играть, или он должен сочинять?
Mikle писал(а):У меня есть возможность коснуться струны в любом месте с любым коэффициентом вязкости, чтобы вызвать обертон. Как это передать в миди?
CyberPunk писал(а):На нейлон похоже...
И походу слишком чистый звук... Нет погрешностей, щипка и т.д.
Mikle писал(а):http://tuapse-mikle.narod.ru/SpainGuitar.zip
FireFenix писал(а):где можно найти подобную музыку как в демке?
Private Type sState
stLen As Long
p() As Single
s() As Single
f() As Single
End Type
Dim St As sState
'....... далее это
ReDim St.p(St.stLen)
ReDim St.s(St.stLen)
ReDim St.f(St.stLen)
'....... это в процедуре рассчёта нового состояния системы:
For i = 1 To St.stLen - 1
St.s(i) = St.s(i) + ((St.p(i - 1) + St.p(i + 1)) * 0.5 - St.p(i)) * St.f(i)
Next i
For i = 1 To St.stLen - 1
St.p(i) = St.p(i) + St.s(i)
Next i
Mikle писал(а):Система простая
Или если упростить((2 / (2 * stLength)) * Sqr(stForce / 2)) * WH.samplesPerSecond
(Sqr(stForce / 2)/stLength) * WH.samplesPerSecond
Сейчас этот форум просматривают: SemrushBot и гости: 21