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