diff options
| author | Aleksey Veresov <aleksey@veresov.pro> | 2021-04-13 14:46:18 +0300 |
|---|---|---|
| committer | Aleksey Veresov <aleksey@veresov.pro> | 2023-12-06 19:47:22 +0300 |
| commit | fac5c4745fc0da0e9f8b6e0fa997c019a7c753e0 (patch) | |
| tree | 2f5dbc689bc392569234812f573d22d8a188a86e /video/src/Video.hs | |
| parent | c1243463fbeced6b1f1765991b56d726f9e7d869 (diff) | |
| download | suem-fac5c4745fc0da0e9f8b6e0fa997c019a7c753e0.tar suem-fac5c4745fc0da0e9f8b6e0fa997c019a7c753e0.tar.xz suem-fac5c4745fc0da0e9f8b6e0fa997c019a7c753e0.zip | |
Initial commit.
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 |