Add targeting reticule for bezier gun

2021-05-26 00:37:35 +02:00
parent d4a15a2416
commit 7ca7a2f941
3 changed files with 19 additions and 7 deletions
@@ -22,12 +22,16 @@ basicCrPict
    -> Creature 
    -> World
    -> Picture
-basicCrPict col cr _ = uncurry translate (_crPos cr) $ rotate (_crDir cr) $ pictures 
-    [ onLayer CrLayer . piercingMod $ bluntScale naked 
+basicCrPict col cr w = pictures $
+    targetingPic ++
+    [ tr . onLayer CrLayer . piercingMod $ bluntScale naked 
 --    , drawAwakeLevel cr
-    , drawEquipment cr
+    , tr $ drawEquipment cr
    ]
  where 
+    targetingPic = IM.elems $ IM.mapMaybeWithKey f $ _crInv cr
+    f invid it = fmap ((\g -> g invid it cr w) . snd) (it ^? itTargeting . _Just)
+    tr = uncurry translate (_crPos cr) . rotate (_crDir cr)
    cdir = _crDir cr
    naked 
        | strikeMelee   = color white $ circleSolid $ _crRad cr