module TerraHS.TerraLib.TeCoord2D
	(
	
	TeCoord2D,
	
	cx, cy
	
	)
	 where

--data TeCoord2D = TePoint Double Double deriving (Eq,Show,Ord) 

type TeCoord2D = ( Double, Double ) 

cx, cy :: TeCoord2D -> Double
cx (x, y) = x
cy (x, y) = y