module Box3D.FilterJoint
( create
)
where
import Foreign
import Box3D.Id (JointId(..), WorldId(..))
import Box3D.Types (FilterJointDef)
foreign import ccall unsafe "b3CreateFilterJoint"
c_b3CreateFilterJoint :: WorldId -> Ptr FilterJointDef -> IO JointId
create
:: WorldId
-> FilterJointDef
-> IO JointId
create :: WorldId -> FilterJointDef -> IO JointId
create WorldId
a0 FilterJointDef
a1 =
FilterJointDef -> (Ptr FilterJointDef -> IO JointId) -> IO JointId
forall a b. Storable a => a -> (Ptr a -> IO b) -> IO b
with FilterJointDef
a1 ((Ptr FilterJointDef -> IO JointId) -> IO JointId)
-> (Ptr FilterJointDef -> IO JointId) -> IO JointId
forall a b. (a -> b) -> a -> b
$ \Ptr FilterJointDef
p1 ->
WorldId -> Ptr FilterJointDef -> IO JointId
c_b3CreateFilterJoint WorldId
a0 Ptr FilterJointDef
p1