import Picture
r1, r2, r3, r4 :: Region
r1 = Shape (Rectangle 3 2)
r2 = Shape (Ellipse 1 1.5)
r3 = Shape (RtTriangle 3 2)
r4 = Shape (Polygon [(-2.5, 2.5), (-3, 0), (-1.7, -1), (-1.1, 0.2), (-1.5, 2)])
p1, p2, p3, p4 :: Picture
p1 = Region Red r1
p2 = Region Blue r2
p3 = Region Green r3
p4 = Region Yellow r4
pic :: Picture
pic = foldl Over EmptyPic [p1, p2, p3, p4]
main = draw2 "Picture Click Test" pic
This entry was posted
on Sunday, June 10th, 2007 at 12:31 pm and is filed under Haskell - SOE.
You can follow any responses to this entry through the RSS 2.0 feed.
You can leave a response, or trackback from your own site.