Start adding machines for storing/distributing items

src/Shape.hs

@@ -43,6 +43,7 @@ import qualified Quaternion as Q
 import Shape.Data
 
 -- - approximate a circle around the z axis by a polygon with n*2 points of radius x
+-- should be anticlockwise
 polyCirc :: Int -> Float -> [Point2]
 {-# INLINE polyCirc #-}
 polyCirc n x = map (\a -> rotateV a (V2 x 0)) $ take (n * 2) [0, pi / fromIntegral n ..]
@@ -149,9 +150,9 @@ upperBoxSU :: Float -> [Point2] -> Shape
 upperBoxSU = upperBox Small Unimportant
 
 upperBox ::
-    -- | height, expected to be strictly positive
     Size ->
     Importance ->
+    -- | height, expected to be strictly positive
     Float ->
     [Point2] ->
     Shape