-
Notifications
You must be signed in to change notification settings - Fork 3
/
SABRE_AddHRTFDelays.m
78 lines (72 loc) · 3.08 KB
/
SABRE_AddHRTFDelays.m
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
function [hL, hR] = SABRE_AddHRTFDelays(hL, hR, dL, dR, varargin)
%SABRE_AddHRTFDelays Introduce delays into HRTF pairs.
% [HL, HR] = SABRE_AddHRTFDelays(HL, HR, DL, DR) introduces time delays,
% DL and DR, into each HRIR pair, HL and HR. Returns the delayed
% HRIRs. DL and DR should be specified in samples.
%
% [HL, HR] = SABRE_AddHRTFDelays(HL, HR, DL, DR, 'upsample', U) upsamples
% the HRIRs by a factor of U before introducing the time delays. The
% time delays should still be given in samples at the original sample
% rate. The HRIRs are downsampled back to the original sample rate
% before being returned.
%
% See also SABRE_InterpolateHRTFs, SABRE_RemoveHRTFDelays.
% ==============================================================================
% This file is part of the 3D3A SABRE Toolkit.
%
% Joseph G. Tylka <josephgt@princeton.edu>
% 3D Audio and Applied Acoustics (3D3A) Laboratory
% Princeton University, Princeton, New Jersey 08544, USA
%
% MIT License
%
% Copyright (c) 2017 Princeton University
%
% Permission is hereby granted, free of charge, to any person obtaining a copy
% of this software and associated documentation files (the "Software"), to deal
% in the Software without restriction, including without limitation the rights
% to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
% copies of the Software, and to permit persons to whom the Software is
% furnished to do so, subject to the following conditions:
%
% The above copyright notice and this permission notice shall be included in all
% copies or substantial portions of the Software.
%
% THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
% IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
% FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
% AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
% LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
% OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
% SOFTWARE.
% ==============================================================================
narginchk(4,6);
if ~isequal(size(hL),size(hR))
error('Input HRIRs must be the same size.')
end
if ~isequal(size(dL),size(dR))
error('Input delays must be the same size.')
end
indx = find(strcmpi(varargin,'upsample'),1,'first');
if indx
upsampleFlag = true;
upsampleFactor = varargin{indx+1};
hL = resample(hL,upsampleFactor,1);
hR = resample(hR,upsampleFactor,1);
dL = dL*upsampleFactor;
dR = dR*upsampleFactor;
else
upsampleFlag = false;
end
[IRLen, numIR] = size(hL);
for jj = 1:numIR
gL = delayFilter(dL(jj),IRLen);
gR = delayFilter(dR(jj),IRLen);
hL(:,jj) = fftConvolve(hL(:,jj),gL,'cyclic'); % essentially a fractional-sample circshift
hR(:,jj) = fftConvolve(hR(:,jj),gR,'cyclic'); % essentially a fractional-sample circshift
end
if upsampleFlag
hL = resample(hL,1,upsampleFactor);
hR = resample(hR,1,upsampleFactor);
end
end