Make buttons have shape, expose multiple bugs

2021-09-27 12:28:53 +01:00
parent d9ad55ec50
commit 743c1c878d
19 changed files with 157 additions and 71 deletions
@@ -159,11 +159,14 @@ topPrismEdgeIndices n = concatMap f [0..n-1]

 topPrismIndices :: Int -> [Int]
 topPrismIndices n = concatMap f [1..n-2]    -- triangles on top face
+    ++  concatMap f' [1..n-2]   -- triangles on bottom face
+                                -- these should be checked
    ++ [2*n-2,2*n-1,1
        ,2*n-2,1,0]                         -- last side triangle (applies mod 2n)
    ++ concatMap g [0..n-2]                 -- other triangles on sides
  where
    f x = [0,2*x,2*x+2]
+    f' x = [1,2*x+1,2*x+3]
    g x = [2*x,2*x+1,2*x+3
            ,2*x,2*x+3,2*x+2]