module ResionMap (containIntervalCC , containIntervalCC2) where
import Graphics.Rendering.OpenGL
import Graphics.UI.GLUT
import Control.Applicative  


containIntervalCC :: (Num a , Ord a) => a -> a -> a -> Bool
containIntervalCC i s x = (i <= x) && (x <= s )

containIntervalCC2 :: (Num a , Ord a) => (Vector2 a) -> (Vector2 a) -> (Vector2 a) -> Bool
containIntervalCC2 i s x = (Vector2 True True) == (containIntervalCC <$> i <*> s <*> x)