From 74b518e10bb0c68cb23a5c4fc71baf21ee6516d6 Mon Sep 17 00:00:00 2001
From: justin <justin.g.kruger@gmail.com>
Date: Mon, 30 Sep 2024 21:12:20 +0100
Subject: [PATCH] Add file

---
 src/Dodge/Item/Orientation.hs | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)
 create mode 100644 src/Dodge/Item/Orientation.hs

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)