Головна сторінка
Top.Mail.Ru Яндекс.Метрика
Форум: "Основна";
Поточний архів: 2002.01.08;
Завантажити: [xml.tar.bz2];

Вниз

DelphiX_play Знайти схожі гілки


XeN   (2001-12-21 11:21) [0]

Хто знає як в DelphiX зробити стерео ефект програвання звуку.



3d[Power]   (2001-12-21 11:29) [1]

this procedure is (с) 3d [Power] for NFK game.

const opt_stereo: boolean = true; opt_sound: boolean = true; opt_channelapproach: byte = 10; opt_reversestereo: boolean = false; procedure PLAYSOUND (filename: shortstring; x: real); var PanFactor, PanValue: Double; begin if OPT_SOUND = false then exit; if OPT_STEREO = true then begin PanFactor: = 31.25; // 10000 is the panning range PanValue: = ((round (X) * PanFactor) -10000) / OPT_CHANNELAPPROACH; if OPT_REVERSESTEREO then PanValue: = -panvalue; end else panvalue: = 0; try WaveLst.Items.Find (filename) .Pan: = round (Panvalue); WaveLst.Items.Find (filename) .Play (False); except AddMessage ( "Error playing sound" "+ filename +" ""); end; end;
коротше playsound ( "your filename in dxwavelist", 320) - в центрі.
коротше playsound ( "your filename in dxwavelist", 0) - зліва.
коротше playsound ( "your filename in dxwavelist", 640) - справа.
Можеш регулювати ступінь стерео ефекту :)



сторінки: 1 вся гілка

Форум: "Основна";
Поточний архів: 2002.01.08;
Завантажити: [xml.tar.bz2];

наверх









Пам'ять: 0.55 MB
Час: 0.022 c
1-22215
VovaKomarov
2001-12-16 13:36
2002.01.08
оновлення клієнта


1-22034
Alexey_K
2001-12-15 16:35
2002.01.08
Форма


1-22142
Початківець
2001-12-20 10:42
2002.01.08
ReplaceDialog


3-21923
казанок
2001-11-30 02:16
2002.01.08
Абстрактний питання про оптимізацію.


1-22073
HydraMarat
2001-12-19 00:22
2002.01.08
DLL або BPL





африкаанс албанський арабська вірменин азербайджанець баскський білоруський болгарська каталонський Китайська (спрощене письмо) Китайський традиційний) хорватський чеська данську мову нідерландський Ukranian естонець Філіппінська фінську мову французький
галісійська грузинський німецький грецький гаїтянський креольський давньоєврейську хінді угорський ісландський індонезієць ірландський італійський японський корейський латиська литовець македонець малайський мальтійський норвежець
перс полірування португальська румунський російська сербський словацький словенський іспанська суахілі шведську мову тайський турецька український урду в'єтнамський валлійський ідиш бенгальський боснійський
кебуано есперанто гуджараті хауса хмонг ігбо яванський каннада кхмерская Лао латинь маорі маратхі монгольський непальська панджабі сомалійський тамільська телугу йоруба
зулуський
Англійська Французький Німецький Італійський Португальська Русский Іспанська