Remove RenderType datatype

2021-07-30 11:53:51 +02:00
parent c67feb485f
commit 834464db51
31 changed files with 164 additions and 227 deletions
@@ -13,12 +13,12 @@ infixl 7 *.*
 {- | 2D coordinate-wise addition.  -}
 (+.+) :: Point2 -> Point2 -> Point2
 {-# INLINE (+.+) #-}
-(+.+) = (+)
--(x1, y1) +.+ (x2, y2) =
--  let
--    !x = x1 + x2
--    !y = y1 + y2
--  in (x, y)
+--(+.+) = -- (+)
+V2 x1 y1 +.+ V2 x2 y2 =
+  let
+    !x = x1 + x2
+    !y = y1 + y2
+  in V2 x y 
 {- | 2D coordinate-wise subtraction.  -}
 (-.-) :: Point2 -> Point2 -> Point2
 {-# INLINE (-.-) #-}