mirror of
https://github.com/ilyakooo0/vty.git
synced 2024-10-04 11:17:08 +03:00
35 lines
756 B
Haskell
35 lines
756 B
Haskell
module Main where
|
|
|
|
import Graphics.Vty
|
|
import Graphics.Vty.Debug
|
|
|
|
import System.IO
|
|
|
|
main :: IO ()
|
|
main = do
|
|
vty <- mkVty
|
|
(sx, sy) <- getSize vty
|
|
play vty sx sy
|
|
|
|
play :: Vty -> Int -> Int -> IO ()
|
|
play vty sx sy =
|
|
let
|
|
testScreen = pic {
|
|
pCursor = NoCursor
|
|
, pImage = box 10 10 }
|
|
in do
|
|
update vty testScreen
|
|
getEvent vty
|
|
shutdown vty
|
|
return ()
|
|
|
|
box :: Int -> Int -> Image
|
|
box w h =
|
|
let
|
|
corner = renderChar attr '+'
|
|
vertLine = renderFill attr '|' 1 (h - 2)
|
|
horizLine = corner <|> renderHFill attr '-' (w - 2) <|> corner
|
|
centerArea = vertLine <|> renderFill attr 'X' (w - 2) (h - 2) <|> vertLine
|
|
in
|
|
horizLine <-> centerArea <-> horizLine
|