-- 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 :: Float -> Float -> Float -> Int -> IO (Ptr HullData)
create Float
a0 Float
a1 Float
a2 Int
a3 =
  Float -> Float -> Float -> CInt -> IO (Ptr HullData)
c_b3CreateCylinder Float
a0 Float
a1 Float
a2 (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral Int
a3)