Skip to content

Instantly share code, notes, and snippets.

@A-gambit
Created July 21, 2015 21:05
Show Gist options
  • Save A-gambit/e53c7537ad5cb3d404cf to your computer and use it in GitHub Desktop.
Save A-gambit/e53c7537ad5cb3d404cf to your computer and use it in GitHub Desktop.
import Text exposing (..)
import Color exposing (..)
import Graphics.Element exposing (..)
import Graphics.Collage exposing (..)
import Window
figure color size =
filled color (circle size)
main : Signal Element
main =
Signal.map view Window.dimensions
view : (Int,Int) -> Element
view (w,h) =
container w h middle (collage 200 200 [ figure red 20 ])
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment