colorwheel.elm

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

dots = 50
main : Element
main =
  collage 150 150 (List.map shape [0..dots-1])


shape : Int -> Form
shape n =
  let
    angle = degrees ((30*(12/dots)) * toFloat n)
  in
    circle (10*(12/dots))
      |> filled (hsl angle 0.7 ((0.25 * (sin ((angle)*3)))+0.5))
      |> move (45 * cos angle, 45 * sin angle)