macros/ftrans2.sci


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

// Function Name = Frequency Transformation

// Inputs = 1-D FIR filter b; Transform t(varargin(1))

// Output = 2-D FIR filter h

function[h] = ftrans2(b, t)

	[lhs, rhs] = argn(0)
	
	select rhs
		case 1 then
			out = opencv_ftrans2(b)
	
		case 2 then
			out = opencv_ftrans2(b, varargin(1))
	end
	
	channel = size(out)
	
	for i = 1: channel
		h(:,:,i) = out(i)
	end
	
endfunction