Cleanup and reorganise

2021-10-31 19:46:32 +00:00
parent 41e64d14c3
commit 08fa84c1fd
53 changed files with 1352 additions and 1407 deletions
@@ -1,12 +1,9 @@
 module Dodge.LevelGen.DoorPane
    ( rectanglePairs
    ) where
--import Dodge.Data
 import Geometry.Vector
 import Geometry.Data

-
-
 rectanglePairs :: Float -> Point2 -> Point2 -> [(Point2,Point2)]
 rectanglePairs wdth a b =
    [ (aup, ad)