Start simplifying creature body parts/attachment positioning

src/Quaternion.hs

@@ -11,6 +11,7 @@ The warnings have been disabled.
 -}
 module Quaternion (
     qID,
+    qz,
     qToV3,
     qToV2,
     qToAng,
@@ -67,4 +68,7 @@ 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
 
+qz :: Float -> Q.Quaternion Float
+qz = Q.axisAngle (V3 0 0 1)
+
 --deriving instance (Flat a => Flat (Quaternion a))