Cleanup, improve auto wall rotate

2026-03-24 11:28:11 +00:00
parent be2f7160ba
commit 32f1740577
25 changed files with 226 additions and 252 deletions
@@ -259,7 +259,7 @@ showMuzzlePositions  u = fold $ do
        ^? ix invid . _2
    return . color red $ setLayer DebugLayer $ reduceLocDT (f cr) loc
  where
-    f cr loc = foldMap (g . muzzlePos loc cr)  (itemMuzzles $ loc)
+    f cr loc = foldMap (g . muzzlePos loc cr)  (itemMuzzles loc)
      where
        g :: Point3Q -> Picture
        g pq = translate3 (pq ^. _1) $ crossPic 5