Cleanup: broken pathfinding

2021-11-16 18:05:47 +00:00
parent cb8cbe03a4
commit ebe9ad6b90
42 changed files with 491 additions and 301 deletions
@@ -0,0 +1,68 @@
+module Dodge.Placement.Instance.Button where
+import Dodge.Data
+import Color
+import Geometry
+import Geometry.Vector3D
+import Dodge.LevelGen.Data
+import Dodge.Default
+import Dodge.LevelGen.Switch
+import Dodge.Placement.Instance.LightSource
+import Dodge.PlacementSpot
+import ShapePicture
+
+import Data.Maybe
+import Control.Lens
+
+triggerSwitchSPic :: (Button -> SPic) -> PlacementSpot -> Placement
+triggerSwitchSPic sdraw ps = plCont ps (PutTrigger (const False))
+    $ \tp -> Just $ pContID ps (PutButton (makeSwitchSPic sdraw (oneff $ trigid tp) (offeff $ trigid tp))) 
+                    (const Nothing)
+  where
+    trigid tp = fromJust $ _plMID tp
+    oneff  tid = triggers . ix tid .~ const True
+    offeff tid = triggers . ix tid .~ const False
+
+triggerSwitchSPicLight :: (Button -> SPic) -> PlacementSpot -> Placement
+triggerSwitchSPicLight sdraw ps = plCont ps (PutTrigger (const False))
+    $ \tp -> Just $ pContID fstLnkOut (PutLS thels)
+    $ \lsid -> Just 
+        $ pContID ps (PutButton (makeSwitchSPic sdraw (oneff lsid $ trigid tp) (offeff lsid $ trigid tp))) 
+                    (const Nothing)
+  where
+    thels = defaultLS {_lsIntensity = V3 0.5 0 0, _lsPos = V3 0 0 78, _lsRad = 75}
+    trigid tp = fromJust $ _plMID tp
+    eff lsid tid b c = (triggers . ix tid .~ const b)  
+        . (lightSources . ix lsid . lsIntensity .~ c)
+    oneff  lsid tid = eff lsid tid True (V3 0 0.5 0) 
+    offeff lsid tid = eff lsid tid False (V3 0.5 0 0)
+
+triggerSwitch :: Color -> PlacementSpot -> Placement
+triggerSwitch col ps = plCont ps (PutTrigger (const False))
+    $ \tp -> Just $ pContID ps (PutButton (makeSwitch col col (oneff $ trigid tp) (offeff $ trigid tp))) 
+                    (const Nothing)
+  where
+    trigid tp = fromJust $ _plMID tp
+    oneff  tid = triggers . ix tid .~ const True
+    offeff tid = triggers . ix tid .~ const False
+
+putLitButtonID :: Color -> Point2 -> Float -> (Int -> Maybe Placement) -> Placement
+putLitButtonID col p a subpl = mntLSOn aShape (Just col) ls p'' (addZ 40 p')
+    $ contToIDCont
+    $ \lsid -> jps0 (PutButton (makeButton col (changeLight lsid)) {_btPos = p, _btRot = a})
+    subpl
+  where
+    p'  = p -.- 30 *.* vNormal (unitVectorAtAngle a)
+    p'' = p +.+ 10 *.* vNormal (unitVectorAtAngle a)
+    changeLight lsid = lightSources . ix lsid . lsIntensity .~ V3 0 0.5 0
+    ls = defaultLS { _lsRad = 75 , _lsIntensity = V3 0.5 0 0 }
+
+putLitButOnPos :: Color -> (RoomPos -> Maybe PlacementSpot) -> (Int -> Maybe Placement) -> Placement
+putLitButOnPos col f subpl 
+    = plSpot .~ thePS $ mntLSOn aShape (Just col) ls 0 (V3 0 (-40) 40)
+    $ \plmnt -> let lsid = fromJust $ _plMID plmnt
+        in jps0 (PutButton (makeButton col (changeLight lsid)) {_btPos = V2 0 (-1), _btRot = pi})
+                subpl <&> plSpot .~ _plSpot plmnt
+  where
+    changeLight lsid = lightSources . ix lsid . lsIntensity .~ V3 0 0.5 0
+    ls = defaultLS { _lsRad = 75 , _lsIntensity = V3 0.5 0 0 }
+    thePS = PSLnk f (const id) Nothing