module Graphics.Rendering.OpenGL.GL.FramebufferObjects.RenderbufferObject (
RenderbufferObject(..)
) where
import Foreign.Marshal
import Graphics.Rendering.OpenGL.GL.GLboolean
import Graphics.Rendering.OpenGL.GL.ObjectName
import Graphics.Rendering.OpenGL.Raw
data RenderbufferObject = RenderbufferObject { renderbufferID :: GLuint}
instance ObjectName RenderbufferObject where
isObjectName = fmap unmarshalGLboolean . glIsRenderbuffer . renderbufferID
deleteObjectNames objs =
withArrayLen (map renderbufferID objs) $
glDeleteRenderbuffers . fromIntegral
instance GeneratableObjectName RenderbufferObject where
genObjectNames n =
allocaArray n $ \buf -> do
glGenRenderbuffers (fromIntegral n) buf
fmap (map RenderbufferObject) $ peekArray n buf