BouncingRandomTetrisBrick

BouncingRandomTetrisBrick.elm

import Random
data Brick = Line | LeftSquiggle | RightSquiggle | LeftStick | RightStick | Box
rand = Random.range 0 6 (constant 1)
brick n = if | n == 0 -> Line
             | n == 2 -> LeftSquiggle
             | n == 3 -> RightSquiggle
             | n == 4 -> RightStick
             | n == 5 -> LeftStick
             | otherwise -> Box
brickText = asText <~ (brick <~ rand)
brickTextForm = toForm <~ brickText
time = lift (inSeconds . fst) (timestamp (fps 40))
scene dy form = collage 300 300 [move (0, 100 * cos dy) form]
main = lift2 scene time brickTextForm