cga/Algebra/VectorTypes.hs

19 lines
304 B
Haskell

{-# OPTIONS_HADDOCK ignore-exports #-}
module Algebra.VectorTypes where
import Diagrams.TwoD.Types
type Vec = R2
type PT = P2
type Coord = (Double, Double)
type Segment = (PT, PT)
type Square = (Coord, Coord)
data Alignment = CW
| CCW
| CL
deriving (Eq)