diff --git a/src/Dodge/Item/Orientation.hs b/src/Dodge/Item/Orientation.hs
new file mode 100644
index 000000000..30f803f96
--- /dev/null
+++ b/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)