Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.01.08;
Скачать: CL | DM;

Вниз

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;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.013 c
1-22230
Man In Red
2001-12-15 23:01
2002.01.08
Как в labele отобразить порядковый номер в RichEdite выделенного символа!


1-22224
Oleg Gashev
2001-12-15 11:14
2002.01.08
Проблеммы с размерами картинки при распечатке


1-22175
v-o-y-a-g-e-r
2001-12-20 16:06
2002.01.08
о Hint е


1-22232
T2
2001-12-16 07:24
2002.01.08
WIN386.SWP


6-22270
Ajax
2001-09-15 10:15
2002.01.08
У меня тут возникло 3 вопроса про почту.