Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- import Graphics.Element (..)
- import Text (..)
- import Color (..)
- import Graphics.Collage (..)
- main : Element
- main = collage 200 200 [
- block red 100,
- diamond white 60,
- block blue 30
- ]
- block color size = square size |> filled color
- diamond color size = block color size |> rotate (degrees 15)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement