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

module Box3D.TorusMesh
  ( create
  )

  where

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

foreign import ccall unsafe "b3CreateTorusMesh"
  c_b3CreateTorusMesh :: CInt -> CInt -> Float -> Float -> IO (Ptr MeshData)

{- | Create a torus mesh.

Binds @b3CreateTorusMesh@.
-}
create
  :: Int
  -- ^ @radialResolution@
  -> Int
  -- ^ @tubularResolution@
  -> Float
  -- ^ @radius@
  -> Float
  -- ^ @thickness@
  -> IO (Ptr MeshData)
create :: Int -> Int -> Float -> Float -> IO (Ptr MeshData)
create Int
a0 Int
a1 Float
a2 Float
a3 =
  CInt -> CInt -> Float -> Float -> IO (Ptr MeshData)
c_b3CreateTorusMesh (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral Int
a0) (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral Int
a1) Float
a2 Float
a3