From: drowe67 <drowe67@01035d8c-6547-0410-b346-abe4f91aad63>
Date: Sat, 25 Feb 2012 05:20:00 +0000 (+0000)
Subject: Octave function to high pass filter araw speech file
X-Git-Url: http://git.whiteaudio.com/gitweb/?a=commitdiff_plain;h=93e33324362211e403a81139b2fc0b46d07b94d8;p=freetel-svn-tracking.git

Octave function to high pass filter araw speech file

git-svn-id: https://svn.code.sf.net/p/freetel/code@323 01035d8c-6547-0410-b346-abe4f91aad63
---

diff --git a/codec2-dev/octave/hp_filt.m b/codec2-dev/octave/hp_filt.m
new file mode 100644
index 00000000..1087bb91
--- /dev/null
+++ b/codec2-dev/octave/hp_filt.m
@@ -0,0 +1,12 @@
+% hp_filt.m
+% David Rowe 20 Feb 2012
+
+function hp_filt(in_file, out_file)
+  fin = fopen(in_file,"rb");
+  s = fread(fin,Inf,"short");
+  b = fir1(256, 300/4000, "high");
+  freqz(b);
+  s_hpf = filter(b,1,s);
+  fout = fopen(out_file,"wb");
+  fwrite(fout, s_hpf, "short");
+endfunction