{-# LANGUAGE CApiFFI #-}
module OpenCascade.GP.Vec2d
( Vec2d
, new
, getX
, getY
, setX
, setY 
, isEqual
, isOpposite
, isNormal
, isParallel
, angle
, magnitude
, squareMagnitude
, add
, added
, subtract
, subtracted
, multiply
, multiplied
, divide
, divided
, crossed
, crossMagnitude
, crossSquareMagnitude
, dot
, reverse
, reversed
, mirror
, mirrored
, mirrorAboutAx2d
, mirroredAboutAx2d
, rotate
, rotated
, scale
, scaled
, transform
, transformed
) where


import Prelude hiding (reverse, subtract)
import OpenCascade.GP.Types
import OpenCascade.GP.Internal.Destructors
import Foreign.C
import Foreign.Ptr
import Data.Coerce (coerce)
import Data.Acquire 

-- new

foreign import capi unsafe "hs_gp_Vec2d.h hs_new_gp_Vec2d" rawNew :: CDouble -> CDouble -> IO (Ptr Vec2d)

new :: Double -> Double -> Acquire (Ptr Vec2d)
new :: Double -> Double -> Acquire (Ptr Vec2d)
new Double
x Double
y = IO (Ptr Vec2d) -> (Ptr Vec2d -> IO ()) -> Acquire (Ptr Vec2d)
forall a. IO a -> (a -> IO ()) -> Acquire a
mkAcquire (CDouble -> CDouble -> IO (Ptr Vec2d)
rawNew (Double -> CDouble
CDouble Double
x) (Double -> CDouble
CDouble Double
y)) Ptr Vec2d -> IO ()
deleteVec2d

-- getters

foreign import capi unsafe "hs_gp_Vec2d.h hs_gp_Vec2d_X" rawX :: Ptr Vec2d -> IO (CDouble)

getX :: Ptr Vec2d -> IO Double
getX :: Ptr Vec2d -> IO Double
getX = (Ptr Vec2d -> IO CDouble) -> Ptr Vec2d -> IO Double
forall a b. Coercible a b => a -> b
coerce Ptr Vec2d -> IO CDouble
rawX

foreign import capi unsafe "hs_gp_Vec2d.h hs_gp_Vec2d_Y" rawY :: Ptr Vec2d -> IO (CDouble)

getY :: Ptr Vec2d -> IO Double
getY :: Ptr Vec2d -> IO Double
getY = (Ptr Vec2d -> IO CDouble) -> Ptr Vec2d -> IO Double
forall a b. Coercible a b => a -> b
coerce Ptr Vec2d -> IO CDouble
rawY

-- setters

foreign import capi unsafe "hs_gp_Vec2d.h hs_gp_Vec2d_SetX" rawSetX :: Ptr Vec2d -> CDouble -> IO ()

setX :: Ptr Vec2d -> Double -> IO ()
setX :: Ptr Vec2d -> Double -> IO ()
setX = (Ptr Vec2d -> CDouble -> IO ()) -> Ptr Vec2d -> Double -> IO ()
forall a b. Coercible a b => a -> b
coerce Ptr Vec2d -> CDouble -> IO ()
rawSetX


foreign import capi unsafe "hs_gp_Vec2d.h hs_gp_Vec2d_SetY" rawSetY :: Ptr Vec2d -> CDouble -> IO ()

setY :: Ptr Vec2d -> Double -> IO ()
setY :: Ptr Vec2d -> Double -> IO ()
setY = (Ptr Vec2d -> CDouble -> IO ()) -> Ptr Vec2d -> Double -> IO ()
forall a b. Coercible a b => a -> b
coerce Ptr Vec2d -> CDouble -> IO ()
rawSetY

-- tests

-- isEqual

foreign import capi unsafe "hs_gp_Vec2d.h hs_gp_Vec2d_IsEqual" rawIsEqual :: Ptr Vec2d -> Ptr Vec2d -> CDouble -> CDouble -> IO CBool

isEqual :: Ptr Vec2d -> Ptr Vec2d -> Double -> Double -> IO Bool
isEqual :: Ptr Vec2d -> Ptr Vec2d -> Double -> Double -> IO Bool
isEqual Ptr Vec2d
a Ptr Vec2d
b Double
linearTolerance Double
angularTolerance = (CBool -> CBool -> Bool
forall a. Eq a => a -> a -> Bool
/= CBool
0) (CBool -> Bool) -> IO CBool -> IO Bool
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Ptr Vec2d -> Ptr Vec2d -> CDouble -> CDouble -> IO CBool
rawIsEqual Ptr Vec2d
a Ptr Vec2d
b (Double -> CDouble
CDouble Double
linearTolerance) (Double -> CDouble
CDouble Double
angularTolerance)

-- isNormal

foreign import capi unsafe "hs_gp_Vec2d.h hs_gp_Vec2d_IsNormal" rawIsNormal :: Ptr Vec2d -> Ptr Vec2d -> CDouble -> IO CBool

isNormal :: Ptr Vec2d -> Ptr Vec2d -> Double -> IO Bool
isNormal :: Ptr Vec2d -> Ptr Vec2d -> Double -> IO Bool
isNormal Ptr Vec2d
a Ptr Vec2d
b Double
tolerance = (CBool -> CBool -> Bool
forall a. Eq a => a -> a -> Bool
/= CBool
0) (CBool -> Bool) -> IO CBool -> IO Bool
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Ptr Vec2d -> Ptr Vec2d -> CDouble -> IO CBool
rawIsNormal Ptr Vec2d
a Ptr Vec2d
b (Double -> CDouble
CDouble Double
tolerance)

-- isOpposite

foreign import capi unsafe "hs_gp_Vec2d.h hs_gp_Vec2d_IsOpposite" rawIsOpposite :: Ptr Vec2d -> Ptr Vec2d -> CDouble -> IO CBool

isOpposite :: Ptr Vec2d -> Ptr Vec2d -> Double -> IO Bool
isOpposite :: Ptr Vec2d -> Ptr Vec2d -> Double -> IO Bool
isOpposite Ptr Vec2d
a Ptr Vec2d
b Double
tolerance = (CBool -> CBool -> Bool
forall a. Eq a => a -> a -> Bool
/= CBool
0) (CBool -> Bool) -> IO CBool -> IO Bool
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Ptr Vec2d -> Ptr Vec2d -> CDouble -> IO CBool
rawIsOpposite Ptr Vec2d
a Ptr Vec2d
b (Double -> CDouble
CDouble Double
tolerance)

-- isParallel

foreign import capi unsafe "hs_gp_Vec2d.h hs_gp_Vec2d_IsParallel" rawIsParallel :: Ptr Vec2d -> Ptr Vec2d -> CDouble -> IO CBool

isParallel :: Ptr Vec2d -> Ptr Vec2d -> Double -> IO Bool
isParallel :: Ptr Vec2d -> Ptr Vec2d -> Double -> IO Bool
isParallel Ptr Vec2d
a Ptr Vec2d
b Double
tolerance = (CBool -> CBool -> Bool
forall a. Eq a => a -> a -> Bool
/= CBool
0) (CBool -> Bool) -> IO CBool -> IO Bool
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Ptr Vec2d -> Ptr Vec2d -> CDouble -> IO CBool
rawIsParallel Ptr Vec2d
a Ptr Vec2d
b (Double -> CDouble
CDouble Double
tolerance)

-- angle

foreign import capi unsafe "hs_gp_Vec2d.h hs_gp_Vec2d_Angle" rawAngle :: Ptr Vec2d -> Ptr Vec2d -> IO CDouble

angle :: Ptr Vec2d -> Ptr Vec2d -> IO Double
angle :: Ptr Vec2d -> Ptr Vec2d -> IO Double
angle = (Ptr Vec2d -> Ptr Vec2d -> IO CDouble)
-> Ptr Vec2d -> Ptr Vec2d -> IO Double
forall a b. Coercible a b => a -> b
coerce Ptr Vec2d -> Ptr Vec2d -> IO CDouble
rawAngle


-- magnitude

foreign import capi unsafe "hs_gp_Vec2d.h hs_gp_Vec2d_Magnitude" rawMagnitude :: Ptr Vec2d -> IO CDouble

magnitude :: Ptr Vec2d -> IO Double
magnitude :: Ptr Vec2d -> IO Double
magnitude = (Ptr Vec2d -> IO CDouble) -> Ptr Vec2d -> IO Double
forall a b. Coercible a b => a -> b
coerce Ptr Vec2d -> IO CDouble
rawMagnitude


-- squareMagnitude

foreign import capi unsafe "hs_gp_Vec2d.h hs_gp_Vec2d_SquareMagnitude" rawSquareMagnitude :: Ptr Vec2d -> IO CDouble

squareMagnitude :: Ptr Vec2d -> IO Double
squareMagnitude :: Ptr Vec2d -> IO Double
squareMagnitude = (Ptr Vec2d -> IO CDouble) -> Ptr Vec2d -> IO Double
forall a b. Coercible a b => a -> b
coerce Ptr Vec2d -> IO CDouble
rawSquareMagnitude

-- add/added

foreign import capi unsafe "hs_gp_Vec2d.h hs_gp_Vec2d_Add" add :: Ptr Vec2d -> Ptr Vec2d -> IO ()

foreign import capi unsafe "hs_gp_Vec2d.h hs_gp_Vec2d_Added" rawAdded :: Ptr Vec2d -> Ptr Vec2d -> IO (Ptr Vec2d)

added :: Ptr Vec2d -> Ptr Vec2d -> Acquire (Ptr Vec2d)
added :: Ptr Vec2d -> Ptr Vec2d -> Acquire (Ptr Vec2d)
added Ptr Vec2d
a Ptr Vec2d
b = IO (Ptr Vec2d) -> (Ptr Vec2d -> IO ()) -> Acquire (Ptr Vec2d)
forall a. IO a -> (a -> IO ()) -> Acquire a
mkAcquire (Ptr Vec2d -> Ptr Vec2d -> IO (Ptr Vec2d)
rawAdded Ptr Vec2d
a Ptr Vec2d
b) Ptr Vec2d -> IO ()
deleteVec2d


-- subtract/subtracted

foreign import capi unsafe "hs_gp_Vec2d.h hs_gp_Vec2d_Subtract" subtract :: Ptr Vec2d -> Ptr Vec2d -> IO ()

foreign import capi unsafe "hs_gp_Vec2d.h hs_gp_Vec2d_Subtracted" rawSubtracted :: Ptr Vec2d -> Ptr Vec2d -> IO (Ptr Vec2d)

subtracted :: Ptr Vec2d -> Ptr Vec2d -> Acquire (Ptr Vec2d)
subtracted :: Ptr Vec2d -> Ptr Vec2d -> Acquire (Ptr Vec2d)
subtracted Ptr Vec2d
a Ptr Vec2d
b = IO (Ptr Vec2d) -> (Ptr Vec2d -> IO ()) -> Acquire (Ptr Vec2d)
forall a. IO a -> (a -> IO ()) -> Acquire a
mkAcquire (Ptr Vec2d -> Ptr Vec2d -> IO (Ptr Vec2d)
rawSubtracted Ptr Vec2d
a Ptr Vec2d
b) Ptr Vec2d -> IO ()
deleteVec2d


-- multiply/multiplied

foreign import capi unsafe "hs_gp_Vec2d.h hs_gp_Vec2d_Multiply" rawMultiply :: Ptr Vec2d -> CDouble -> IO ()

multiply :: Ptr Vec2d -> Double -> IO ()
multiply :: Ptr Vec2d -> Double -> IO ()
multiply = (Ptr Vec2d -> CDouble -> IO ()) -> Ptr Vec2d -> Double -> IO ()
forall a b. Coercible a b => a -> b
coerce Ptr Vec2d -> CDouble -> IO ()
rawMultiply

foreign import capi unsafe "hs_gp_Vec2d.h hs_gp_Vec2d_Multiplied" rawMultiplied :: Ptr Vec2d -> CDouble -> IO (Ptr Vec2d)

multiplied :: Ptr Vec2d -> Double -> Acquire (Ptr Vec2d)
multiplied :: Ptr Vec2d -> Double -> Acquire (Ptr Vec2d)
multiplied Ptr Vec2d
a Double
b = IO (Ptr Vec2d) -> (Ptr Vec2d -> IO ()) -> Acquire (Ptr Vec2d)
forall a. IO a -> (a -> IO ()) -> Acquire a
mkAcquire (Ptr Vec2d -> CDouble -> IO (Ptr Vec2d)
rawMultiplied Ptr Vec2d
a (Double -> CDouble
CDouble Double
b)) Ptr Vec2d -> IO ()
deleteVec2d

-- divide/divided

foreign import capi unsafe "hs_gp_Vec2d.h hs_gp_Vec2d_Divide" rawDivide :: Ptr Vec2d -> CDouble -> IO ()

divide :: Ptr Vec2d -> Double -> IO ()
divide :: Ptr Vec2d -> Double -> IO ()
divide = (Ptr Vec2d -> CDouble -> IO ()) -> Ptr Vec2d -> Double -> IO ()
forall a b. Coercible a b => a -> b
coerce Ptr Vec2d -> CDouble -> IO ()
rawDivide

foreign import capi unsafe "hs_gp_Vec2d.h hs_gp_Vec2d_Divided" rawDivided :: Ptr Vec2d -> CDouble -> IO (Ptr Vec2d)

divided :: Ptr Vec2d -> Double -> Acquire (Ptr Vec2d)
divided :: Ptr Vec2d -> Double -> Acquire (Ptr Vec2d)
divided Ptr Vec2d
a Double
b = IO (Ptr Vec2d) -> (Ptr Vec2d -> IO ()) -> Acquire (Ptr Vec2d)
forall a. IO a -> (a -> IO ()) -> Acquire a
mkAcquire (Ptr Vec2d -> CDouble -> IO (Ptr Vec2d)
rawDivided Ptr Vec2d
a (Double -> CDouble
CDouble Double
b)) Ptr Vec2d -> IO ()
deleteVec2d

-- cross/crossed

foreign import capi unsafe "hs_gp_Vec2d.h hs_gp_Vec2d_Crossed" rawCrossed :: Ptr Vec2d -> Ptr Vec2d -> IO (CDouble)

crossed :: Ptr Vec2d -> Ptr Vec2d -> IO CDouble
crossed :: Ptr Vec2d -> Ptr Vec2d -> IO CDouble
crossed = (Ptr Vec2d -> Ptr Vec2d -> IO CDouble)
-> Ptr Vec2d -> Ptr Vec2d -> IO CDouble
forall a b. Coercible a b => a -> b
coerce Ptr Vec2d -> Ptr Vec2d -> IO CDouble
rawCrossed

-- crossMagnitude

foreign import capi unsafe "hs_gp_Vec2d.h hs_gp_Vec2d_CrossMagnitude" rawCrossMagnitude :: Ptr Vec2d -> Ptr Vec2d -> IO CDouble

crossMagnitude :: Ptr Vec2d -> Ptr Vec2d -> IO Double
crossMagnitude :: Ptr Vec2d -> Ptr Vec2d -> IO Double
crossMagnitude = (Ptr Vec2d -> Ptr Vec2d -> IO CDouble)
-> Ptr Vec2d -> Ptr Vec2d -> IO Double
forall a b. Coercible a b => a -> b
coerce Ptr Vec2d -> Ptr Vec2d -> IO CDouble
rawCrossMagnitude

-- crossSquareMagnitude

foreign import capi unsafe "hs_gp_Vec2d.h hs_gp_Vec2d_CrossSquareMagnitude" rawCrossSquareMagnitude :: Ptr Vec2d -> Ptr Vec2d -> IO CDouble

crossSquareMagnitude :: Ptr Vec2d -> Ptr Vec2d -> IO Double
crossSquareMagnitude :: Ptr Vec2d -> Ptr Vec2d -> IO Double
crossSquareMagnitude = (Ptr Vec2d -> Ptr Vec2d -> IO CDouble)
-> Ptr Vec2d -> Ptr Vec2d -> IO Double
forall a b. Coercible a b => a -> b
coerce Ptr Vec2d -> Ptr Vec2d -> IO CDouble
rawCrossSquareMagnitude

-- dot

foreign import capi unsafe "hs_gp_Vec2d.h hs_gp_Vec2d_Dot" rawDot :: Ptr Vec2d -> Ptr Vec2d -> IO CDouble

dot :: Ptr Vec2d -> Ptr Vec2d -> IO Double
dot :: Ptr Vec2d -> Ptr Vec2d -> IO Double
dot = (Ptr Vec2d -> Ptr Vec2d -> IO CDouble)
-> Ptr Vec2d -> Ptr Vec2d -> IO Double
forall a b. Coercible a b => a -> b
coerce Ptr Vec2d -> Ptr Vec2d -> IO CDouble
rawDot

-- reverse/reversed

foreign import capi unsafe "hs_gp_Vec2d.h hs_gp_Vec2d_Reverse" reverse :: Ptr Vec2d -> IO ()

foreign import capi unsafe "hs_gp_Vec2d.h hs_gp_Vec2d_Reversed" rawReversed :: Ptr Vec2d -> IO (Ptr Vec2d)

reversed :: Ptr Vec2d -> Acquire (Ptr Vec2d)
reversed :: Ptr Vec2d -> Acquire (Ptr Vec2d)
reversed Ptr Vec2d
axis = IO (Ptr Vec2d) -> (Ptr Vec2d -> IO ()) -> Acquire (Ptr Vec2d)
forall a. IO a -> (a -> IO ()) -> Acquire a
mkAcquire (Ptr Vec2d -> IO (Ptr Vec2d)
rawReversed Ptr Vec2d
axis) Ptr Vec2d -> IO ()
deleteVec2d

-- mirror/mirrored

foreign import capi unsafe "hs_gp_Vec2d.h hs_gp_Vec2d_Mirror" mirror :: Ptr Vec2d -> Ptr Vec2d -> IO ()

foreign import capi unsafe "hs_gp_Vec2d.h hs_gp_Vec2d_Mirrored" rawMirrored :: Ptr Vec2d -> Ptr Vec2d -> IO (Ptr Vec2d)

mirrored :: Ptr Vec2d -> Ptr Vec2d -> Acquire (Ptr Vec2d)
mirrored :: Ptr Vec2d -> Ptr Vec2d -> Acquire (Ptr Vec2d)
mirrored Ptr Vec2d
point Ptr Vec2d
axis = IO (Ptr Vec2d) -> (Ptr Vec2d -> IO ()) -> Acquire (Ptr Vec2d)
forall a. IO a -> (a -> IO ()) -> Acquire a
mkAcquire (Ptr Vec2d -> Ptr Vec2d -> IO (Ptr Vec2d)
rawMirrored Ptr Vec2d
point Ptr Vec2d
axis) Ptr Vec2d -> IO ()
deleteVec2d

foreign import capi unsafe "hs_gp_Vec2d.h hs_gp_Vec2d_MirrorAboutAx2d" mirrorAboutAx2d :: Ptr Vec2d -> Ptr Ax2d -> IO ()

foreign import capi unsafe "hs_gp_Vec2d.h hs_gp_Vec2d_MirroredAboutAx2d" rawMirroredAboutAx2d :: Ptr Vec2d -> Ptr Ax2d -> IO (Ptr Vec2d)

mirroredAboutAx2d :: Ptr Vec2d -> Ptr Ax2d -> Acquire (Ptr Vec2d)
mirroredAboutAx2d :: Ptr Vec2d -> Ptr Ax2d -> Acquire (Ptr Vec2d)
mirroredAboutAx2d Ptr Vec2d
point Ptr Ax2d
axis = IO (Ptr Vec2d) -> (Ptr Vec2d -> IO ()) -> Acquire (Ptr Vec2d)
forall a. IO a -> (a -> IO ()) -> Acquire a
mkAcquire (Ptr Vec2d -> Ptr Ax2d -> IO (Ptr Vec2d)
rawMirroredAboutAx2d Ptr Vec2d
point Ptr Ax2d
axis) Ptr Vec2d -> IO ()
deleteVec2d

-- rotate/rotated

foreign import capi unsafe "hs_gp_Vec2d.h hs_gp_Vec2d_Rotate" rotate :: Ptr Vec2d -> CDouble-> IO ()

foreign import capi unsafe "hs_gp_Vec2d.h hs_gp_Vec2d_Rotated" rawRotated :: Ptr Vec2d -> CDouble -> IO (Ptr Vec2d)

rotated :: Ptr Vec2d -> Double -> Acquire (Ptr Vec2d)
rotated :: Ptr Vec2d -> Double -> Acquire (Ptr Vec2d)
rotated Ptr Vec2d
point Double
angleOfRotation = IO (Ptr Vec2d) -> (Ptr Vec2d -> IO ()) -> Acquire (Ptr Vec2d)
forall a. IO a -> (a -> IO ()) -> Acquire a
mkAcquire (Ptr Vec2d -> CDouble -> IO (Ptr Vec2d)
rawRotated Ptr Vec2d
point (Double -> CDouble
CDouble Double
angleOfRotation)) Ptr Vec2d -> IO ()
deleteVec2d

-- scale/scaled

foreign import capi unsafe "hs_gp_Vec2d.h hs_gp_Vec2d_Scale" rawScale :: Ptr Vec2d -> CDouble -> IO ()

scale :: Ptr Vec2d -> Double -> IO ()
scale :: Ptr Vec2d -> Double -> IO ()
scale = (Ptr Vec2d -> CDouble -> IO ()) -> Ptr Vec2d -> Double -> IO ()
forall a b. Coercible a b => a -> b
coerce Ptr Vec2d -> CDouble -> IO ()
rawScale

foreign import capi unsafe "hs_gp_Vec2d.h hs_gp_Vec2d_Scaled" rawScaled :: Ptr Vec2d -> CDouble -> IO (Ptr Vec2d)

scaled :: Ptr Vec2d -> Double -> Acquire (Ptr Vec2d)
scaled :: Ptr Vec2d -> Double -> Acquire (Ptr Vec2d)
scaled Ptr Vec2d
a Double
b = IO (Ptr Vec2d) -> (Ptr Vec2d -> IO ()) -> Acquire (Ptr Vec2d)
forall a. IO a -> (a -> IO ()) -> Acquire a
mkAcquire (Ptr Vec2d -> CDouble -> IO (Ptr Vec2d)
rawScaled Ptr Vec2d
a (Double -> CDouble
CDouble Double
b)) Ptr Vec2d -> IO ()
deleteVec2d


-- transform/transformed

foreign import capi unsafe "hs_gp_Vec2d.h hs_gp_Vec2d_Transform" transform :: Ptr Vec2d -> Ptr Trsf -> IO ()

foreign import capi unsafe "hs_gp_Vec2d.h hs_gp_Vec2d_Transformed" rawTransformed :: Ptr Vec2d -> Ptr Trsf -> IO (Ptr Vec2d)

transformed :: Ptr Vec2d -> Ptr Trsf -> Acquire (Ptr Vec2d)
transformed :: Ptr Vec2d -> Ptr Trsf -> Acquire (Ptr Vec2d)
transformed Ptr Vec2d
point Ptr Trsf
trsf = IO (Ptr Vec2d) -> (Ptr Vec2d -> IO ()) -> Acquire (Ptr Vec2d)
forall a. IO a -> (a -> IO ()) -> Acquire a
mkAcquire (Ptr Vec2d -> Ptr Trsf -> IO (Ptr Vec2d)
rawTransformed Ptr Vec2d
point Ptr Trsf
trsf) Ptr Vec2d -> IO ()
deleteVec2d