2020 Christmas Card

draw <- function(depth, length, id=0)
{
  move(length, id=depth)
  if (depth > 0) {
    lbranch <- 0.5*length
    ltrunc <- 0.7*length
    turnangle <- 2*pi/3
    
    turn(turnangle)
    draw(depth-1, lbranch)
    move(-lbranch, F)
    
    turn(-turnangle)
    draw(depth-1, ltrunc)
    move(-ltrunc, F)
    
    turn(-turnangle)
    draw(depth-1, lbranch)
    move(-lbranch, F)
    
    turn(turnangle)
    
  }
}

size <- 10
depth <- 10
draw(depth, size)