General cleanup, remove Drawing type synonym

2021-03-23 15:48:14 +01:00
parent b13467053a
commit 451ef98b9f
8 changed files with 100 additions and 48 deletions
@@ -760,9 +760,6 @@ wallsLOS :: Foldable t => t [Point2] -> Point2 -> Point2 -> Bool
 {-# INLINE wallsLOS #-}
 wallsLOS !ls !c !p = all (\l -> wallLOS l c p) ls

-translateDrawing = translate
-rotateDrawing = rotate
-
 mvPointTowardAtSpeed :: Float -> Point2 -> Point2 -> Point2
 mvPointTowardAtSpeed speed !ep !p 
    | dist p ep < speed = ep