wia/code/escape/koch_curve.jl

24 lines
486 B
Julia

using Lindenmayer, Luxor, Colors
sierpinski_triangle = LSystem(Dict(
"F" => "*F+F--F+F"),
"F")
f(t::Turtle) = begin
t.pencolor = (0.0,0.0,0.0)
setline(4)
end
drawLSystem(sierpinski_triangle,
forward = 10,
turn = 60,
iterations = 4,
startingx = -400,
startingy = -110,
width = 1000,
height = 300,
backgroundcolor = "white",
filename = "./images/koch_curve.png",
showpreview = true,
asteriskfunction = f)