gumik

import System.Random
import Graphics.Rendering.Cairo

data IfsFunction a = IfsFunction a a a a a a a deriving Show
type Ifs a = [IfsFunction a]

calcIfs (IfsFunction a b c d e f _) (x, y) = (a*x + b*y + c, d*x + e*y + f)

-- Calculates [p1, p1 + p2, p1 + p2 + p3, ..., p1 + ... + pn] list
-- of give Ifs, where p_i is i'th function probability.