This is an alternative site for discovering Elm packages. You may be looking for the official Elm package site instead.
1.0.0
README Dive

Dive.ElmLogo

lba

logo : (Float, Float) -> (Float, Float) -> Object

The Elm logo as an Object (essentially a group of polygons). Gets a position and a size tuple as arguments.

module Dive.ElmLogo exposing (logo)

{-|
  lba
@docs logo
-}

import Dive exposing (..)
import Color exposing (Color)

{-|
The Elm logo as an `Object` (essentially a `group` of `polygon`s). Gets a position and a size tuple as arguments.
-}
logo : (Float, Float) -> (Float, Float) -> Object
logo (x,y) (w,h) =
  [ polygon
      [ (0.01, 0.00)
      , (0.99, 0.00)
      , (0.50, 0.49)
      ]
    |> fill Color.lightBlue
  , polygon
      [ (0.00, 0.01)
      , (0.00, 0.99)
      , (0.49, 0.50)
      ]
    |> fill Color.darkBlue
  , polygon
      [ (1.00, 0.01)
      , (1.00, 0.49)
      , (0.76, 0.25)
      ]
    |> fill Color.orange
  , polygon
      [ (0.51, 0.50)
      , (0.75, 0.74)
      , (0.99, 0.50)
      , (0.75, 0.26)
      ]
    |> fill Color.green
  , polygon
      [ (0.50, 0.51)
      , (0.74, 0.75)
      , (0.26, 0.75)
      ]
    |> fill Color.orange
  , polygon
      [ (0.01, 1.00)
      , (0.49, 1.00)
      , (0.73, 0.76)
      , (0.25, 0.76)
      ]
    |> fill Color.green
  , polygon
      [ (0.51, 1.00)
      , (1.00, 1.00)
      , (1.00, 0.51)
      ]
    |> fill Color.lightBlue
  ] |> group
    |> transformObject (1,1) (-0.5,-0.5) 
    |> transformObject (w,h) (x,y)