module Graphics.Autom.Example where
import Graphics.Autom
import Prelude (Bool(..), IO, take)
import Graphics.Gloss (black)
import System.Random (randomRs, mkStdGen)
import Data.Vector.Unboxed (fromList)
example1 :: IO ()
example1 = displayWindow (w, w) black "Autom"
(toPicture v w)
where w = 800
v = grid b r w
r = fromQuad 195 188 227 144
b = fromList (Prelude.take w (randomRs (False, True) g ))
g = mkStdGen s
s = 9384934
example2 :: IO ()
example2 = displayWindow (800, 800) black "Autom"
(toPicture v w)
where w = 800
v = grid b r w
r = fromQuad 213 196 192 153
b = fromList (Prelude.take w (randomRs (False, True) g ))
g = mkStdGen s
s = 9384934
example3 :: IO ()
example3 = displayWindow (w, h) black "Autom"
(toPictureColored ov w 200 3)
where w = 800
h = 600
v = grid b r h
ov = overlaidGrid v w
r = 1127606298
b = fromList (Prelude.take w (randomRs (False, True) g ))
g = mkStdGen s
s = 9384934
example4 :: IO ()
example4 = displayWindow (w, h) black "Autom"
(toPictureColored ov w 200 15)
where w = 800
h = 600
v = grid b r h
ov = overlaidGrid v w
r = 3620459850
b = fromList (Prelude.take w (randomRs (False, True) g ))
g = mkStdGen s
s = 9384934