blob: 938147e527bd01ec4890c910e112f8f8e971834e (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
module Graphics.Rendering.HelpGL
( emptyRGBATexture )
where
import Graphics.Rendering.OpenGL as GL
import Foreign.Ptr
import Foreign.Marshal.Array
(?) :: (Integral a, Num b) => () -> a -> b
(?) _ = fromIntegral
emptyRGBATexture :: Int -> Int -> IO ()
emptyRGBATexture w h =
texImage2D Texture2D NoProxy 0 RGBA' (TextureSize2D (()?w) (()?h)) 0 (PixelData RGBA UnsignedByte nullPtr)
|
