From 022223df02612288efabf30de62f0a69e393990b Mon Sep 17 00:00:00 2001
From: malc <av1474@comtv.ru>
Date: Sat, 8 Nov 2008 15:28:33 +0300
Subject: [PATCH] Fix quat3456 float array size

---
 anb.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/anb.ml b/anb.ml
index 83eb9f6..3d6f47c 100644
--- a/anb.ml
+++ b/anb.ml
@@ -37,7 +37,7 @@ let expand =
 ;;
 
 let quat3456 typ posecount sectbuf sbuf =
-  let floats = Array.init posecount (fun i -> Xff.rfloat sbuf (i*4)) in
+  let floats = Array.init 8 (fun i -> Xff.rfloat sbuf (i*4)) in
   let offset = Xff.rint sbuf 32 in
   let sbuf32 = Xff.sbufplus sectbuf offset in
   let int32s = Array.init posecount (fun i -> Xff.r32 sbuf32 (i*4)) in
-- 
2.11.4.GIT