2014-10-10 15:40:08 +00:00
|
|
|
{-# OPTIONS_HADDOCK ignore-exports #-}
|
|
|
|
|
|
|
|
|
|
module Algebra.VectorTypes where
|
|
|
|
|
|
|
|
|
|
import Diagrams.TwoD.Types
|
|
|
|
|
|
|
|
|
|
|
2014-10-24 23:44:13 +00:00
|
|
|
type Vec = R2
|
|
|
|
|
type PT = P2
|
|
|
|
|
type Coord = (Double, Double)
|
|
|
|
|
type Segment = (PT, PT)
|
2014-11-13 22:04:26 +00:00
|
|
|
type Square = (Coord, Coord)
|
2014-10-12 18:37:24 +00:00
|
|
|
|
|
|
|
|
|
|
|
|
|
data Alignment = CW
|
|
|
|
|
| CCW
|
|
|
|
|
| CL
|
2014-10-24 23:44:13 +00:00
|
|
|
deriving (Eq)
|
