From 98cdb5d629318310a98dbed74788225e39e85234 Mon Sep 17 00:00:00 2001
From: John Connors <johnc@yagc.ndo.co.uk>
Date: Thu, 21 Aug 2008 01:15:25 +0100
Subject: [PATCH] Sorting out md2 tris

---
 file-md2.lisp | 8 ++++----
 package.lisp  | 4 +++-
 2 files changed, 7 insertions(+), 5 deletions(-)

diff --git a/file-md2.lisp b/file-md2.lisp
index 86f1f0b..30c5f19 100644
--- a/file-md2.lisp
+++ b/file-md2.lisp
@@ -209,8 +209,8 @@
      (v :s32)))
 
 (define-binary-class md2-triangle
-    ((vertex-indices :u32 :array-size 3)
-      (uv-indices :u32 :array-size 3)))
+    ((vertex-indices :u16 :array-size 3)
+      (uv-indices :u16 :array-size 3)))
 
 (define-binary-class md2-vertex
     ((position :u8 :array-size 3)
@@ -244,8 +244,8 @@
   (let ((result (make-array n)))
     (iterate 
      (for i from 0 below n)
-     (setf (aref result i) (read-value :md2-triangle stream))
-  result)))
+     (setf (aref result i) (read-value :md2-triangle stream)))
+  result))
 
 
 (defun parse-md2-frames (offset n size nverts stream)
diff --git a/package.lisp b/package.lisp
index 5cbdc58..766ee0a 100644
--- a/package.lisp
+++ b/package.lisp
@@ -9,6 +9,8 @@
            #:null-terminate 
            #:string-id 
            #:id-string 
-           #:parse-md2-file))
+           #:parse-md2-file
+           #:pose
+           #:repose))
 
 (in-package :lodematron)
-- 
2.11.4.GIT