Advertisement
Guest User

Untitled

a guest
Dec 19th, 2014
175
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.30 KB | None | 0 0
  1. import Graphics.Element (..)
  2. import Text (..)
  3. import Color (..)
  4. import Graphics.Collage (..)
  5.  
  6.  
  7. main : Element
  8. main = collage 200 200 [
  9. block red 100,
  10. diamond white 60,
  11. block blue 30
  12. ]
  13.  
  14. block color size = square size |> filled color
  15. diamond color size = block color size |> rotate (degrees 15)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement