sordina

{-# LANGUAGE BangPatterns #-}


-- Preview on Youtube: http://www.youtube.com/watch?v=bK01Bgh32Sc

import Data.Complex

type C = Complex Float
type Color = (Float,Float,Float)
type Point = (Float,Float)

sordina

import Diagrams.AST

main = outputImage "hilbert.png" w w (hilbert i) where (i,w) = (8,1200)

hilbert i = Modifier (LineWidth 0.1) $ Shape $ Path Open $ Offsets (iterate build base !! i)

base = [(0,1),(1,0),(0,-1)]

build x = l $ n x ++ o ++ r (r (l (x ++ o ++ x) ++ o ++ n x))