Move towards being able to orient positions on attached items

src/Quaternion.hs

@@ -10,6 +10,7 @@ WARNING: orphan instances concerning Aeson classes and Linear.Quaternion datatyp
 The warnings have been disabled.
 -}
 module Quaternion (
+    qID,
     rotateToZ,
     vToQuat,
     module Linear.Quaternion,
@@ -42,4 +43,7 @@ vToQuat a b
   where
     cprod = crossProd a b
 
+qID :: Q.Quaternion Float
+qID = Q.axisAngle (V3 1 0 0) 0
+
 --deriving instance (Flat a => Flat (Quaternion a))