module OpenCascade.GeomAbs.CurveType
( CurveType (..)
) where

-- This needs to stay up to date with GeomAbs_CurveType.hxx
data CurveType
    = Line 
    | Circle
    | Ellipse
    | Hyperbola 
    | Parabola 
    | BezierCurve
    | BSplineCurve
    | OffsetCurve
    | OtherCurve
    deriving (Int -> CurveType
CurveType -> Int
CurveType -> [CurveType]
CurveType -> CurveType
CurveType -> CurveType -> [CurveType]
CurveType -> CurveType -> CurveType -> [CurveType]
(CurveType -> CurveType)
-> (CurveType -> CurveType)
-> (Int -> CurveType)
-> (CurveType -> Int)
-> (CurveType -> [CurveType])
-> (CurveType -> CurveType -> [CurveType])
-> (CurveType -> CurveType -> [CurveType])
-> (CurveType -> CurveType -> CurveType -> [CurveType])
-> Enum CurveType
forall a.
(a -> a)
-> (a -> a)
-> (Int -> a)
-> (a -> Int)
-> (a -> [a])
-> (a -> a -> [a])
-> (a -> a -> [a])
-> (a -> a -> a -> [a])
-> Enum a
$csucc :: CurveType -> CurveType
succ :: CurveType -> CurveType
$cpred :: CurveType -> CurveType
pred :: CurveType -> CurveType
$ctoEnum :: Int -> CurveType
toEnum :: Int -> CurveType
$cfromEnum :: CurveType -> Int
fromEnum :: CurveType -> Int
$cenumFrom :: CurveType -> [CurveType]
enumFrom :: CurveType -> [CurveType]
$cenumFromThen :: CurveType -> CurveType -> [CurveType]
enumFromThen :: CurveType -> CurveType -> [CurveType]
$cenumFromTo :: CurveType -> CurveType -> [CurveType]
enumFromTo :: CurveType -> CurveType -> [CurveType]
$cenumFromThenTo :: CurveType -> CurveType -> CurveType -> [CurveType]
enumFromThenTo :: CurveType -> CurveType -> CurveType -> [CurveType]
Enum, Int -> CurveType -> ShowS
[CurveType] -> ShowS
CurveType -> String
(Int -> CurveType -> ShowS)
-> (CurveType -> String)
-> ([CurveType] -> ShowS)
-> Show CurveType
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> CurveType -> ShowS
showsPrec :: Int -> CurveType -> ShowS
$cshow :: CurveType -> String
show :: CurveType -> String
$cshowList :: [CurveType] -> ShowS
showList :: [CurveType] -> ShowS
Show)