blob: d03439a138cadf1b31f79e3802096b9118032572 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
module Video (ConfigSocket(..), video) where
import Graphics.Gloss
import Data.ByteString (pack)
data ConfigSocket = ConfigInet String | ConfigUnix String
video :: ConfigSocket -> IO ()
video _ = do
let pic = replicate (256 * 256 * 4) 255
bmp = bitmapOfByteString 256 256 (BitmapFormat TopToBottom PxRGBA)
(pack pic) False
display (InWindow "Suem Video" (256, 256) (0, 0)) black bmp
|