From ac7c48b4dee99d4c772f133d70d8d1b38262fcd2 Mon Sep 17 00:00:00 2001
From: Author Name <david@rowetel.com>
Date: Fri, 7 Jul 2023 12:20:59 +0930
Subject: shallow zip-file copy from codec2 e9d726bf20

---
 octave/load_comp.m | 9 +++++++++
 1 file changed, 9 insertions(+)
 create mode 100644 octave/load_comp.m

(limited to 'octave/load_comp.m')

diff --git a/octave/load_comp.m b/octave/load_comp.m
new file mode 100644
index 0000000..b9fa686
--- /dev/null
+++ b/octave/load_comp.m
@@ -0,0 +1,9 @@
+% load_comp.m
+% David Rowe Sep 2015
+
+function s = load_comp(fn)
+  fs=fopen(fn,"rb");
+  s = fread(fs,Inf,"float32");
+  ls = length(s);
+  s = s(1:2:ls) + j*s(2:2:ls);
+endfunction
-- 
cgit v1.2.3