Cleanup

2026-03-24 09:38:32 +00:00
parent 832bebb597
commit be2f7160ba
13 changed files with 43 additions and 46 deletions
@@ -253,7 +253,7 @@ translateSHz !z = translateSH (V3 0 0 z)

 rotateSH :: Float -> Shape -> Shape
 {-# INLINE rotateSH #-}
-rotateSH = overPosSH . rotate3
+rotateSH = overPosSH . rotate3z

 overPosSH :: (Point3 -> Point3) -> Shape -> Shape
 {-# INLINEABLE overPosSH #-}