From fac5c4745fc0da0e9f8b6e0fa997c019a7c753e0 Mon Sep 17 00:00:00 2001
From: Aleksey Veresov <aleksey@veresov.pro>
Date: Tue, 13 Apr 2021 14:46:18 +0300
Subject: Initial commit.

---
 video/src/Video.hs | 13 +++++++++++++
 1 file changed, 13 insertions(+)
 create mode 100644 video/src/Video.hs

(limited to 'video/src')

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
-- 
cgit v1.2.3