Mid strictifying

2021-07-29 23:42:27 +02:00
parent 67aa5c05c7
commit bd8ef3f416
22 changed files with 359 additions and 325 deletions
@@ -11,6 +11,7 @@ import Dodge.Config.Data
 --import Dodge.Base (halfWidth,halfHeight)
 import Picture
 import Geometry
+import Geometry.Data

 menuScreen 
    :: Configuration 
@@ -108,8 +109,8 @@ controlsList = pictures $ concat $ zipWith butAndEff
 screenBox 
    :: Float    -- ^ Half screen width
    -> Float    -- ^ Half screen height
-    -> [(Float,Float)]
-screenBox halfW halfH = 
+    -> [Point2]
+screenBox halfW halfH = map toV2
    [  (halfW, halfH)
    , (-halfW, halfH)
    , (-halfW,-halfH)