git.iko.soy/vty
on 4e95657 help sign in
vty/test/Bench2.hs
30 lines 730 B history raw
1{-# LANGUAGE BangPatterns #-}
2import Graphics.Vty
3import System.IO
4import System.Environment( getArgs )
5import Control.Concurrent( threadDelay )
6import System.Random
7import Data.List
8import Control.Monad( liftM2 )
10import qualified Data.ByteString.Char8 as B
12main = do
13 let fixed_gen = mkStdGen 0
14 setStdGen fixed_gen
15 args <- getArgs
16 vt <- mkVty
17 (w, h) <- getSize vt
18 let !image_0 = renderFill attr 'X' w h
19 let !image_1 = renderFill attr '0' w h
20 run vt image_0 image_1
21 shutdown vt
23run vt image_0 image_1 = run' vt 300 image_0 image_1
25run' vt 0 image_0 image_1 = return ()
26run' vt n image_0 image_1 = do
27 let p = pic { pImage = image_0 }
28 update vt p
29 run' vt (n - 1) image_1 image_0