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
@@ -188,7 +188,7 @@ extendedViewPoints p grs = map extend
    ++ map addDir (concatMap _grLinkDirs grs)
    )
  where
-    extend outp = p +.+ maxViewDistance *.* safeNormalizeV (outp -.- p)
+    extend outp = p +.+ maxViewDistance *.* squashNormalizeV (outp -.- p)
    addDir a = p +.+ unitVectorAtAngle a

 farWallPoints :: Point2 -> World -> [Point2]