module OpenCascade.GeomAbs.JoinType
( JoinType (..)
) where

-- This needs to stay up to date with GeomAbs_JoinType.hxx
data JoinType = Arc | Tangent | Intersection deriving (Int -> JoinType
JoinType -> Int
JoinType -> [JoinType]
JoinType -> JoinType
JoinType -> JoinType -> [JoinType]
JoinType -> JoinType -> JoinType -> [JoinType]
(JoinType -> JoinType)
-> (JoinType -> JoinType)
-> (Int -> JoinType)
-> (JoinType -> Int)
-> (JoinType -> [JoinType])
-> (JoinType -> JoinType -> [JoinType])
-> (JoinType -> JoinType -> [JoinType])
-> (JoinType -> JoinType -> JoinType -> [JoinType])
-> Enum JoinType
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 :: JoinType -> JoinType
succ :: JoinType -> JoinType
$cpred :: JoinType -> JoinType
pred :: JoinType -> JoinType
$ctoEnum :: Int -> JoinType
toEnum :: Int -> JoinType
$cfromEnum :: JoinType -> Int
fromEnum :: JoinType -> Int
$cenumFrom :: JoinType -> [JoinType]
enumFrom :: JoinType -> [JoinType]
$cenumFromThen :: JoinType -> JoinType -> [JoinType]
enumFromThen :: JoinType -> JoinType -> [JoinType]
$cenumFromTo :: JoinType -> JoinType -> [JoinType]
enumFromTo :: JoinType -> JoinType -> [JoinType]
$cenumFromThenTo :: JoinType -> JoinType -> JoinType -> [JoinType]
enumFromThenTo :: JoinType -> JoinType -> JoinType -> [JoinType]
Enum, Int -> JoinType -> ShowS
[JoinType] -> ShowS
JoinType -> String
(Int -> JoinType -> ShowS)
-> (JoinType -> String) -> ([JoinType] -> ShowS) -> Show JoinType
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> JoinType -> ShowS
showsPrec :: Int -> JoinType -> ShowS
$cshow :: JoinType -> String
show :: JoinType -> String
$cshowList :: [JoinType] -> ShowS
showList :: [JoinType] -> ShowS
Show)