Add general smooth scrolling, move camera into world

2023-03-26 20:09:00 +01:00
parent 73e742e1a2
commit 07a1d71039
32 changed files with 154 additions and 131 deletions
@@ -51,6 +51,7 @@ data World = World
    , _pnZoning :: IntMap (IntMap [(Int, Point2)]) --Zoning IM.IntMap Creature
    , _peZoning :: IntMap (IntMap (Set PathEdgeNodes))
    , _gsZoning :: IntMap (IntMap IntSet)
+    , _wCam :: Camera
    }

 data TimeFlowStatus