Cleanup light mounts

2021-11-13 12:31:11 +00:00
parent 3624f22f2b
commit 96c72ef578
10 changed files with 80 additions and 110 deletions
@@ -1,5 +1,4 @@
-module Dodge.Room.Start
-    where
+module Dodge.Room.Start where
 import Dodge.Room.Data
 import Dodge.Room.Door
 import Dodge.Room.Link
@@ -33,7 +32,7 @@ startRoom = do
            $ roomRectAutoLinks w h & rmPmnts %~ 
            (
            [ fground
-            , mountLightJ (V2 0 (h/3)) (V3 40 (h/3) 70)
+            , mntLS jShape (V2 0 (h/3)) (V3 40 (h/3) 70)
            , tankSquareEmboss4 (dim orange) 50 (h-60)
            , tankSquare (dim orange) 50 50
            , tankSquare (dim orange) 50 120