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
@@ -9,7 +9,7 @@ module Dodge.Item.Grammar (

 import Dodge.Item.Orientation
 --import qualified Linear.Quaternion as Q
-import Geometry.Data
+--import Geometry.Data
 import Control.Applicative
 import Data.Bifunctor

@@ -60,8 +60,6 @@ basePartiallyComposedItem' itm = case itm ^. itType of
 --    _ -> 
  where
    noa x y = (x, ILink y orientAttachment)
-    c x y _ _ _ = Just (x,y)
--    rhs = Q.axisAngle (V3 1 0 0) 0
    nolinks x = (itm,x, LTest (const Nothing) (const Nothing))
    isolate = (itm,UncomposableIsolateSF, LTest (const Nothing) (const Nothing))