Redo shape vertices as a list, should allow for mirroring

2022-07-04 23:17:53 +01:00
parent 914c452afb
commit 22ac8feb37
6 changed files with 35 additions and 43 deletions
@@ -112,8 +112,8 @@ pokeShapeObj
    -> ShapeObj
    -> IO (Int,Int,Int)
 --{-# INLINE pokeShapeObj #-}
-pokeShapeObj ptr iptr ieptr counts (ShapeObj shType shVerts) = case shType of
-    TopPrism size -> pokeTopPrism (size - 2) ptr iptr ieptr counts shVerts
+pokeShapeObj ptr iptr ieptr counts (ShapeObj shtype shVerts) = case shtype of
+    TopPrism size -> pokeTopPrism (size - 2) ptr iptr ieptr counts (S.each shVerts)

 pokeTopPrism :: Int -> Ptr Float -> Ptr GLushort 
    -> Ptr GLushort