Paint H-Boxes

connectedhboxes.elm

import Color exposing (..)
import Graphics.Collage exposing (..)
import Graphics.Element exposing (..)
import Mouse
import Window

type alias Box = (Int,Int)
type alias Editor = { boxes: List Box }

main : Signal Element
main = start { boxes = [] }

start : Editor -> Signal Element
start editor =
  Signal.map2 view Window.dimensions addBox

addBox : Signal Editor
addBox =
  Signal.foldp (\(x,y) editor -> { editor | boxes <- (x,y) :: editor.boxes }) { boxes = [] } (Signal.sampleOn Mouse.clicks Mouse.position)

view : (Int,Int) -> Editor -> Element
view (width,height) editor =
  let drawBox (x,y) =
          ngon 4 20
            |> filled (hsla (toFloat x) 0.9 0.6 0.7)
            |> move (toFloat x - toFloat width / 2, toFloat height / 2 - toFloat y)
            |> rotate (toFloat x)
  in
      collage width height (List.map drawBox editor.boxes)