Skip to content


Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

40 lines (33 sloc) 1.025 kb
{-# LANGUAGE BangPatterns #-}
module BenchNoDiffOpt where
{-# LANGUAGE BangPatterns #-}
import Graphics.Vty
import Verify
import Control.Concurrent( threadDelay )
import Control.Monad( liftM2 )
import qualified Data.ByteString.Char8 as B
import Data.Default (def)
import Data.List
import System.Environment( getArgs )
import System.IO
import System.Random
bench0 = do
let fixedGen = mkStdGen 0
setStdGen fixedGen
vty <- mkVty def
(w,h) <- displayBounds $ outputIface vty
let images = return $ (image0, image1)
image0 = charFill defAttr 'X' w h
image1 = charFill defAttr '0' w h
bench d = do
flipOut vty 300 image0 image1
shutdown vty
return $ Bench images bench
flipOut vty n image0 image1 =
let !pLeft = picForImage image0
!pRight = picForImage image1
wLeft 0 = return ()
wLeft n = update vty pLeft >> wRight (n-1)
wRight 0 = return ()
wRight n = update vty pRight >> wLeft (n-1)
in wLeft n
Jump to Line
Something went wrong with that request. Please try again.