aboutsummaryrefslogtreecommitdiff
path: root/video/src
diff options
context:
space:
mode:
authorAleksey Veresov <aleksey@veresov.pro>2021-04-13 14:46:18 +0300
committerAleksey Veresov <aleksey@veresov.pro>2023-12-06 19:47:22 +0300
commitfac5c4745fc0da0e9f8b6e0fa997c019a7c753e0 (patch)
tree2f5dbc689bc392569234812f573d22d8a188a86e /video/src
parentc1243463fbeced6b1f1765991b56d726f9e7d869 (diff)
downloadsuem-fac5c4745fc0da0e9f8b6e0fa997c019a7c753e0.tar
suem-fac5c4745fc0da0e9f8b6e0fa997c019a7c753e0.tar.xz
suem-fac5c4745fc0da0e9f8b6e0fa997c019a7c753e0.zip
Initial commit.
Diffstat (limited to 'video/src')
-rw-r--r--video/src/Video.hs13
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