{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Graphene.Structs.Quaternion
(
Quaternion(..) ,
newZeroQuaternion ,
noQuaternion ,
#if defined(ENABLE_OVERLOADING)
ResolveQuaternionMethod ,
#endif
quaternionAlloc ,
#if defined(ENABLE_OVERLOADING)
QuaternionDotMethodInfo ,
#endif
quaternionDot ,
#if defined(ENABLE_OVERLOADING)
QuaternionEqualMethodInfo ,
#endif
quaternionEqual ,
#if defined(ENABLE_OVERLOADING)
QuaternionFreeMethodInfo ,
#endif
quaternionFree ,
#if defined(ENABLE_OVERLOADING)
QuaternionInitMethodInfo ,
#endif
quaternionInit ,
#if defined(ENABLE_OVERLOADING)
QuaternionInitFromAngleVec3MethodInfo ,
#endif
quaternionInitFromAngleVec3 ,
#if defined(ENABLE_OVERLOADING)
QuaternionInitFromAnglesMethodInfo ,
#endif
quaternionInitFromAngles ,
#if defined(ENABLE_OVERLOADING)
QuaternionInitFromEulerMethodInfo ,
#endif
quaternionInitFromEuler ,
#if defined(ENABLE_OVERLOADING)
QuaternionInitFromMatrixMethodInfo ,
#endif
quaternionInitFromMatrix ,
#if defined(ENABLE_OVERLOADING)
QuaternionInitFromQuaternionMethodInfo ,
#endif
quaternionInitFromQuaternion ,
#if defined(ENABLE_OVERLOADING)
QuaternionInitFromRadiansMethodInfo ,
#endif
quaternionInitFromRadians ,
#if defined(ENABLE_OVERLOADING)
QuaternionInitFromVec4MethodInfo ,
#endif
quaternionInitFromVec4 ,
#if defined(ENABLE_OVERLOADING)
QuaternionInitIdentityMethodInfo ,
#endif
quaternionInitIdentity ,
#if defined(ENABLE_OVERLOADING)
QuaternionInvertMethodInfo ,
#endif
quaternionInvert ,
#if defined(ENABLE_OVERLOADING)
QuaternionNormalizeMethodInfo ,
#endif
quaternionNormalize ,
#if defined(ENABLE_OVERLOADING)
QuaternionSlerpMethodInfo ,
#endif
quaternionSlerp ,
#if defined(ENABLE_OVERLOADING)
QuaternionToAngleVec3MethodInfo ,
#endif
quaternionToAngleVec3 ,
#if defined(ENABLE_OVERLOADING)
QuaternionToAnglesMethodInfo ,
#endif
quaternionToAngles ,
#if defined(ENABLE_OVERLOADING)
QuaternionToMatrixMethodInfo ,
#endif
quaternionToMatrix ,
#if defined(ENABLE_OVERLOADING)
QuaternionToRadiansMethodInfo ,
#endif
quaternionToRadians ,
#if defined(ENABLE_OVERLOADING)
QuaternionToVec4MethodInfo ,
#endif
quaternionToVec4 ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import {-# SOURCE #-} qualified GI.Graphene.Structs.Euler as Graphene.Euler
import {-# SOURCE #-} qualified GI.Graphene.Structs.Matrix as Graphene.Matrix
import {-# SOURCE #-} qualified GI.Graphene.Structs.Vec3 as Graphene.Vec3
import {-# SOURCE #-} qualified GI.Graphene.Structs.Vec4 as Graphene.Vec4
newtype Quaternion = Quaternion (ManagedPtr Quaternion)
deriving (Quaternion -> Quaternion -> Bool
(Quaternion -> Quaternion -> Bool)
-> (Quaternion -> Quaternion -> Bool) -> Eq Quaternion
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Quaternion -> Quaternion -> Bool
$c/= :: Quaternion -> Quaternion -> Bool
== :: Quaternion -> Quaternion -> Bool
$c== :: Quaternion -> Quaternion -> Bool
Eq)
foreign import ccall "graphene_quaternion_get_type" c_graphene_quaternion_get_type ::
IO GType
instance BoxedObject Quaternion where
boxedType :: Quaternion -> IO GType
boxedType _ = IO GType
c_graphene_quaternion_get_type
instance B.GValue.IsGValue Quaternion where
toGValue :: Quaternion -> IO GValue
toGValue o :: Quaternion
o = do
GType
gtype <- IO GType
c_graphene_quaternion_get_type
Quaternion -> (Ptr Quaternion -> IO GValue) -> IO GValue
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr Quaternion
o (GType
-> (GValue -> Ptr Quaternion -> IO ())
-> Ptr Quaternion
-> IO GValue
forall a. GType -> (GValue -> a -> IO ()) -> a -> IO GValue
B.GValue.buildGValue GType
gtype GValue -> Ptr Quaternion -> IO ()
forall a. GValue -> Ptr a -> IO ()
B.GValue.set_boxed)
fromGValue :: GValue -> IO Quaternion
fromGValue gv :: GValue
gv = do
Ptr Quaternion
ptr <- GValue -> IO (Ptr Quaternion)
forall b. GValue -> IO (Ptr b)
B.GValue.get_boxed GValue
gv :: IO (Ptr Quaternion)
(ManagedPtr Quaternion -> Quaternion)
-> Ptr Quaternion -> IO Quaternion
forall a.
(HasCallStack, BoxedObject a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
B.ManagedPtr.newBoxed ManagedPtr Quaternion -> Quaternion
Quaternion Ptr Quaternion
ptr
newZeroQuaternion :: MonadIO m => m Quaternion
newZeroQuaternion :: m Quaternion
newZeroQuaternion = IO Quaternion -> m Quaternion
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Quaternion -> m Quaternion) -> IO Quaternion -> m Quaternion
forall a b. (a -> b) -> a -> b
$ Int -> IO (Ptr Quaternion)
forall a. BoxedObject a => Int -> IO (Ptr a)
callocBoxedBytes 16 IO (Ptr Quaternion)
-> (Ptr Quaternion -> IO Quaternion) -> IO Quaternion
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (ManagedPtr Quaternion -> Quaternion)
-> Ptr Quaternion -> IO Quaternion
forall a.
(HasCallStack, BoxedObject a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr Quaternion -> Quaternion
Quaternion
instance tag ~ 'AttrSet => Constructible Quaternion tag where
new :: (ManagedPtr Quaternion -> Quaternion)
-> [AttrOp Quaternion tag] -> m Quaternion
new _ attrs :: [AttrOp Quaternion tag]
attrs = do
Quaternion
o <- m Quaternion
forall (m :: * -> *). MonadIO m => m Quaternion
newZeroQuaternion
Quaternion -> [AttrOp Quaternion 'AttrSet] -> m ()
forall o (m :: * -> *).
MonadIO m =>
o -> [AttrOp o 'AttrSet] -> m ()
GI.Attributes.set Quaternion
o [AttrOp Quaternion tag]
[AttrOp Quaternion 'AttrSet]
attrs
Quaternion -> m Quaternion
forall (m :: * -> *) a. Monad m => a -> m a
return Quaternion
o
noQuaternion :: Maybe Quaternion
noQuaternion :: Maybe Quaternion
noQuaternion = Maybe Quaternion
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList Quaternion
type instance O.AttributeList Quaternion = QuaternionAttributeList
type QuaternionAttributeList = ('[ ] :: [(Symbol, *)])
#endif
foreign import ccall "graphene_quaternion_alloc" graphene_quaternion_alloc ::
IO (Ptr Quaternion)
quaternionAlloc ::
(B.CallStack.HasCallStack, MonadIO m) =>
m Quaternion
quaternionAlloc :: m Quaternion
quaternionAlloc = IO Quaternion -> m Quaternion
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Quaternion -> m Quaternion) -> IO Quaternion -> m Quaternion
forall a b. (a -> b) -> a -> b
$ do
Ptr Quaternion
result <- IO (Ptr Quaternion)
graphene_quaternion_alloc
Text -> Ptr Quaternion -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "quaternionAlloc" Ptr Quaternion
result
Quaternion
result' <- ((ManagedPtr Quaternion -> Quaternion)
-> Ptr Quaternion -> IO Quaternion
forall a.
(HasCallStack, BoxedObject a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr Quaternion -> Quaternion
Quaternion) Ptr Quaternion
result
Quaternion -> IO Quaternion
forall (m :: * -> *) a. Monad m => a -> m a
return Quaternion
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "graphene_quaternion_dot" graphene_quaternion_dot ::
Ptr Quaternion ->
Ptr Quaternion ->
IO CFloat
quaternionDot ::
(B.CallStack.HasCallStack, MonadIO m) =>
Quaternion
-> Quaternion
-> m Float
quaternionDot :: Quaternion -> Quaternion -> m Float
quaternionDot a :: Quaternion
a b :: Quaternion
b = IO Float -> m Float
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Float -> m Float) -> IO Float -> m Float
forall a b. (a -> b) -> a -> b
$ do
Ptr Quaternion
a' <- Quaternion -> IO (Ptr Quaternion)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Quaternion
a
Ptr Quaternion
b' <- Quaternion -> IO (Ptr Quaternion)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Quaternion
b
CFloat
result <- Ptr Quaternion -> Ptr Quaternion -> IO CFloat
graphene_quaternion_dot Ptr Quaternion
a' Ptr Quaternion
b'
let result' :: Float
result' = CFloat -> Float
forall a b. (Real a, Fractional b) => a -> b
realToFrac CFloat
result
Quaternion -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Quaternion
a
Quaternion -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Quaternion
b
Float -> IO Float
forall (m :: * -> *) a. Monad m => a -> m a
return Float
result'
#if defined(ENABLE_OVERLOADING)
data QuaternionDotMethodInfo
instance (signature ~ (Quaternion -> m Float), MonadIO m) => O.MethodInfo QuaternionDotMethodInfo Quaternion signature where
overloadedMethod = quaternionDot
#endif
foreign import ccall "graphene_quaternion_equal" graphene_quaternion_equal ::
Ptr Quaternion ->
Ptr Quaternion ->
IO CInt
quaternionEqual ::
(B.CallStack.HasCallStack, MonadIO m) =>
Quaternion
-> Quaternion
-> m Bool
quaternionEqual :: Quaternion -> Quaternion -> m Bool
quaternionEqual a :: Quaternion
a b :: Quaternion
b = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Quaternion
a' <- Quaternion -> IO (Ptr Quaternion)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Quaternion
a
Ptr Quaternion
b' <- Quaternion -> IO (Ptr Quaternion)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Quaternion
b
CInt
result <- Ptr Quaternion -> Ptr Quaternion -> IO CInt
graphene_quaternion_equal Ptr Quaternion
a' Ptr Quaternion
b'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
Quaternion -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Quaternion
a
Quaternion -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Quaternion
b
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data QuaternionEqualMethodInfo
instance (signature ~ (Quaternion -> m Bool), MonadIO m) => O.MethodInfo QuaternionEqualMethodInfo Quaternion signature where
overloadedMethod = quaternionEqual
#endif
foreign import ccall "graphene_quaternion_free" graphene_quaternion_free ::
Ptr Quaternion ->
IO ()
quaternionFree ::
(B.CallStack.HasCallStack, MonadIO m) =>
Quaternion
-> m ()
quaternionFree :: Quaternion -> m ()
quaternionFree q :: Quaternion
q = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Quaternion
q' <- Quaternion -> IO (Ptr Quaternion)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Quaternion
q
Ptr Quaternion -> IO ()
graphene_quaternion_free Ptr Quaternion
q'
Quaternion -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Quaternion
q
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data QuaternionFreeMethodInfo
instance (signature ~ (m ()), MonadIO m) => O.MethodInfo QuaternionFreeMethodInfo Quaternion signature where
overloadedMethod = quaternionFree
#endif
foreign import ccall "graphene_quaternion_init" graphene_quaternion_init ::
Ptr Quaternion ->
CFloat ->
CFloat ->
CFloat ->
CFloat ->
IO (Ptr Quaternion)
quaternionInit ::
(B.CallStack.HasCallStack, MonadIO m) =>
Quaternion
-> Float
-> Float
-> Float
-> Float
-> m Quaternion
quaternionInit :: Quaternion -> Float -> Float -> Float -> Float -> m Quaternion
quaternionInit q :: Quaternion
q x :: Float
x y :: Float
y z :: Float
z w :: Float
w = IO Quaternion -> m Quaternion
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Quaternion -> m Quaternion) -> IO Quaternion -> m Quaternion
forall a b. (a -> b) -> a -> b
$ do
Ptr Quaternion
q' <- Quaternion -> IO (Ptr Quaternion)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Quaternion
q
let x' :: CFloat
x' = Float -> CFloat
forall a b. (Real a, Fractional b) => a -> b
realToFrac Float
x
let y' :: CFloat
y' = Float -> CFloat
forall a b. (Real a, Fractional b) => a -> b
realToFrac Float
y
let z' :: CFloat
z' = Float -> CFloat
forall a b. (Real a, Fractional b) => a -> b
realToFrac Float
z
let w' :: CFloat
w' = Float -> CFloat
forall a b. (Real a, Fractional b) => a -> b
realToFrac Float
w
Ptr Quaternion
result <- Ptr Quaternion
-> CFloat -> CFloat -> CFloat -> CFloat -> IO (Ptr Quaternion)
graphene_quaternion_init Ptr Quaternion
q' CFloat
x' CFloat
y' CFloat
z' CFloat
w'
Text -> Ptr Quaternion -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "quaternionInit" Ptr Quaternion
result
Quaternion
result' <- ((ManagedPtr Quaternion -> Quaternion)
-> Ptr Quaternion -> IO Quaternion
forall a.
(HasCallStack, BoxedObject a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newBoxed ManagedPtr Quaternion -> Quaternion
Quaternion) Ptr Quaternion
result
Quaternion -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Quaternion
q
Quaternion -> IO Quaternion
forall (m :: * -> *) a. Monad m => a -> m a
return Quaternion
result'
#if defined(ENABLE_OVERLOADING)
data QuaternionInitMethodInfo
instance (signature ~ (Float -> Float -> Float -> Float -> m Quaternion), MonadIO m) => O.MethodInfo QuaternionInitMethodInfo Quaternion signature where
overloadedMethod = quaternionInit
#endif
foreign import ccall "graphene_quaternion_init_from_angle_vec3" graphene_quaternion_init_from_angle_vec3 ::
Ptr Quaternion ->
CFloat ->
Ptr Graphene.Vec3.Vec3 ->
IO (Ptr Quaternion)
quaternionInitFromAngleVec3 ::
(B.CallStack.HasCallStack, MonadIO m) =>
Quaternion
-> Float
-> Graphene.Vec3.Vec3
-> m Quaternion
quaternionInitFromAngleVec3 :: Quaternion -> Float -> Vec3 -> m Quaternion
quaternionInitFromAngleVec3 q :: Quaternion
q angle :: Float
angle axis :: Vec3
axis = IO Quaternion -> m Quaternion
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Quaternion -> m Quaternion) -> IO Quaternion -> m Quaternion
forall a b. (a -> b) -> a -> b
$ do
Ptr Quaternion
q' <- Quaternion -> IO (Ptr Quaternion)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Quaternion
q
let angle' :: CFloat
angle' = Float -> CFloat
forall a b. (Real a, Fractional b) => a -> b
realToFrac Float
angle
Ptr Vec3
axis' <- Vec3 -> IO (Ptr Vec3)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Vec3
axis
Ptr Quaternion
result <- Ptr Quaternion -> CFloat -> Ptr Vec3 -> IO (Ptr Quaternion)
graphene_quaternion_init_from_angle_vec3 Ptr Quaternion
q' CFloat
angle' Ptr Vec3
axis'
Text -> Ptr Quaternion -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "quaternionInitFromAngleVec3" Ptr Quaternion
result
Quaternion
result' <- ((ManagedPtr Quaternion -> Quaternion)
-> Ptr Quaternion -> IO Quaternion
forall a.
(HasCallStack, BoxedObject a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newBoxed ManagedPtr Quaternion -> Quaternion
Quaternion) Ptr Quaternion
result
Quaternion -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Quaternion
q
Vec3 -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Vec3
axis
Quaternion -> IO Quaternion
forall (m :: * -> *) a. Monad m => a -> m a
return Quaternion
result'
#if defined(ENABLE_OVERLOADING)
data QuaternionInitFromAngleVec3MethodInfo
instance (signature ~ (Float -> Graphene.Vec3.Vec3 -> m Quaternion), MonadIO m) => O.MethodInfo QuaternionInitFromAngleVec3MethodInfo Quaternion signature where
overloadedMethod = quaternionInitFromAngleVec3
#endif
foreign import ccall "graphene_quaternion_init_from_angles" graphene_quaternion_init_from_angles ::
Ptr Quaternion ->
CFloat ->
CFloat ->
CFloat ->
IO (Ptr Quaternion)
quaternionInitFromAngles ::
(B.CallStack.HasCallStack, MonadIO m) =>
Quaternion
-> Float
-> Float
-> Float
-> m Quaternion
quaternionInitFromAngles :: Quaternion -> Float -> Float -> Float -> m Quaternion
quaternionInitFromAngles q :: Quaternion
q degX :: Float
degX degY :: Float
degY degZ :: Float
degZ = IO Quaternion -> m Quaternion
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Quaternion -> m Quaternion) -> IO Quaternion -> m Quaternion
forall a b. (a -> b) -> a -> b
$ do
Ptr Quaternion
q' <- Quaternion -> IO (Ptr Quaternion)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Quaternion
q
let degX' :: CFloat
degX' = Float -> CFloat
forall a b. (Real a, Fractional b) => a -> b
realToFrac Float
degX
let degY' :: CFloat
degY' = Float -> CFloat
forall a b. (Real a, Fractional b) => a -> b
realToFrac Float
degY
let degZ' :: CFloat
degZ' = Float -> CFloat
forall a b. (Real a, Fractional b) => a -> b
realToFrac Float
degZ
Ptr Quaternion
result <- Ptr Quaternion -> CFloat -> CFloat -> CFloat -> IO (Ptr Quaternion)
graphene_quaternion_init_from_angles Ptr Quaternion
q' CFloat
degX' CFloat
degY' CFloat
degZ'
Text -> Ptr Quaternion -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "quaternionInitFromAngles" Ptr Quaternion
result
Quaternion
result' <- ((ManagedPtr Quaternion -> Quaternion)
-> Ptr Quaternion -> IO Quaternion
forall a.
(HasCallStack, BoxedObject a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newBoxed ManagedPtr Quaternion -> Quaternion
Quaternion) Ptr Quaternion
result
Quaternion -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Quaternion
q
Quaternion -> IO Quaternion
forall (m :: * -> *) a. Monad m => a -> m a
return Quaternion
result'
#if defined(ENABLE_OVERLOADING)
data QuaternionInitFromAnglesMethodInfo
instance (signature ~ (Float -> Float -> Float -> m Quaternion), MonadIO m) => O.MethodInfo QuaternionInitFromAnglesMethodInfo Quaternion signature where
overloadedMethod = quaternionInitFromAngles
#endif
foreign import ccall "graphene_quaternion_init_from_euler" graphene_quaternion_init_from_euler ::
Ptr Quaternion ->
Ptr Graphene.Euler.Euler ->
IO (Ptr Quaternion)
quaternionInitFromEuler ::
(B.CallStack.HasCallStack, MonadIO m) =>
Quaternion
-> Graphene.Euler.Euler
-> m Quaternion
quaternionInitFromEuler :: Quaternion -> Euler -> m Quaternion
quaternionInitFromEuler q :: Quaternion
q e :: Euler
e = IO Quaternion -> m Quaternion
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Quaternion -> m Quaternion) -> IO Quaternion -> m Quaternion
forall a b. (a -> b) -> a -> b
$ do
Ptr Quaternion
q' <- Quaternion -> IO (Ptr Quaternion)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Quaternion
q
Ptr Euler
e' <- Euler -> IO (Ptr Euler)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Euler
e
Ptr Quaternion
result <- Ptr Quaternion -> Ptr Euler -> IO (Ptr Quaternion)
graphene_quaternion_init_from_euler Ptr Quaternion
q' Ptr Euler
e'
Text -> Ptr Quaternion -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "quaternionInitFromEuler" Ptr Quaternion
result
Quaternion
result' <- ((ManagedPtr Quaternion -> Quaternion)
-> Ptr Quaternion -> IO Quaternion
forall a.
(HasCallStack, BoxedObject a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newBoxed ManagedPtr Quaternion -> Quaternion
Quaternion) Ptr Quaternion
result
Quaternion -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Quaternion
q
Euler -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Euler
e
Quaternion -> IO Quaternion
forall (m :: * -> *) a. Monad m => a -> m a
return Quaternion
result'
#if defined(ENABLE_OVERLOADING)
data QuaternionInitFromEulerMethodInfo
instance (signature ~ (Graphene.Euler.Euler -> m Quaternion), MonadIO m) => O.MethodInfo QuaternionInitFromEulerMethodInfo Quaternion signature where
overloadedMethod = quaternionInitFromEuler
#endif
foreign import ccall "graphene_quaternion_init_from_matrix" graphene_quaternion_init_from_matrix ::
Ptr Quaternion ->
Ptr Graphene.Matrix.Matrix ->
IO (Ptr Quaternion)
quaternionInitFromMatrix ::
(B.CallStack.HasCallStack, MonadIO m) =>
Quaternion
-> Graphene.Matrix.Matrix
-> m Quaternion
quaternionInitFromMatrix :: Quaternion -> Matrix -> m Quaternion
quaternionInitFromMatrix q :: Quaternion
q m :: Matrix
m = IO Quaternion -> m Quaternion
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Quaternion -> m Quaternion) -> IO Quaternion -> m Quaternion
forall a b. (a -> b) -> a -> b
$ do
Ptr Quaternion
q' <- Quaternion -> IO (Ptr Quaternion)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Quaternion
q
Ptr Matrix
m' <- Matrix -> IO (Ptr Matrix)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Matrix
m
Ptr Quaternion
result <- Ptr Quaternion -> Ptr Matrix -> IO (Ptr Quaternion)
graphene_quaternion_init_from_matrix Ptr Quaternion
q' Ptr Matrix
m'
Text -> Ptr Quaternion -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "quaternionInitFromMatrix" Ptr Quaternion
result
Quaternion
result' <- ((ManagedPtr Quaternion -> Quaternion)
-> Ptr Quaternion -> IO Quaternion
forall a.
(HasCallStack, BoxedObject a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newBoxed ManagedPtr Quaternion -> Quaternion
Quaternion) Ptr Quaternion
result
Quaternion -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Quaternion
q
Matrix -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Matrix
m
Quaternion -> IO Quaternion
forall (m :: * -> *) a. Monad m => a -> m a
return Quaternion
result'
#if defined(ENABLE_OVERLOADING)
data QuaternionInitFromMatrixMethodInfo
instance (signature ~ (Graphene.Matrix.Matrix -> m Quaternion), MonadIO m) => O.MethodInfo QuaternionInitFromMatrixMethodInfo Quaternion signature where
overloadedMethod = quaternionInitFromMatrix
#endif
foreign import ccall "graphene_quaternion_init_from_quaternion" graphene_quaternion_init_from_quaternion ::
Ptr Quaternion ->
Ptr Quaternion ->
IO (Ptr Quaternion)
quaternionInitFromQuaternion ::
(B.CallStack.HasCallStack, MonadIO m) =>
Quaternion
-> Quaternion
-> m Quaternion
quaternionInitFromQuaternion :: Quaternion -> Quaternion -> m Quaternion
quaternionInitFromQuaternion q :: Quaternion
q src :: Quaternion
src = IO Quaternion -> m Quaternion
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Quaternion -> m Quaternion) -> IO Quaternion -> m Quaternion
forall a b. (a -> b) -> a -> b
$ do
Ptr Quaternion
q' <- Quaternion -> IO (Ptr Quaternion)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Quaternion
q
Ptr Quaternion
src' <- Quaternion -> IO (Ptr Quaternion)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Quaternion
src
Ptr Quaternion
result <- Ptr Quaternion -> Ptr Quaternion -> IO (Ptr Quaternion)
graphene_quaternion_init_from_quaternion Ptr Quaternion
q' Ptr Quaternion
src'
Text -> Ptr Quaternion -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "quaternionInitFromQuaternion" Ptr Quaternion
result
Quaternion
result' <- ((ManagedPtr Quaternion -> Quaternion)
-> Ptr Quaternion -> IO Quaternion
forall a.
(HasCallStack, BoxedObject a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newBoxed ManagedPtr Quaternion -> Quaternion
Quaternion) Ptr Quaternion
result
Quaternion -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Quaternion
q
Quaternion -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Quaternion
src
Quaternion -> IO Quaternion
forall (m :: * -> *) a. Monad m => a -> m a
return Quaternion
result'
#if defined(ENABLE_OVERLOADING)
data QuaternionInitFromQuaternionMethodInfo
instance (signature ~ (Quaternion -> m Quaternion), MonadIO m) => O.MethodInfo QuaternionInitFromQuaternionMethodInfo Quaternion signature where
overloadedMethod = quaternionInitFromQuaternion
#endif
foreign import ccall "graphene_quaternion_init_from_radians" graphene_quaternion_init_from_radians ::
Ptr Quaternion ->
CFloat ->
CFloat ->
CFloat ->
IO (Ptr Quaternion)
quaternionInitFromRadians ::
(B.CallStack.HasCallStack, MonadIO m) =>
Quaternion
-> Float
-> Float
-> Float
-> m Quaternion
quaternionInitFromRadians :: Quaternion -> Float -> Float -> Float -> m Quaternion
quaternionInitFromRadians q :: Quaternion
q radX :: Float
radX radY :: Float
radY radZ :: Float
radZ = IO Quaternion -> m Quaternion
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Quaternion -> m Quaternion) -> IO Quaternion -> m Quaternion
forall a b. (a -> b) -> a -> b
$ do
Ptr Quaternion
q' <- Quaternion -> IO (Ptr Quaternion)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Quaternion
q
let radX' :: CFloat
radX' = Float -> CFloat
forall a b. (Real a, Fractional b) => a -> b
realToFrac Float
radX
let radY' :: CFloat
radY' = Float -> CFloat
forall a b. (Real a, Fractional b) => a -> b
realToFrac Float
radY
let radZ' :: CFloat
radZ' = Float -> CFloat
forall a b. (Real a, Fractional b) => a -> b
realToFrac Float
radZ
Ptr Quaternion
result <- Ptr Quaternion -> CFloat -> CFloat -> CFloat -> IO (Ptr Quaternion)
graphene_quaternion_init_from_radians Ptr Quaternion
q' CFloat
radX' CFloat
radY' CFloat
radZ'
Text -> Ptr Quaternion -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "quaternionInitFromRadians" Ptr Quaternion
result
Quaternion
result' <- ((ManagedPtr Quaternion -> Quaternion)
-> Ptr Quaternion -> IO Quaternion
forall a.
(HasCallStack, BoxedObject a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newBoxed ManagedPtr Quaternion -> Quaternion
Quaternion) Ptr Quaternion
result
Quaternion -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Quaternion
q
Quaternion -> IO Quaternion
forall (m :: * -> *) a. Monad m => a -> m a
return Quaternion
result'
#if defined(ENABLE_OVERLOADING)
data QuaternionInitFromRadiansMethodInfo
instance (signature ~ (Float -> Float -> Float -> m Quaternion), MonadIO m) => O.MethodInfo QuaternionInitFromRadiansMethodInfo Quaternion signature where
overloadedMethod = quaternionInitFromRadians
#endif
foreign import ccall "graphene_quaternion_init_from_vec4" graphene_quaternion_init_from_vec4 ::
Ptr Quaternion ->
Ptr Graphene.Vec4.Vec4 ->
IO (Ptr Quaternion)
quaternionInitFromVec4 ::
(B.CallStack.HasCallStack, MonadIO m) =>
Quaternion
-> Graphene.Vec4.Vec4
-> m Quaternion
quaternionInitFromVec4 :: Quaternion -> Vec4 -> m Quaternion
quaternionInitFromVec4 q :: Quaternion
q src :: Vec4
src = IO Quaternion -> m Quaternion
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Quaternion -> m Quaternion) -> IO Quaternion -> m Quaternion
forall a b. (a -> b) -> a -> b
$ do
Ptr Quaternion
q' <- Quaternion -> IO (Ptr Quaternion)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Quaternion
q
Ptr Vec4
src' <- Vec4 -> IO (Ptr Vec4)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Vec4
src
Ptr Quaternion
result <- Ptr Quaternion -> Ptr Vec4 -> IO (Ptr Quaternion)
graphene_quaternion_init_from_vec4 Ptr Quaternion
q' Ptr Vec4
src'
Text -> Ptr Quaternion -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "quaternionInitFromVec4" Ptr Quaternion
result
Quaternion
result' <- ((ManagedPtr Quaternion -> Quaternion)
-> Ptr Quaternion -> IO Quaternion
forall a.
(HasCallStack, BoxedObject a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newBoxed ManagedPtr Quaternion -> Quaternion
Quaternion) Ptr Quaternion
result
Quaternion -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Quaternion
q
Vec4 -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Vec4
src
Quaternion -> IO Quaternion
forall (m :: * -> *) a. Monad m => a -> m a
return Quaternion
result'
#if defined(ENABLE_OVERLOADING)
data QuaternionInitFromVec4MethodInfo
instance (signature ~ (Graphene.Vec4.Vec4 -> m Quaternion), MonadIO m) => O.MethodInfo QuaternionInitFromVec4MethodInfo Quaternion signature where
overloadedMethod = quaternionInitFromVec4
#endif
foreign import ccall "graphene_quaternion_init_identity" graphene_quaternion_init_identity ::
Ptr Quaternion ->
IO (Ptr Quaternion)
quaternionInitIdentity ::
(B.CallStack.HasCallStack, MonadIO m) =>
Quaternion
-> m Quaternion
quaternionInitIdentity :: Quaternion -> m Quaternion
quaternionInitIdentity q :: Quaternion
q = IO Quaternion -> m Quaternion
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Quaternion -> m Quaternion) -> IO Quaternion -> m Quaternion
forall a b. (a -> b) -> a -> b
$ do
Ptr Quaternion
q' <- Quaternion -> IO (Ptr Quaternion)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Quaternion
q
Ptr Quaternion
result <- Ptr Quaternion -> IO (Ptr Quaternion)
graphene_quaternion_init_identity Ptr Quaternion
q'
Text -> Ptr Quaternion -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "quaternionInitIdentity" Ptr Quaternion
result
Quaternion
result' <- ((ManagedPtr Quaternion -> Quaternion)
-> Ptr Quaternion -> IO Quaternion
forall a.
(HasCallStack, BoxedObject a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newBoxed ManagedPtr Quaternion -> Quaternion
Quaternion) Ptr Quaternion
result
Quaternion -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Quaternion
q
Quaternion -> IO Quaternion
forall (m :: * -> *) a. Monad m => a -> m a
return Quaternion
result'
#if defined(ENABLE_OVERLOADING)
data QuaternionInitIdentityMethodInfo
instance (signature ~ (m Quaternion), MonadIO m) => O.MethodInfo QuaternionInitIdentityMethodInfo Quaternion signature where
overloadedMethod = quaternionInitIdentity
#endif
foreign import ccall "graphene_quaternion_invert" graphene_quaternion_invert ::
Ptr Quaternion ->
Ptr Quaternion ->
IO ()
quaternionInvert ::
(B.CallStack.HasCallStack, MonadIO m) =>
Quaternion
-> m (Quaternion)
quaternionInvert :: Quaternion -> m Quaternion
quaternionInvert q :: Quaternion
q = IO Quaternion -> m Quaternion
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Quaternion -> m Quaternion) -> IO Quaternion -> m Quaternion
forall a b. (a -> b) -> a -> b
$ do
Ptr Quaternion
q' <- Quaternion -> IO (Ptr Quaternion)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Quaternion
q
Ptr Quaternion
res <- Int -> IO (Ptr Quaternion)
forall a. BoxedObject a => Int -> IO (Ptr a)
callocBoxedBytes 16 :: IO (Ptr Quaternion)
Ptr Quaternion -> Ptr Quaternion -> IO ()
graphene_quaternion_invert Ptr Quaternion
q' Ptr Quaternion
res
Quaternion
res' <- ((ManagedPtr Quaternion -> Quaternion)
-> Ptr Quaternion -> IO Quaternion
forall a.
(HasCallStack, BoxedObject a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr Quaternion -> Quaternion
Quaternion) Ptr Quaternion
res
Quaternion -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Quaternion
q
Quaternion -> IO Quaternion
forall (m :: * -> *) a. Monad m => a -> m a
return Quaternion
res'
#if defined(ENABLE_OVERLOADING)
data QuaternionInvertMethodInfo
instance (signature ~ (m (Quaternion)), MonadIO m) => O.MethodInfo QuaternionInvertMethodInfo Quaternion signature where
overloadedMethod = quaternionInvert
#endif
foreign import ccall "graphene_quaternion_normalize" graphene_quaternion_normalize ::
Ptr Quaternion ->
Ptr Quaternion ->
IO ()
quaternionNormalize ::
(B.CallStack.HasCallStack, MonadIO m) =>
Quaternion
-> m (Quaternion)
quaternionNormalize :: Quaternion -> m Quaternion
quaternionNormalize q :: Quaternion
q = IO Quaternion -> m Quaternion
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Quaternion -> m Quaternion) -> IO Quaternion -> m Quaternion
forall a b. (a -> b) -> a -> b
$ do
Ptr Quaternion
q' <- Quaternion -> IO (Ptr Quaternion)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Quaternion
q
Ptr Quaternion
res <- Int -> IO (Ptr Quaternion)
forall a. BoxedObject a => Int -> IO (Ptr a)
callocBoxedBytes 16 :: IO (Ptr Quaternion)
Ptr Quaternion -> Ptr Quaternion -> IO ()
graphene_quaternion_normalize Ptr Quaternion
q' Ptr Quaternion
res
Quaternion
res' <- ((ManagedPtr Quaternion -> Quaternion)
-> Ptr Quaternion -> IO Quaternion
forall a.
(HasCallStack, BoxedObject a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr Quaternion -> Quaternion
Quaternion) Ptr Quaternion
res
Quaternion -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Quaternion
q
Quaternion -> IO Quaternion
forall (m :: * -> *) a. Monad m => a -> m a
return Quaternion
res'
#if defined(ENABLE_OVERLOADING)
data QuaternionNormalizeMethodInfo
instance (signature ~ (m (Quaternion)), MonadIO m) => O.MethodInfo QuaternionNormalizeMethodInfo Quaternion signature where
overloadedMethod = quaternionNormalize
#endif
foreign import ccall "graphene_quaternion_slerp" graphene_quaternion_slerp ::
Ptr Quaternion ->
Ptr Quaternion ->
CFloat ->
Ptr Quaternion ->
IO ()
quaternionSlerp ::
(B.CallStack.HasCallStack, MonadIO m) =>
Quaternion
-> Quaternion
-> Float
-> m (Quaternion)
quaternionSlerp :: Quaternion -> Quaternion -> Float -> m Quaternion
quaternionSlerp a :: Quaternion
a b :: Quaternion
b factor :: Float
factor = IO Quaternion -> m Quaternion
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Quaternion -> m Quaternion) -> IO Quaternion -> m Quaternion
forall a b. (a -> b) -> a -> b
$ do
Ptr Quaternion
a' <- Quaternion -> IO (Ptr Quaternion)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Quaternion
a
Ptr Quaternion
b' <- Quaternion -> IO (Ptr Quaternion)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Quaternion
b
let factor' :: CFloat
factor' = Float -> CFloat
forall a b. (Real a, Fractional b) => a -> b
realToFrac Float
factor
Ptr Quaternion
res <- Int -> IO (Ptr Quaternion)
forall a. BoxedObject a => Int -> IO (Ptr a)
callocBoxedBytes 16 :: IO (Ptr Quaternion)
Ptr Quaternion
-> Ptr Quaternion -> CFloat -> Ptr Quaternion -> IO ()
graphene_quaternion_slerp Ptr Quaternion
a' Ptr Quaternion
b' CFloat
factor' Ptr Quaternion
res
Quaternion
res' <- ((ManagedPtr Quaternion -> Quaternion)
-> Ptr Quaternion -> IO Quaternion
forall a.
(HasCallStack, BoxedObject a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr Quaternion -> Quaternion
Quaternion) Ptr Quaternion
res
Quaternion -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Quaternion
a
Quaternion -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Quaternion
b
Quaternion -> IO Quaternion
forall (m :: * -> *) a. Monad m => a -> m a
return Quaternion
res'
#if defined(ENABLE_OVERLOADING)
data QuaternionSlerpMethodInfo
instance (signature ~ (Quaternion -> Float -> m (Quaternion)), MonadIO m) => O.MethodInfo QuaternionSlerpMethodInfo Quaternion signature where
overloadedMethod = quaternionSlerp
#endif
foreign import ccall "graphene_quaternion_to_angle_vec3" graphene_quaternion_to_angle_vec3 ::
Ptr Quaternion ->
Ptr CFloat ->
Ptr Graphene.Vec3.Vec3 ->
IO ()
quaternionToAngleVec3 ::
(B.CallStack.HasCallStack, MonadIO m) =>
Quaternion
-> m ((Float, Graphene.Vec3.Vec3))
quaternionToAngleVec3 :: Quaternion -> m (Float, Vec3)
quaternionToAngleVec3 q :: Quaternion
q = IO (Float, Vec3) -> m (Float, Vec3)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Float, Vec3) -> m (Float, Vec3))
-> IO (Float, Vec3) -> m (Float, Vec3)
forall a b. (a -> b) -> a -> b
$ do
Ptr Quaternion
q' <- Quaternion -> IO (Ptr Quaternion)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Quaternion
q
Ptr CFloat
angle <- IO (Ptr CFloat)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr CFloat)
Ptr Vec3
axis <- Int -> IO (Ptr Vec3)
forall a. BoxedObject a => Int -> IO (Ptr a)
callocBoxedBytes 16 :: IO (Ptr Graphene.Vec3.Vec3)
Ptr Quaternion -> Ptr CFloat -> Ptr Vec3 -> IO ()
graphene_quaternion_to_angle_vec3 Ptr Quaternion
q' Ptr CFloat
angle Ptr Vec3
axis
CFloat
angle' <- Ptr CFloat -> IO CFloat
forall a. Storable a => Ptr a -> IO a
peek Ptr CFloat
angle
let angle'' :: Float
angle'' = CFloat -> Float
forall a b. (Real a, Fractional b) => a -> b
realToFrac CFloat
angle'
Vec3
axis' <- ((ManagedPtr Vec3 -> Vec3) -> Ptr Vec3 -> IO Vec3
forall a.
(HasCallStack, BoxedObject a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr Vec3 -> Vec3
Graphene.Vec3.Vec3) Ptr Vec3
axis
Quaternion -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Quaternion
q
Ptr CFloat -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CFloat
angle
(Float, Vec3) -> IO (Float, Vec3)
forall (m :: * -> *) a. Monad m => a -> m a
return (Float
angle'', Vec3
axis')
#if defined(ENABLE_OVERLOADING)
data QuaternionToAngleVec3MethodInfo
instance (signature ~ (m ((Float, Graphene.Vec3.Vec3))), MonadIO m) => O.MethodInfo QuaternionToAngleVec3MethodInfo Quaternion signature where
overloadedMethod = quaternionToAngleVec3
#endif
foreign import ccall "graphene_quaternion_to_angles" graphene_quaternion_to_angles ::
Ptr Quaternion ->
Ptr CFloat ->
Ptr CFloat ->
Ptr CFloat ->
IO ()
quaternionToAngles ::
(B.CallStack.HasCallStack, MonadIO m) =>
Quaternion
-> m ((Float, Float, Float))
quaternionToAngles :: Quaternion -> m (Float, Float, Float)
quaternionToAngles q :: Quaternion
q = IO (Float, Float, Float) -> m (Float, Float, Float)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Float, Float, Float) -> m (Float, Float, Float))
-> IO (Float, Float, Float) -> m (Float, Float, Float)
forall a b. (a -> b) -> a -> b
$ do
Ptr Quaternion
q' <- Quaternion -> IO (Ptr Quaternion)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Quaternion
q
Ptr CFloat
degX <- IO (Ptr CFloat)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr CFloat)
Ptr CFloat
degY <- IO (Ptr CFloat)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr CFloat)
Ptr CFloat
degZ <- IO (Ptr CFloat)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr CFloat)
Ptr Quaternion -> Ptr CFloat -> Ptr CFloat -> Ptr CFloat -> IO ()
graphene_quaternion_to_angles Ptr Quaternion
q' Ptr CFloat
degX Ptr CFloat
degY Ptr CFloat
degZ
CFloat
degX' <- Ptr CFloat -> IO CFloat
forall a. Storable a => Ptr a -> IO a
peek Ptr CFloat
degX
let degX'' :: Float
degX'' = CFloat -> Float
forall a b. (Real a, Fractional b) => a -> b
realToFrac CFloat
degX'
CFloat
degY' <- Ptr CFloat -> IO CFloat
forall a. Storable a => Ptr a -> IO a
peek Ptr CFloat
degY
let degY'' :: Float
degY'' = CFloat -> Float
forall a b. (Real a, Fractional b) => a -> b
realToFrac CFloat
degY'
CFloat
degZ' <- Ptr CFloat -> IO CFloat
forall a. Storable a => Ptr a -> IO a
peek Ptr CFloat
degZ
let degZ'' :: Float
degZ'' = CFloat -> Float
forall a b. (Real a, Fractional b) => a -> b
realToFrac CFloat
degZ'
Quaternion -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Quaternion
q
Ptr CFloat -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CFloat
degX
Ptr CFloat -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CFloat
degY
Ptr CFloat -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CFloat
degZ
(Float, Float, Float) -> IO (Float, Float, Float)
forall (m :: * -> *) a. Monad m => a -> m a
return (Float
degX'', Float
degY'', Float
degZ'')
#if defined(ENABLE_OVERLOADING)
data QuaternionToAnglesMethodInfo
instance (signature ~ (m ((Float, Float, Float))), MonadIO m) => O.MethodInfo QuaternionToAnglesMethodInfo Quaternion signature where
overloadedMethod = quaternionToAngles
#endif
foreign import ccall "graphene_quaternion_to_matrix" graphene_quaternion_to_matrix ::
Ptr Quaternion ->
Ptr Graphene.Matrix.Matrix ->
IO ()
quaternionToMatrix ::
(B.CallStack.HasCallStack, MonadIO m) =>
Quaternion
-> m (Graphene.Matrix.Matrix)
quaternionToMatrix :: Quaternion -> m Matrix
quaternionToMatrix q :: Quaternion
q = IO Matrix -> m Matrix
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Matrix -> m Matrix) -> IO Matrix -> m Matrix
forall a b. (a -> b) -> a -> b
$ do
Ptr Quaternion
q' <- Quaternion -> IO (Ptr Quaternion)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Quaternion
q
Ptr Matrix
m <- Int -> IO (Ptr Matrix)
forall a. BoxedObject a => Int -> IO (Ptr a)
callocBoxedBytes 64 :: IO (Ptr Graphene.Matrix.Matrix)
Ptr Quaternion -> Ptr Matrix -> IO ()
graphene_quaternion_to_matrix Ptr Quaternion
q' Ptr Matrix
m
Matrix
m' <- ((ManagedPtr Matrix -> Matrix) -> Ptr Matrix -> IO Matrix
forall a.
(HasCallStack, BoxedObject a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr Matrix -> Matrix
Graphene.Matrix.Matrix) Ptr Matrix
m
Quaternion -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Quaternion
q
Matrix -> IO Matrix
forall (m :: * -> *) a. Monad m => a -> m a
return Matrix
m'
#if defined(ENABLE_OVERLOADING)
data QuaternionToMatrixMethodInfo
instance (signature ~ (m (Graphene.Matrix.Matrix)), MonadIO m) => O.MethodInfo QuaternionToMatrixMethodInfo Quaternion signature where
overloadedMethod = quaternionToMatrix
#endif
foreign import ccall "graphene_quaternion_to_radians" graphene_quaternion_to_radians ::
Ptr Quaternion ->
Ptr CFloat ->
Ptr CFloat ->
Ptr CFloat ->
IO ()
quaternionToRadians ::
(B.CallStack.HasCallStack, MonadIO m) =>
Quaternion
-> m ((Float, Float, Float))
quaternionToRadians :: Quaternion -> m (Float, Float, Float)
quaternionToRadians q :: Quaternion
q = IO (Float, Float, Float) -> m (Float, Float, Float)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Float, Float, Float) -> m (Float, Float, Float))
-> IO (Float, Float, Float) -> m (Float, Float, Float)
forall a b. (a -> b) -> a -> b
$ do
Ptr Quaternion
q' <- Quaternion -> IO (Ptr Quaternion)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Quaternion
q
Ptr CFloat
radX <- IO (Ptr CFloat)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr CFloat)
Ptr CFloat
radY <- IO (Ptr CFloat)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr CFloat)
Ptr CFloat
radZ <- IO (Ptr CFloat)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr CFloat)
Ptr Quaternion -> Ptr CFloat -> Ptr CFloat -> Ptr CFloat -> IO ()
graphene_quaternion_to_radians Ptr Quaternion
q' Ptr CFloat
radX Ptr CFloat
radY Ptr CFloat
radZ
CFloat
radX' <- Ptr CFloat -> IO CFloat
forall a. Storable a => Ptr a -> IO a
peek Ptr CFloat
radX
let radX'' :: Float
radX'' = CFloat -> Float
forall a b. (Real a, Fractional b) => a -> b
realToFrac CFloat
radX'
CFloat
radY' <- Ptr CFloat -> IO CFloat
forall a. Storable a => Ptr a -> IO a
peek Ptr CFloat
radY
let radY'' :: Float
radY'' = CFloat -> Float
forall a b. (Real a, Fractional b) => a -> b
realToFrac CFloat
radY'
CFloat
radZ' <- Ptr CFloat -> IO CFloat
forall a. Storable a => Ptr a -> IO a
peek Ptr CFloat
radZ
let radZ'' :: Float
radZ'' = CFloat -> Float
forall a b. (Real a, Fractional b) => a -> b
realToFrac CFloat
radZ'
Quaternion -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Quaternion
q
Ptr CFloat -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CFloat
radX
Ptr CFloat -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CFloat
radY
Ptr CFloat -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CFloat
radZ
(Float, Float, Float) -> IO (Float, Float, Float)
forall (m :: * -> *) a. Monad m => a -> m a
return (Float
radX'', Float
radY'', Float
radZ'')
#if defined(ENABLE_OVERLOADING)
data QuaternionToRadiansMethodInfo
instance (signature ~ (m ((Float, Float, Float))), MonadIO m) => O.MethodInfo QuaternionToRadiansMethodInfo Quaternion signature where
overloadedMethod = quaternionToRadians
#endif
foreign import ccall "graphene_quaternion_to_vec4" graphene_quaternion_to_vec4 ::
Ptr Quaternion ->
Ptr Graphene.Vec4.Vec4 ->
IO ()
quaternionToVec4 ::
(B.CallStack.HasCallStack, MonadIO m) =>
Quaternion
-> m (Graphene.Vec4.Vec4)
quaternionToVec4 :: Quaternion -> m Vec4
quaternionToVec4 q :: Quaternion
q = IO Vec4 -> m Vec4
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Vec4 -> m Vec4) -> IO Vec4 -> m Vec4
forall a b. (a -> b) -> a -> b
$ do
Ptr Quaternion
q' <- Quaternion -> IO (Ptr Quaternion)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Quaternion
q
Ptr Vec4
res <- Int -> IO (Ptr Vec4)
forall a. BoxedObject a => Int -> IO (Ptr a)
callocBoxedBytes 16 :: IO (Ptr Graphene.Vec4.Vec4)
Ptr Quaternion -> Ptr Vec4 -> IO ()
graphene_quaternion_to_vec4 Ptr Quaternion
q' Ptr Vec4
res
Vec4
res' <- ((ManagedPtr Vec4 -> Vec4) -> Ptr Vec4 -> IO Vec4
forall a.
(HasCallStack, BoxedObject a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr Vec4 -> Vec4
Graphene.Vec4.Vec4) Ptr Vec4
res
Quaternion -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Quaternion
q
Vec4 -> IO Vec4
forall (m :: * -> *) a. Monad m => a -> m a
return Vec4
res'
#if defined(ENABLE_OVERLOADING)
data QuaternionToVec4MethodInfo
instance (signature ~ (m (Graphene.Vec4.Vec4)), MonadIO m) => O.MethodInfo QuaternionToVec4MethodInfo Quaternion signature where
overloadedMethod = quaternionToVec4
#endif
#if defined(ENABLE_OVERLOADING)
type family ResolveQuaternionMethod (t :: Symbol) (o :: *) :: * where
ResolveQuaternionMethod "dot" o = QuaternionDotMethodInfo
ResolveQuaternionMethod "equal" o = QuaternionEqualMethodInfo
ResolveQuaternionMethod "free" o = QuaternionFreeMethodInfo
ResolveQuaternionMethod "init" o = QuaternionInitMethodInfo
ResolveQuaternionMethod "initFromAngleVec3" o = QuaternionInitFromAngleVec3MethodInfo
ResolveQuaternionMethod "initFromAngles" o = QuaternionInitFromAnglesMethodInfo
ResolveQuaternionMethod "initFromEuler" o = QuaternionInitFromEulerMethodInfo
ResolveQuaternionMethod "initFromMatrix" o = QuaternionInitFromMatrixMethodInfo
ResolveQuaternionMethod "initFromQuaternion" o = QuaternionInitFromQuaternionMethodInfo
ResolveQuaternionMethod "initFromRadians" o = QuaternionInitFromRadiansMethodInfo
ResolveQuaternionMethod "initFromVec4" o = QuaternionInitFromVec4MethodInfo
ResolveQuaternionMethod "initIdentity" o = QuaternionInitIdentityMethodInfo
ResolveQuaternionMethod "invert" o = QuaternionInvertMethodInfo
ResolveQuaternionMethod "normalize" o = QuaternionNormalizeMethodInfo
ResolveQuaternionMethod "slerp" o = QuaternionSlerpMethodInfo
ResolveQuaternionMethod "toAngleVec3" o = QuaternionToAngleVec3MethodInfo
ResolveQuaternionMethod "toAngles" o = QuaternionToAnglesMethodInfo
ResolveQuaternionMethod "toMatrix" o = QuaternionToMatrixMethodInfo
ResolveQuaternionMethod "toRadians" o = QuaternionToRadiansMethodInfo
ResolveQuaternionMethod "toVec4" o = QuaternionToVec4MethodInfo
ResolveQuaternionMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveQuaternionMethod t Quaternion, O.MethodInfo info Quaternion p) => OL.IsLabel t (Quaternion -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#endif