Separate out concrete part of world

2022-07-25 12:10:50 +01:00
parent 3354d108be
commit b2efbd2b3e
134 changed files with 933 additions and 930 deletions
@@ -105,7 +105,7 @@ addButtonSlowDoor x h rm = do
                (V3 15 xoff 89) (aShape (V2 15 0) (V3 15 xoff 90)) 
        $ \plls plpr -> Just $ ptCont (PutWorldUpdate (const $ setmount dr plls plpr))
        $ const mpl
-    setmount pldr plls plpr = doors . ix (fromJust $ _plMID pldr) . drMounts .++~
+    setmount pldr plls plpr = cWorld . doors . ix (fromJust $ _plMID pldr) . drMounts .++~
        [MountedLS (fromJust $ _plMID plls), MountedProp (fromJust $ _plMID plpr)]
    -- TODO make the height of this light source and of other mounted lights
    -- be taken from a single consistent source