geom2d-0.2.1: Geom2d/Translate.hs

-- This module provides basic algebra with 2d-vectors and geomtric shapes
-- Copyright (C) 2015, Sebastian Jordan

-- This program is free software: you can redistribute it and/or modify
-- it under the terms of the GNU General Public License as published by
-- the Free Software Foundation, either version 3 of the License, or
-- (at your option) any later version.

-- This program is distributed in the hope that it will be useful,
-- but WITHOUT ANY WARRANTY; without even the implied warranty of
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-- GNU General Public License for more details.

-- You should have received a copy of the GNU General Public License
-- along with this program.  If not, see <http://www.gnu.org/licenses/>.

module Geom2d.Translate

where

import Geom2d.Point
import Geom2d.Point.Internal
  
class Translate t where
  translate :: (Point p, Num a) => p a -> t a -> t a

instance Translate Point' where
  translate p (Point' (a,b)) = Point' (x p + a, y p + b)