Cleanup

2026-03-24 09:38:32 +00:00
parent 832bebb597
commit be2f7160ba
13 changed files with 43 additions and 46 deletions
@@ -21,7 +21,8 @@ import qualified Quaternion as Q

 turretItemOffset :: Item -> Turret -> Machine -> Point3 -> Point3
 turretItemOffset it tu mc =
-    rotate3 (_tuDir tu + _mcDir mc) . (+.+.+ V3 0 0 shoulderHeight)
+    rotate3z (_tuDir tu + _mcDir mc) 
+        . (+ V3 0 0 shoulderHeight)
        . transToHandle it

 transToHandle :: Item -> Point3 -> Point3