Refactor doors

2021-09-28 01:48:03 +01:00
parent 743c1c878d
commit 1990558985
13 changed files with 105 additions and 51 deletions
@@ -166,7 +166,7 @@ topPrismIndices n = concatMap f [1..n-2]    -- triangles on top face
    ++ 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]
+    f' x = [1,2*x+3,2*x+1]
    g x = [2*x,2*x+1,2*x+3
            ,2*x,2*x+3,2*x+2]