Kirby

import Text
import Color exposing (..)
import Mouse
import Window
import Time exposing (inSeconds, fps)
import Signal exposing (..)
import Graphics.Element exposing (..)
import Graphics.Collage exposing (..)

sampleWithFPS frames signal = sampleOn (inSeconds <~ fps frames) signal
sampleWithDelta signal = sampleWithFPS 35 signal

main =
  scene <~ (sampleWithDelta Mouse.position) ~ (sampleWithDelta Mouse.isDown) ~ Window.dimensions

scene : (Int, Int) -> Bool -> (Int, Int) -> Element
scene (x,y) held (w, h) =
  let (dx,dy) =
        (toFloat x - toFloat w / 2, toFloat h / 2 - toFloat y)
  in
  collage w h
  [
  circle 60
  |> filled (if held then grey else (rgb 255 150 230))
  |> move (dx, dy)
  , oval 30 45
  |> filled (if held then grey else black)
  |> move (dx - 20, dy + 20)
  , oval 30 45
  |> filled (if held then grey else black)
  |> move (dx + 20, dy + 20)
  , circle 10
  |> filled (if held then grey else white)
  |> move (dx + 20, dy + 30)
  , circle 10
  |> filled (if held then grey else white)
  |> move (dx - 20, dy + 30)
  , circle 10
  |> filled (if held then grey else (rgb 255 50 255))
  |> move (dx, dy - 30)
  , oval 25 10
  |> filled (if held then grey else (rgb 255 100 255))
  |> move (dx - 23, dy - 10)
  , oval 25 10
  |> filled (if held then grey else (rgb 255 100 255))
  |> move (dx + 23, dy - 10)
  ]