Random Trees for Codea

trees.lua

function setup()
    seed = 1
end

function draw()
    background(136, 207, 224, 255)
    noStroke()
    fill(61, 109, 31, 255)
    rect(0, 0, WIDTH, 128)
        
    lineCapMode(ROUND)
    ellipseMode(CENTER)
        
    translate(WIDTH/2, 64)
    
    math.randomseed(seed)
    drawTree(10, 120, 20)
end

function touched(t)
    seed = seed + 1
end

function drawTree(depth, length, angle)
    if depth > 0 then
        strokeWidth(length/5)
        stroke(133, 55, 29, 255)
        line(0, 0, 0, length)
        
        pushMatrix()
        translate(0, length)
        pushMatrix()
        rotate(perturb(angle))
        drawTree(depth-1, length*0.8, angle)
        popMatrix()
        pushMatrix()
        rotate(perturb(-angle))
        drawTree(depth-1, length*0.8, angle)
        popMatrix()
        popMatrix()
    else
        noStroke()
        stroke(24, 164, 41, 255)
        fill(24, 164, 41, 255)
        ellipse(0, 0, 32, 32)
    end
end

function perturb(v)
    return v * math.random(0.95, 1.05)
end

Poke the screen to get a new random tree.