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

module Box3D.Grid
  ( create
  )

  where

import Foreign
import Foreign.C.Types (CInt(..), CBool(..))
import Box3D.MathTypes (Vec3)
import Box3D.Tags (HeightFieldData)

foreign import ccall unsafe "hsg_b3CreateGrid"
  c_b3CreateGrid :: CInt -> CInt -> Ptr Vec3 -> CBool -> IO (Ptr HeightFieldData)

{- | Create a grid as a height field.

Binds @b3CreateGrid@.
-}
create
  :: Int
  -- ^ @rowCount@
  -> Int
  -- ^ @columnCount@
  -> Vec3
  -- ^ @scale@
  -> Bool
  -- ^ @makeHoles@
  -> IO (Ptr HeightFieldData)
create :: Int -> Int -> Vec3 -> Bool -> IO (Ptr HeightFieldData)
create Int
a0 Int
a1 Vec3
a2 Bool
a3 =
  Vec3
-> (Ptr Vec3 -> IO (Ptr HeightFieldData))
-> IO (Ptr HeightFieldData)
forall a b. Storable a => a -> (Ptr a -> IO b) -> IO b
with Vec3
a2 ((Ptr Vec3 -> IO (Ptr HeightFieldData))
 -> IO (Ptr HeightFieldData))
-> (Ptr Vec3 -> IO (Ptr HeightFieldData))
-> IO (Ptr HeightFieldData)
forall a b. (a -> b) -> a -> b
$ \Ptr Vec3
p2 ->
  CInt -> CInt -> Ptr Vec3 -> CBool -> IO (Ptr HeightFieldData)
c_b3CreateGrid (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) Ptr Vec3
p2 (Bool -> CBool
forall a. Num a => Bool -> a
fromBool Bool
a3)