2012-06-27 06:52:07 +00:00
|
|
|
|
|
|
|
-- Move your mouse around above the canvas!
|
|
|
|
|
|
|
|
import Signal.Mouse (position)
|
|
|
|
import Signal.Window (dimensions)
|
|
|
|
|
|
|
|
myBlue = rgb 0 85 170
|
|
|
|
myGreen = rgba 28 267 85 (1/2)
|
2012-05-29 21:47:31 +00:00
|
|
|
|
|
|
|
scene (x,y) (w,h) =
|
2012-06-27 06:52:07 +00:00
|
|
|
collage w h [ filled myBlue . rotate ((x+y)/1000) $ ngon 4 100 (200,200)
|
|
|
|
, filled myGreen $ ngon 5 30 (x,y)
|
2012-05-29 21:47:31 +00:00
|
|
|
]
|
|
|
|
|
2012-06-27 06:52:07 +00:00
|
|
|
main = lift2 scene position dimensions
|