added delay option
This commit is contained in:
parent
1d0d27cf07
commit
16925c182e
@ -26,7 +26,7 @@ main = do
|
||||
chan <- newBChan 1
|
||||
forkIO $ forever $ do
|
||||
writeBChan chan Tick
|
||||
threadDelay 70000
|
||||
threadDelay $ (optTime options) * 10000
|
||||
g <- initGame
|
||||
let buildVty = V.mkVty V.defaultConfig
|
||||
initialVty <- buildVty
|
||||
|
@ -13,6 +13,7 @@ data Options = Options
|
||||
{ optWidth :: Int
|
||||
, optGenerations :: Int
|
||||
, optHeight :: Int
|
||||
, optTime :: Int
|
||||
} deriving Show
|
||||
|
||||
-- the default options for the program
|
||||
@ -24,6 +25,7 @@ defaultOptions w h = Options
|
||||
{ optWidth = w
|
||||
, optGenerations = 40
|
||||
, optHeight = h
|
||||
, optTime = 7
|
||||
}
|
||||
|
||||
-- the avaliable options
|
||||
@ -38,6 +40,9 @@ options =
|
||||
, Option ['h'] ["height"]
|
||||
(ReqArg (\t opts -> opts { optHeight = (read t) }) "HEIGHT")
|
||||
"term height"
|
||||
, Option ['t'] ["time"]
|
||||
(ReqArg (\t opts -> opts { optTime = (read t) }) "TIME")
|
||||
"delay time"
|
||||
]
|
||||
|
||||
-- parse the options into the structure
|
||||
|
Loading…
Reference in New Issue
Block a user