Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 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) - справа.
Можешь регулировать степень стерео эффекта :)




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.08;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.71 MB
Время: 0.034 c
3-21968           olban                 2001-12-05 11:20  2002.01.08  
QuantumGrid


3-21929           @andrew               2001-12-04 11:38  2002.01.08  
ВСЕМ ПРИВЕТ! Делаю некий журнал. Откуда задача....


7-22423           Alex_K_xelA           2001-09-21 18:55  2002.01.08  
Чтение секторов с CD-ROM


6-22314           SDS                   2001-06-10 23:58  2002.01.08  
Вопрос о методе POST


1-22097           Сержик                2001-12-19 15:45  2002.01.08  
К чему две кнопки привязать, чтобы они были внизу по центру?