Nub close points for game room boundaries

2021-10-04 09:39:18 +01:00
parent df9a8ea242
commit c8e08d903e
8 changed files with 67 additions and 95 deletions
@@ -49,7 +49,7 @@ jsps0 :: PSType -> Maybe Placement
 jsps0 pst = Just $ sPS (V2 0 0) 0 pst

 sps0 :: PSType -> Placement
-sps0 pst = sPS (V2 0 0) 0 pst
+sps0 = sPS (V2 0 0) 0

 jspsJ :: Point2 -> Float -> PSType -> Placement -> Maybe Placement
 jspsJ p a pst plm = Just $ Placement (PS p a pst) $ \_ -> Just plm