From 6c37a28e03d3cc9d7b02383bc3452c183c227bb8 Mon Sep 17 00:00:00 2001
From: malc <av1474@comtv.ru>
Date: Thu, 6 Nov 2008 04:18:35 +0300
Subject: [PATCH] Remove pointless normalization of conjugated quaternion

---
 skin.c | 5 ++---
 tbs    | 2 +-
 2 files changed, 3 insertions(+), 4 deletions(-)

diff --git a/skin.c b/skin.c
index 55e9905..6d1a66b 100644
--- a/skin.c
+++ b/skin.c
@@ -235,7 +235,7 @@ CAMLprim value ml_skin_set_skel (value skel_v)
 
     b = s->bones + 1;
     for (i = 0; i < s->num_bones; ++i, ++b) {
-        float v[3], q[4], q1[4], z[3] = {0,0,0};
+        float v[3], q[4], z[3] = {0,0,0};
         struct bone *parent = &s->bones[b->parent];
 
         qapply (v, parent->mq, b->v);
@@ -243,8 +243,7 @@ CAMLprim value ml_skin_set_skel (value skel_v)
         vadd (b->mv, v, parent->mv);
 
         qconjugate (q, b->mq);
-        qscale (q1, q, 1.0 / qmagnitude (q));
-        q2matrix (b->im, q1, z);
+        q2matrix (b->im, q, z);
     }
 
     CAMLreturn (Val_unit);
diff --git a/tbs b/tbs
index c5789bf..7fd1743 100644
--- a/tbs
+++ b/tbs
@@ -26,7 +26,7 @@ cc="cc"
 ccopt="-O"
 test $(hostname) = "linmac" && {
     cc="$HOME/x/dev/gcc-4.3.0/bin/gcc";
-    ccopt="-Wall -Werror -Wextra -O3 -maltivec";
+    ccopt="-Wall -Werror -Wextra -O3 -maltivec -Wno-unused-function";
 }
 
 targets="dormin"
-- 
2.11.4.GIT