Add tank furniture, stop autorotate when aiming

src/Dodge/Room/Start.hs

@@ -4,13 +4,13 @@ import Dodge.Room.Data
 import Dodge.Room.Door
 import Dodge.Room.Link
 import Dodge.Room.Procedural
---import Dodge.Room.Placement
 import Dodge.Room.Foreground
+import Dodge.Room.Furniture
 import Dodge.Layout.Tree.Polymorphic
 import Dodge.LevelGen.Data
 import Dodge.LightSources.Fitting
---import Picture
 import Geometry.Data
+import Color
 
 import Data.Tree
 import Control.Monad.State
@@ -18,7 +18,8 @@ import Control.Lens
 import System.Random
 
 rezBox :: Room
-rezBox = shiftRoomBy (V2 (-20) (-10),0) $ roomRect 40 20 1 1 & rmPS .~ []
+rezBox = shiftRoomBy (V2 (-20) (-10),0) $ roomRect 40 20 1 1 
+    & rmPS .~ [ mountColLightI (V3 0 0.7 0.2) 70 (V2 0 10) (V2 40 10) ]
 
 startRoom :: RandomGen g => State g (Tree (Either Room Room))
 startRoom = do
@@ -32,6 +33,8 @@ startRoom = do
         <$> randomiseOutLinks (shiftRoomBy (V2 (-20) (-20),0) 
                 $ roomRectAutoLinks w h & rmPS .~ 
             [ fground
-            , wallMountJ (V2 0 (h/3)) (V3 40 (h/3) 70)
+            , mountedLightJ (V2 0 (h/3)) (V3 40 (h/3) 70)
+            , tankSquareEmboss4 (dim orange) 50 (h-60)
+            , tankSquareEmboss4 (dim orange) 50 50
             ]
             )