module Main where

import Geo -- metry
import GraphicsUtils
import IOExts(trace)

drawFigs :: [Figure]-> IO ()
drawFigs f = runGraphics $ do
  w<- openWindow "Here's some figures!" (500, 500)
  drawInWindow w 
    (overGraphics (zipWith withColor 
           (cycle [Blue ..])
           (map (draw (250, 250)) f))) 
  getKey w
  closeWindow w

swirl :: Figure-> [Figure]
swirl = iterate (scale 1.123. rotate (pi/7))

main = do
  drawFigs (take 30 (swirl (rect 15 10)))
  drawFigs (take 50 (swirl (triangle 6 (pi/3) 6)))