module Points where

-- A simple demo of tuples
-- Clem Baker-Finch
-- COMP1100 2006

type Point = (Int,Int)

-- The origin of the coordinate system
origin :: Point
origin = (0,0)

-- Move a point a distance to the right
moveRight :: Point -> Int -> Point
moveRight (x,y) distance = (x+distance,y)

-- Move a point upwards
moveUp :: Point  -> Int -> Point
moveUp (x,y) distance = (x,y+distance)