sameLevelRightOf :: (Geometrical g1, Geometrical g2) => g1 -> g2 -> Bool
sameLevelRightOf ref c =
    inside1d (yband c) (midY ref) && after1d (xband ref) (minX c)
sameLevelRightOf :: (Geometrical g1, Geometrical g2) => g1 -> g2 -> Bool
sameLevelRightOf ref c =
    inside1d (yband c) (midY ref) && after1d (xband ref) (minX c)
sameLevelRightOf ref c =
    inside1d (yband c) (midY ref) && after1d (xband ref) (minX c)