locRect :: (Axis a) => LocSpec a -> (a, a) -> Rect a
locRect loc (w, h) = Rect x y w h where
  Point x y = locTopleft loc (w, h)

-------------------------------------------------------------------------------
locRect :: (Axis a) => LocSpec a -> (a, a) -> Rect a
locRect loc (w, h) = Rect x y w h where
  Point x y = locTopleft loc (w, h)

-------------------------------------------------------------------------------
locRect loc (w, h) = Rect x y w h where
  Point x y = locTopleft loc (w, h)

-------------------------------------------------------------------------------