Skip to content

Instantly share code, notes, and snippets.

@mindbat
Last active October 25, 2016 00:30
Show Gist options
  • Save mindbat/f106eeb324032064e493dec31dbbbc2f to your computer and use it in GitHub Desktop.
Save mindbat/f106eeb324032064e493dec31dbbbc2f to your computer and use it in GitHub Desktop.
Elm Day Two: Car
import Color exposing (..)
import Collage exposing (..)
import Element exposing (..)
carBottom = filled black (rect 160 50)
carTop = filled black (rect 100 60)
tire = filled red (circle 24)
car = collage 300 300
[ carBottom
, carTop |> moveY 30
, tire |> move (-40, -28)
, tire |> move (40, -28) ]
main = toHtml car
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment