-- CCW triangles in box with given lower-left
box :: Num a => (a,a) -> [[(a,a)]]
box (i,j) = [[ll,lr,ul],[ul,lr,ur]]
 where
   ll = (i  ,j  )
   lr = (i+1,j  )
   ul = (i  ,j+1)
   ur = (i+1,j+1)

-- TODO: Switch to a single triangle, with degeneragte triangles.

-- | (columns,rows) of a mesh
box :: Num a => (a,a) -> [[(a,a)]]
box (i,j) = [[ll,lr,ul],[ul,lr,ur]]
 where
   ll = (i  ,j  )
   lr = (i+1,j  )
   ul = (i  ,j+1)
   ur = (i+1,j+1)

-- TODO: Switch to a single triangle, with degeneragte triangles.

-- | (columns,rows) of a mesh
box (i,j) = [[ll,lr,ul],[ul,lr,ur]]
 where
   ll = (i  ,j  )
   lr = (i+1,j  )
   ul = (i  ,j+1)
   ur = (i+1,j+1)

-- TODO: Switch to a single triangle, with degeneragte triangles.

-- | (columns,rows) of a mesh