Main.hs

{-# LANGUAGE ParallelListComp #-}

-- Draw a color wheel.
import Brillo


main :: IO ()
main =
  display
    (InWindow "Colors" (800, 800) (5, 5))
    (greyN 0.4)
    ( Pictures
        [ Translate
            (200 * cos (2 * pi * (fromIntegral n) / 12))
            (200 * sin (2 * pi * (fromIntegral n) / 12))
            $ Color (withAlpha 0.8 c)
            $ circleSolid 100
        | n <- [0 .. length colors]
        | c <- colors
        ]
    )


colors :: [Color]
colors =
  [ red
  , orange
  , yellow
  , chartreuse
  , green
  , aquamarine
  , cyan
  , azure
  , blue
  , violet
  , magenta
  , rose
  ]