blob: 201c3a649bd244db69d8c1a0da7f25bef97385c5 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
|
module Graphics.Rendering.HelpGL (emptyRGBATexture) where
import Foreign.Marshal.Array
import Foreign.Ptr
import Graphics.Rendering.OpenGL as GL
(?) :: (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)
|
