Work on orienting and drawing attachments

2024-09-30 23:02:22 +01:00
parent 48b8cfe7ef
commit 752b568a86
13 changed files with 340 additions and 229 deletions
@@ -44,7 +44,7 @@ type ComposedItem = (Item, ItemStructuralFunction)

 data ItemLink = ILink
    { _iatType :: ComposeLinkType
-    , _iatOrient :: Item -> Item -> Maybe (Point3, Quaternion Float)
+    , _iatOrient :: Item -> ComposeLinkType -> Item -> Maybe (Point3, Quaternion Float)
    }

 data LinkTest lt = LTest
@@ -62,7 +62,7 @@ data ItemUse
      AttachUse
        {_atLinkedProjectile :: Maybe Int}
    | --        {_attachParams :: AttachParams}
-      AmmoMagUse
+      UseAmmoMag
        { _amagLoadStatus :: ReloadStatus
        , _amagParams :: AmmoParams
        , _amagType :: AmmoType