Remove LDTs from orientations + item shapes

src/Quaternion.hs

@@ -17,6 +17,7 @@ module Quaternion (
     rotateToZ,
     vToQuat,
     comp,
+    prePos,
     module Linear.Quaternion,
 ) where
 
@@ -63,4 +64,7 @@ qID = Q.axisAngle (V3 1 0 0) 0
 comp :: Point3Q -> Point3Q -> Point3Q
 comp (p,q) (p1,q1) = (p + Q.rotate q p1, q * q1)
 
+prePos :: Point3Q -> Point3 -> Point3
+prePos (p,q) p1 = p + Q.rotate q p1
+
 --deriving instance (Flat a => Flat (Quaternion a))