Broken implementation of window colours, move towards stencil ceilings

2025-10-29 21:48:09 +00:00
parent 40c1907689
commit c2e5aaa7a0
17 changed files with 76 additions and 85 deletions
@@ -26,7 +26,7 @@ latticeXsYs xs ys =
    foldMap (\y -> mkpairs xs & each . each %~ (`V2` y)) ys
        <> foldMap (\x -> mkpairs ys & each . each %~ V2 x) xs
  where
-    mkpairs (z:zs) = zip (z:zs) $ zs
+    mkpairs (z:zs) = zip (z:zs) zs
    mkpairs [] = []

 gridPointsOff :: Float -> Float -> Float -> Int -> Float -> Int -> [Point2]