justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Commit before merging edge buffer into shape buffer

Browse Source
This commit is contained in:
justin
2021-09-21 09:35:36 +01:00
parent 2804d58a5a
commit e98ada22fd
1 changed files with 3 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Shader/Poke.hs
+3
View File
@@ -91,6 +91,9 @@ pokeShapeE eptr ieptr (nv,n,ni,nei) (V3 a b c) = do
pokeElemOff ieptr nei (fromIntegral n) pokeElemOff ieptr nei (fromIntegral n)
return $ (nv,n + 1,ni,nei+1) return $ (nv,n + 1,ni,nei+1)
topPrismEdgeIndices :: Int -> [Int]
topPrismEdgeIndices n = undefined
topPrismIndices :: Int -> [Int] topPrismIndices :: Int -> [Int]
topPrismIndices n = concatMap f [1..n-2] -- triangles on top face topPrismIndices n = concatMap f [1..n-2] -- triangles on top face
++ [2*n-2,2*n-1,1 ++ [2*n-2,2*n-1,1