Reify block drawing

2022-07-25 01:27:39 +01:00
parent 486c203fa2
commit c3a5b9d5be
15 changed files with 85 additions and 23 deletions
@@ -4,6 +4,7 @@ Module      : Dodge.Update
 Description : Simulation update
 -}
 module Dodge.Update ( updateUniverse ) where
+import Dodge.Magnet.Update
 import Dodge.TmTm
 import Color
 import Dodge.DrWdWd
@@ -114,7 +115,7 @@ functionalUpdate w = checkEndGame
    . over uvWorld updateClouds
    . over uvWorld updateGusts
    . over uvWorld zoneClouds
-    . over uvWorld (updateMIM magnets _mgUpdate             )
+    . over uvWorld (updateMIM magnets (doMagnetUpdate . _mgUpdate)             )
    . over uvWorld (updateIMl' _terminals tmUpdate          )
 --    . updateIMl _machines mcChooseUpdate
    . over uvWorld (updateIMl' _machines updateMachine   )