module HGamer3D.Bindings.Ogre.StructQuaternion where
import Foreign
import Foreign.Ptr
import Foreign.C
import HGamer3D.Data.HG3DClass
import HGamer3D.Data.Vector
import HGamer3D.Data.Colour
import HGamer3D.Data.Angle
import Data.Bits
import HGamer3D.Data.Vector
newtype Quat = Quat Quaternion
instance Storable Quat where
alignment _ = alignment (undefined :: CDouble)
sizeOf _ = 16
peek p = do
fw <- (\ptr -> do {peekByteOff ptr 0 ::IO CFloat}) p
fx <- (\ptr -> do {peekByteOff ptr 4 ::IO CFloat}) p
fy <- (\ptr -> do {peekByteOff ptr 8 ::IO CFloat}) p
fz <- (\ptr -> do {peekByteOff ptr 12 ::IO CFloat}) p
let q = Quat ( Q (Vec4 (realToFrac fw) (realToFrac fx) (realToFrac fy) (realToFrac fz) ))
return q
poke p (Quat (Q ( Vec4 w x y z))) = do
(\ptr val -> do {pokeByteOff ptr 0 (val::CFloat)}) p (realToFrac w)
(\ptr val -> do {pokeByteOff ptr 4 (val::CFloat)}) p (realToFrac x)
(\ptr val -> do {pokeByteOff ptr 8 (val::CFloat)}) p (realToFrac y)
(\ptr val -> do {pokeByteOff ptr 12 (val::CFloat)}) p (realToFrac z)
type QuatPtr = Ptr (Quat)
type QuaternionPtr = Ptr (Quaternion)
withQuaternion :: Quaternion -> (QuaternionPtr -> IO b) -> IO b
withQuaternion q f = with q' f' where
q' = Quat q
f' p = f (castPtr p)
peekQuaternion p = do
(Quat q) <- peek ((castPtr p)::QuatPtr)
return q