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

module Box3D.Cylinder
  ( create
  )

  where

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

foreign import ccall unsafe "b3CreateCylinder"
  c_b3CreateCylinder :: Float -> Float -> Float -> CInt -> IO (Ptr HullData)

{- | Create a tessellated cylinder as a hull.

Binds @b3CreateCylinder@.
-}
create
  :: Float
  -- ^ @height@
  -> Float
  -- ^ @radius@
  -> Float
  -- ^ @yOffset@
  -> Int
  -- ^ @sides@
  -> IO (Ptr HullData)
create a0 a1 a2 a3 =
  c_b3CreateCylinder a0 a1 a2 (fromIntegral a3)