Remove RenderType datatype

2021-07-30 11:53:51 +02:00
parent c67feb485f
commit 834464db51
31 changed files with 164 additions and 227 deletions
@@ -21,10 +21,14 @@ type Point2 = V2 Float
 type Point3 = V3 Float
 type Point4 = V4 Float

+toV2 :: (a,a) -> V2 a
 toV2 (a,b)      = V2 a b
+toV3 :: (a,a,a) -> V3 a
 toV3 (a,b,c)    = V3 a b c
+toV4 :: (a,a,a,a) -> V4 a
 toV4 (a,b,c,d)  = V4 a b c d

+fromV3 :: V3 a -> (a,a,a)
 fromV3 (V3 a b c) = (a,b,c)

 uncurryV :: (a -> a -> b) -> V2 a -> b