Simplify grid/lattice creation

2025-10-27 12:21:18 +00:00
parent 437f5d44d8
commit c88fc1c729
6 changed files with 138 additions and 222 deletions
@@ -18,12 +18,13 @@ import LensHelp
 import RandomHelp
 import Control.Monad

+-- pathing needs to be done
 roomGlassOctogon ::
    -- | Size
    Float ->
    Room
 roomGlassOctogon x =
-    createPathGrid $
+--    createPathGrid $
        defaultRoom
            { _rmPolys =
                [ rectNSWE x (- x) (- x) x