Reify block drawing

2022-07-25 01:27:39 +01:00
parent 486c203fa2
commit c3a5b9d5be
15 changed files with 85 additions and 23 deletions
@@ -0,0 +1,11 @@
+module Dodge.MagnetBuBu
+    where
+import Dodge.Magnet
+import Dodge.Data.Bullet
+import Dodge.Data.Magnet
+
+doMagnetBuBu :: MagnetBuBu -> Magnet -> Bullet -> Bullet
+doMagnetBuBu mbb = case mbb of
+    MagnetBuId -> const id
+    MagnetBuBuCurveAroundField x y -> curveAroundField x y
+