Work on chase crit shape

src/Quaternion.hs

@@ -6,7 +6,7 @@ WARNING: orphan instances concerning Aeson classes and Linear.Quaternion datatyp
 The warnings have been disabled.
 -}
 module Quaternion (
-    qID,
+    qid,
     qz,
     qToV3,
     qToV2,
@@ -14,7 +14,7 @@ module Quaternion (
     rotateToZ,
     vToQuat,
     comp,
-    prePos,
+    apply,
     module Linear.Quaternion,
     qNoRoll,
 ) where
@@ -69,14 +69,14 @@ qToV2 = (\(V3 x y _) -> V2 x y) . qToV3
 qToAng :: Quaternion Float -> Float
 qToAng = argV . qToV2
 
-qID :: Q.Quaternion Float
-qID = Q.axisAngle (V3 1 0 0) 0
+qid :: Q.Quaternion Float
+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
+apply :: Point3Q -> Point3 -> Point3
+apply (p,q) p1 = p + Q.rotate q p1
 
 qz :: Float -> Q.Quaternion Float
 qz = Q.axisAngle (V3 0 0 1)