Start work on crafting/combinations

2021-12-02 00:50:29 +00:00
parent ce06845278
commit 85ededc158
28 changed files with 189 additions and 112 deletions
@@ -97,7 +97,7 @@ expandPolyBy x ps = map f ps
 expandPolyByFixed :: Float -> [Point2] -> [Point2]
 expandPolyByFixed x ps = map f ps
  where
-    f p = p +.+ x *.* safeNormalizeV (p -.- centroid ps)
+    f p = p +.+ x *.* squashNormalizeV (p -.- centroid ps)
 -- | Given a value and a poly, pushes points out by a fixed amount along an
 -- angle determined by the corner, i.e. by the two other neighbour points
 expandPolyCorners :: Float -> [Point2] -> [Point2]