DelphiX_play [D5, Win95/98]
XeN © (2001-12-21 11:21:00)
Кто знает как в DelphiX сделать стерео эффект проигрывания
звука.
3d[Power] (2001-12-21 11:29:00) [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) -
справа.
Можешь регулировать степень стерео эффекта :)
Наверх 
ЧАТ |
Орешник |
|
