From 93e33324362211e403a81139b2fc0b46d07b94d8 Mon Sep 17 00:00:00 2001
From: drowe67 <drowe67@01035d8c-6547-0410-b346-abe4f91aad63>
Date: Sat, 25 Feb 2012 05:20:00 +0000
Subject: [PATCH] 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
---
 codec2-dev/octave/hp_filt.m | 12 ++++++++++++
 1 file changed, 12 insertions(+)
 create mode 100644 codec2-dev/octave/hp_filt.m

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
-- 
2.25.1