Move button data

2022-07-21 18:22:08 +01:00
parent aabd8a2cb8
commit b58444f931
16 changed files with 185 additions and 89 deletions
@@ -1,6 +1,7 @@
 module Dodge.Render.ShapePicture
    ( worldSPic
    ) where
+import Dodge.Button.Draw
 import Dodge.LightSource.Draw
 import Dodge.Targeting.Draw
 import Dodge.Beam.Draw
@@ -299,7 +300,7 @@ floorItemSPic flit = uncurryV translateSPf (_flItPos flit)

 btSPic :: Button -> SPic
 btSPic bt = uncurryV translateSPf (_btPos bt)
-    $ rotateSP (_btRot bt) (_btPict bt bt)
+    $ rotateSP (_btRot bt) (drawButton (_btPict bt) bt)
 mcSPic :: Machine -> SPic
 mcSPic bt = uncurryV translateSPf (_mcPos bt)
    $ rotateSP (_mcDir bt) (_mcDraw bt bt)