-- Comp1100
-- Sem 2 2006
-- A simple square

import Graphics.Plot

main :: IO ()
main = 	displayInWindow
	"a square"
	(500, 500)
	(20,  20)
	picture

square :: Component
square = Line [(72,72),(144,72),(144,144),(72,144),(72,72)]

title :: Component
title = Text "A square"

picture :: Picture
picture  = [square,
	    title]