Move toward adding multiple equipable items that are not directly usable

2021-12-08 17:09:24 +00:00
parent 9f6e5af991
commit a9139db0a8
22 changed files with 260 additions and 137 deletions
@@ -5,8 +5,13 @@ import Geometry
 import Data.Maybe
 import Control.Lens

-makeClipAt :: Float -> Point3 -> Item -> Shape
-makeClipAt r p it = translateSH p . overPosSH (rotate3z r) $ upperPrismPoly 1 $ rectNSEW 0 (-y) (-2) 2
+makeSingleClipAt :: Point3 -> Item -> Shape
+makeSingleClipAt p it = case it ^? itConsumption . ammoLoaded of
+    Just 0 -> mempty
+    _ -> translateSH p $ upperPrismPoly 1 $ square 1.5
+
+makeTinClipAt :: Float -> Point3 -> Item -> Shape
+makeTinClipAt r p it = translateSH p . overPosSH (rotate3z r) $ upperPrismPoly 1 $ rectNSEW 0 (-y) (-2) 2
  where
    y = fromIntegral y' * 0.3
    y' = fromMaybe 0 $ it ^? itConsumption . ammoLoaded