diff options
Diffstat (limited to 'video/src/Video.hs')
| -rw-r--r-- | video/src/Video.hs | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/video/src/Video.hs b/video/src/Video.hs new file mode 100644 index 0000000..d03439a --- /dev/null +++ b/video/src/Video.hs @@ -0,0 +1,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 |