Koch curve: Difference between revisions

Generates SVG for a Koch snowflake. To view, save to a text file with an .svg extension, and open in a browser.

 

import Text.Printf (printf)

 

in go (pred n) =<< zip points xs

in ab : go n (ab, xy)

 

equilateralApex :: (Float, Float) -> (Float, Float) -> (Float, Float)

midThirdOfLine (a, b) (x, y) =

let (dx, dy) = ((x - a) / 3, (y - b) / 3)

p = f (a, b)

in (p, f p)

 

-- TEST ---------------------------------------------------