IFS-0.1: src/main.hs

---------------------------------------------------------------------------
-- |
-- Module      :  Main
-- Copyright   :  (c) alpheccar, 2007
-- License     :  BSD-style 
-- 
-- Maintainer  :  misc@alpheccar.org
-- Stability   :  experimental
-- Portability :  portable 
--
-- Description
--
--	  Iterated Function Systems in Haskell
--
-----------------------------------------------------------------------------


module Main where
	
import Graphics.IFS.Ppm
import Graphics.IFS.Geometry
import Graphics.IFS.Examples
import Graphics.IFS

main = do
	putStrLn "Generating sierpinski ..."
	createPict "sierpinski.ppm" 600 600 200000 (binaryColor (RGB 238 238 238) blue) sierpinski
	putStrLn "Generating fern ..."
	createPict "fern.ppm" 600 600 200000 (binaryColor (RGB 238 238 238) green) (translation 0.5 0 <*> scaling 0.1 0.1 <*> fern)