Unify matrix uniform assignment, move towards uniform block

src/Tile.hs

@@ -10,7 +10,7 @@ tToRender t = map Render3x3 $ polyToTris $ zip ps3 coords3
   where
     ps = _tilePoly t
     coords = map (calcTexCoord (_tileCenter t) (_tileX t) (_tileY t)) ps
-    ps3 = map (mkTrip (0.9)) ps
+    ps3 = map (mkTrip 0.9) ps
     coords3 = map (mkTrip (_tileZ t)) coords
 
 mkTrip :: c -> (a,b) -> (a,b,c)
@@ -43,6 +43,6 @@ oTile poly z = Tile
     }
   where
     c = head poly
-    xdir = 50 *.* (normalizeV (poly !! 1 -.- c))
+    xdir = 50 *.* normalizeV (poly !! 1 -.- c)
     x = c +.+ xdir
     y = c +.+ vNormal xdir