can haz muzak

ktuukkan · Apr 1, 2016 · 1576275 · 1576275
1 parent 87e3d6c
commit 1576275
Showing 1 changed file with 6 additions and 6 deletions.
diff --git a/demo1.elm b/demo1.elm
@@ -67,17 +67,17 @@ view : State -> (Int, Int) -> Element
 view state (w, h) =
  case state.effect of
  Cornfield ->
- cornfield w h state.time
+ flow outward [cornfield w h state.time, toElement 1 1 muzak]
  Hypnocorn ->
- hypnocorn w h state.time
+ flow outward [hypnocorn w h state.time, toElement 1 1 muzak]
  Starfield ->
- Starfield.view (Starfield.update state.time state.stars) (w, h)
+ flow outward [Starfield.view (Starfield.update state.time state.stars) (w, h), toElement 1 1 muzak]
  Chilicorn ->
- chilicorn w h state.time
+ flow outward [chilicorn w h state.time, toElement 1 1 muzak]
  Rotozoom ->
- rotozoom w h state.time
+ flow outward [rotozoom w h state.time, toElement 1 1 muzak]
  Plasma ->
- plasma w h state.time
+ flow outward [plasma w h state.time, toElement 1 1 muzak]
 
 chilicorn w h t =
  collage w h