A nice Haskell graphics API. There's always room for jello.
BSD 3-Clause "New" or "Revised" License
41
stars
4
forks
source link
If size has a power of 2 width and height, generate mipmaps --generateMipmap gl TEXTURE_2D --texParameteri gl TEXTURE_2D TEXTURE_MIN_FILTER NEAREST_MIPMAP_NEAREST texParameteri gl TEXTURE_2D TEXTURE_MAG_FILTER LINEAR texParameteri gl TEXTURE_2D TEXTURE_MIN_FILTER LINEAR texParameteri gl TEXTURE_2D TEXTURE_WRAP_S CLAMP_TO_EDGE texParameteri gl TEXTURE_2D TEXTURE_WRAP_T CLAMP_TO_EDGE bindTexture gl TEXTURE_2D Nothing return (tex, sz) bindTexsAround :: MonadIO m => WebGLRenderingContextBase -> [WebGLTexture] -> m a -> m a bindTexsAround gl texs f = do mapM_ (uncurry bindTex) (zip texs [TEXTURE0 #18
.]) Located in "schell/gelatin/gelatin-webgl/src/Gelatin/WebGL/Renderer.hs" on line 216