-- 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 a0 a1 a2 a3 =
  c_b3CreateCone a0 a1 a2 (fromIntegral a3)