Add file

src/Dodge/Item/Orientation.hs

@@ -0,0 +1,16 @@
+module Dodge.Item.Orientation
+    where
+
+import Dodge.Data.ComposedItem
+import Geometry.Data
+import Dodge.Data.Item
+import qualified Linear.Quaternion as Q
+
+orientChild :: Item -> (Point3, Q.Quaternion Float)
+orientChild itm = case _itType itm of
+    HELD {} -> (0,0)
+    _ -> (0,0)
+
+orientByLink :: Item -> ComposeLinkType -> (Point3, Q.Quaternion Float)
+orientByLink itm _ = case _itType itm of
+    _ -> (0,0)