AYFly: http://code.google.com/p/ayfly/sourc...yers/PT3Play.h
ZXTune: http://code.google.com/p/zxtune/sour...s/pt3_supp.cpp
Разумеется, там еще обвязка в обоих случаях имеется.
AYFly: http://code.google.com/p/ayfly/sourc...yers/PT3Play.h
ZXTune: http://code.google.com/p/zxtune/sour...s/pt3_supp.cpp
Разумеется, там еще обвязка в обоих случаях имеется.
C луны свалился?
Сегодня существует сотни различных языков, большинство могут юзать DLL.
Это бред?
AY FLY та функция которую можно было бы юзать в трекере ГЛЮЧИТ (сжирает весь проц или что-то в этом роде). Мы с Ande'ром пытались ее починить, но он в скорости отошел от дел и больше не возвращался.
Что касается проигрывания - меня устраивает реализация AY Fly, там все варианты предусмотрены, и загрузка по имени файла и из памяти и тп.
---------- Post added at 18:30 ---------- Previous post was at 18:18 ----------
Вот тестовый код для AY Fly:
Насколько я сейчас понимаю IM2 это функция которую 50 раз в секунду вызывает AY Fly.
Global song, wnid, a_vol.c = 15
#Window_0 = 1
ProcedureC.l IM2()
Static first, adr
If first=0:
adr = GetFunction(1, "ay_writeay")
first = 1
EndIf
a_freq = 612
CallCFunctionFast(adr, song, 0 , a_freq & $0000FF00, 0)
CallCFunctionFast(adr, song, 1 , a_freq & $000000FF, 0)
CallCFunctionFast(adr, song, 8 , a_vol, 0)
CallCFunctionFast(adr, song, 7 , %00111000, 0)
If a_vol: a_vol - 1: EndIf
EndProcedure
OpenWindow(#Window_0, 387, 71, 256, 192, "retracker", #PB_Window_ScreenCentered|#PB_Window_SystemMenu)
wnid = WindowID(#Window_0)
OpenLibrary(1, "ayfly.dll")
song = CallCFunction(1, "ay_initemptysong", 44100, @IM2())
CallCFunction(1, "ay_sethwnd", song, wnid)
CallCFunction(1, "ay_startsong" ,song)
Repeat
Event = WaitWindowEvent()
Select Event
Case #WM_LBUTTONDOWN
a_vol = 15
Case #PB_Event_CloseWindow: End
EndSelect
ForEver
---------- Post added at 18:35 ---------- Previous post was at 18:30 ----------
Для современного трекера это маловато, нужна возможность проигрывать Didital и подмешивать Beeper. Как это реализовать в реалиях Windows я хз (звуковые буферы и т.п.)
Последний раз редактировалось newart; 11.08.2010 в 18:32.
С любовью к вам, Yandex.Direct
Размещение рекламы на форуме способствует его дальнейшему развитию
Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)