Add various capabilities for generating graphs, fixes to lasgun

2022-07-06 11:54:29 +01:00
parent cd3463d3d8
commit d63495e335
29 changed files with 1801 additions and 178 deletions
@@ -0,0 +1,24 @@
+module Dodge.Default.Block where
+import Dodge.Data
+import Dodge.Block.Debris
+import LensHelp
+
+defaultBlock :: Block
+defaultBlock = Block
+    { _blID = 0
+    , _blWallIDs = mempty
+    , _blHP = 1000
+    , _blShadows = []
+    , _blFootprint = []
+    , _blPos       = 0
+    , _blDir       = 0
+    , _blDraw      = const mempty
+    , _blDeath     = makeBlockDebris
+    , _blObstructs = []
+<<<<<<< HEAD
+=======
+    , _blPaths      = []
+>>>>>>> efficientRuntime
+    }
+defaultDirtBlock :: Block
+defaultDirtBlock = defaultBlock & blHP .~ 50