Use strict tuples for SPics

2024-10-01 01:20:29 +01:00
parent a98ec80f59
commit 5a4f2711c8
17 changed files with 69 additions and 481 deletions
@@ -25,7 +25,7 @@ import ShapePicture

 basicCrPict :: Creature -> SPic
 basicCrPict cr = uncurryV translateSPxy (_crPos cr) (rotateSP (_crDir cr) $ drawEquipment cr) 
-    <> (basicCrShape cr, mempty)
+    <> noPic (basicCrShape cr)

 --testShape :: Shape
 --testShape = translateSHz 10 . rotateSHx 1 . upperCylinder 20 $ polyCirc 2 10
@@ -103,7 +103,7 @@ deadFeet = feet
 arms :: Creature -> Shape
 {-# INLINE arms #-}
 arms cr =
-    fst $
+    (^. _1) $
        translateToRightHand cr aHand
            <> translateToLeftHand cr aHand
  where