Drezil/pioneers
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

iqm does not work .. :(

Browse Source
This commit is contained in:
Stefan Dresselhaus
2014-04-26 00:15:36 +02:00
parent e6a56b8409
commit a81418bf40
1 changed files with 8 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
src/Importer/IQM/Parser.hs
View File

@@ -200,8 +200,13 @@ parseIQM :: String -> IO IQM
parseIQM a = parseIQM a =
do do
f <- B.readFile a f <- B.readFile a
Done _ raw <- return $ parse doIQMparse f putStrLn "Before Parse:"
putStrLn $ show f
putStrLn "Real Parse:"
r <- return $ parse doIQMparse f
raw <- case r of
Done _ x -> return x
y -> error $ show y
let ret = raw let ret = raw
return ret return ret
@@ -228,7 +233,7 @@ doIQMparse =
modify . (+) . fromIntegral $ num_text h --put offset forward modify . (+) . fromIntegral $ num_text h --put offset forward
skipToCounter $ ofs_meshes h --skip 0-n bytes to get to meshes skipToCounter $ ofs_meshes h --skip 0-n bytes to get to meshes
meshes' <- readMeshes $ fromIntegral $ num_meshes h --read meshes meshes' <- readMeshes $ fromIntegral $ num_meshes h --read meshes
skipToCounter $ ofs_vertexarrays h skipToCounter $ ofs_vertexarrays h --skip 0-n bytes to get to Vertex-Arrays
vaf <- readVAFs $ fromIntegral $ num_vertexarrays h --read Vertex-Arrays vaf <- readVAFs $ fromIntegral $ num_vertexarrays h --read Vertex-Arrays
_ <- lift takeByteString _ <- lift takeByteString