From b32e05c0b949a6af19a50fcd67a5d14aa0c8890b Mon Sep 17 00:00:00 2001 From: malc Date: Sat, 1 Nov 2008 22:49:33 +0300 Subject: [PATCH] Use Vec.elts instead of xyzofvec --- skb.ml | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/skb.ml b/skb.ml index 7b271ba..2a0ccfa 100644 --- a/skb.ml +++ b/skb.ml @@ -1,7 +1,5 @@ open Format;; -let xyzofvec v = (v.Vec.x, v.Vec.y, v.Vec.z) - let qof f = Qtr.make f.(5) f.(6) f.(7) f.(8);; let vof f = Vec.make f.(1) f.(2) f.(3);; @@ -51,7 +49,7 @@ let vertices bones = let q = Qtr.compose curq parentq in parentinfo.(i + 1) <- (q, v); - xyzofvec parentv, xyzofvec v; + Vec.elts parentv, Vec.elts v; in Array.mapi mapf bones; ;; @@ -70,7 +68,7 @@ let vertices1 bones rotations poseno = let q = Qtr.compose curq parentq in parentinfo.(i + 1) <- (q, v); - xyzofvec parentv, xyzofvec v; + Vec.elts parentv, Vec.elts v; in Array.mapi mapf bones; ;; -- 2.11.4.GIT