Refactor machines

src/Dodge/Render/ShapePicture.hs

@@ -1,6 +1,7 @@
 module Dodge.Render.ShapePicture
     ( worldSPic
     ) where
+import Dodge.Machine.Draw
 import Dodge.LinearShockwave.Draw
 import Dodge.Prop.Draw
 import Dodge.TractorBeam.Draw
@@ -320,7 +321,7 @@ btSPic bt = uncurryV translateSPf (_btPos bt)
     $ rotateSP (_btRot bt) (drawButton (_btPict bt) bt)
 mcSPic :: Machine -> SPic
 mcSPic bt = uncurryV translateSPf (_mcPos bt)
-    $ rotateSP (_mcDir bt) (_mcDraw bt bt)
+    $ rotateSP (_mcDir bt) (drawMachine (_mcDraw bt) bt)
 
 soundPic :: Configuration -> World -> Sound -> Picture
 soundPic cfig w s = fixedSizePicClampArrow 50 50 thePic p cfig w