Tweak use location

src/Quaternion.hs

@@ -15,6 +15,7 @@ module Quaternion (
     qToV2,
     rotateToZ,
     vToQuat,
+    comp,
     module Linear.Quaternion,
 ) where
 
@@ -54,4 +55,9 @@ qToV2 = (\(V3 x y _) -> V2 x y) . qToV3
 qID :: Q.Quaternion Float
 qID = Q.axisAngle (V3 1 0 0) 0
 
+comp :: (Point3, Q.Quaternion Float)
+    -> (Point3, Q.Quaternion Float)
+    -> (Point3, Q.Quaternion Float)
+comp (p,q) (p1,q1) = (p + Q.rotate q p1, q * q1)
+
 --deriving instance (Flat a => Flat (Quaternion a))