Cleanup combining code, flatten modules

2024-10-01 10:01:21 +01:00
parent f69d150e00
commit 87cbaf911f
17 changed files with 143 additions and 173 deletions
@@ -19,7 +19,7 @@ orientByLink itm lt = case (_itType itm,lt) of
    _ -> (0,Q.axisAngle (V3 1 0 0) 0)

 orientAttachment :: Item -> ComposeLinkType -> Item -> Maybe (Point3, Q.Quaternion Float)
-orientAttachment par lnk ch = Just (t1 + (Q.rotate q1 t2), q1 * q2)
+orientAttachment par lnk ch = Just (t1 + Q.rotate q1 t2, q1 * q2)
  where
    (t1,q1) = orientByLink par lnk
    (t2,q2) = orientChild ch