Broken: refactor terminals

2022-07-25 00:45:15 +01:00
parent d1bf49319a
commit d219d8d889
25 changed files with 505 additions and 364 deletions
@@ -24,10 +24,7 @@ propLSThen :: PropUpdate
    -> Placement
 propLSThen propf lsf ls prop cont = pt0 (PutLS ls)
    $ \lspl -> Just $ pt0 (PutProp $ prop & prUpdate .~ PropUpdates [propf,PropUpdateLS (fromJust $ _plMID lspl) lsf])
-      --  theupdate (fromJust $ _plMID lspl))
    $ cont lspl
-  where
-    --theupdate lsid pr w = propf pr w & lightSources . ix lsid %~ lsf pr w

 moveLSThen :: WdP2f --(World -> (Point2,Float))
    -> Point3   -- ^ light source offset