-- Produced by boxnd-gen; edit the generator, not this file.

module Box3D.Cone
  ( create
  )

  where

import Foreign
import Foreign.C.Types (CInt(..))
import Box3D.Tags (HullData)

foreign import ccall unsafe "b3CreateCone"
  c_b3CreateCone :: Float -> Float -> Float -> CInt -> IO (Ptr HullData)

{- | Create a tessellated cone as a hull.

Binds @b3CreateCone@.
-}
create
  :: Float
  -- ^ @height@
  -> Float
  -- ^ @radius1@
  -> Float
  -- ^ @radius2@
  -> Int
  -- ^ @slices@
  -> IO (Ptr HullData)
create :: Float -> Float -> Float -> Int -> IO (Ptr HullData)
create Float
a0 Float
a1 Float
a2 Int
a3 =
  Float -> Float -> Float -> CInt -> IO (Ptr HullData)
c_b3CreateCone Float
a0 Float
a1 Float
a2 (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral Int
a3)