Allow for random choice between placements in different rooms

2021-11-26 12:20:20 +00:00
parent aad79bdf25
commit 123bcd2c94
27 changed files with 260 additions and 191 deletions
@@ -1,17 +1,8 @@
 module Geometry.Data
-    ( Point2 
-    , Point3 
-    , Point4 
+    ( module Geometry.Data
    , V2 (..)
    , V3 (..)
    , V4 (..)
-    , toV2
-    , toV3
-    , toV4
-    , fromV3
-    , uncurryV
-    , fstV2
-    , sndV2
    )
    where
 import Linear.V2
@@ -21,6 +12,8 @@ type Point2 = V2 Float
 type Point3 = V3 Float
 type Point4 = V4 Float

+type DPoint2 = (Point2,Float)
+
 toV2 :: (a,a) -> V2 a
 toV2 (a,b)      = V2 a b
 toV3 :: (a,a,a) -> V3 a