A Christmas tree is boRn

Darkness falls…

Nerds click here

p <- points
r <- runif
l <- 500
s <- (l:1)/1000

par(bg = "black", pch = 8, mar = rep(0, 4))
plot(0, xlim = c(-1.25, 1.25), axes = F, xlab = "", ylab = "", ylim = c(-100, 550))

A lonely and lost tree trink appears - drained of life.

Nerds click here

p <- points
r <- runif
l <- 500
s <- (l:1)/1000

par(bg = "black", pch = 8, mar = rep(0, 4))
plot(0, xlim = c(-1.25, 1.25), axes = F, xlab = "", ylab = "", ylim = c(-100, 550))
a <- 0
rect(-0.1, -100, 0.1, 0, col = "brown", border = "brown")

The dim light of a far away star fights the darkness.

Nerds click here

p <- points
r <- runif
l <- 500
s <- (l:1)/1000

par(bg = "black", pch = 8, mar = rep(0, 4))
plot(0, xlim = c(-1.25, 1.25), axes = F, xlab = "", ylab = "", ylim = c(-100, 550))
a <- 0
rect(-0.1, -100, 0.1, 0, col = "brown", border = "brown")

  for(i in 11:1){
    points(0.005, 500.2, pch = 19, col = rgb(1, 1, 0, 0.05), cex = 5 + (0.65 * i))
  }

The light sparks life to the trunk and a pine appears that is reaching for the star!

Nerds click here

p <- points
r <- runif
l <- 500
s <- (l:1)/1000

par(bg = "black", pch = 8, mar = rep(0, 4))
plot(0, xlim = c(-1.25, 1.25), axes = F, xlab = "", ylab = "", ylim = c(-100, 550))
a <- 0
rect(-0.1, -100, 0.1, 0, col = "brown", border = "brown")

  for(i in 11:1){
    points(0.005, 500.2, pch = 19, col = rgb(1, 1, 0, 0.05), cex = 5 + (0.65 * i))
  }
for(i in rep(exp(-(1:125)* 0.016), 4) * s + s){
  a <- a + 1
  
  for(j in seq(-i, i, 0.02)){
    p(j, a, col = rgb(0, i*.7 + 0.2 * r(1, 0.6, 1) - 0.5 * j^2, 0))
  }
}

They meet and unite - the pine shines bright into the night.

Nerds click here

p <- points
r <- runif
l <- 500
s <- (l:1)/1000

par(bg = "black", pch = 8, mar = rep(0, 4))
plot(0, xlim = c(-1.25, 1.25), axes = F, xlab = "", ylab = "", ylim = c(-100, 550))
a <- 0
rect(-0.1, -100, 0.1, 0, col = "brown", border = "brown")

  for(i in 11:1){
    points(0.005, 500.2, pch = 19, col = rgb(1, 1, 0, 0.05), cex = 5 + (0.65 * i))
  }
for(i in rep(exp(-(1:125)* 0.016), 4) * s + s){
  a <- a + 1
  
  for(j in seq(-i, i, 0.02)){
    p(j, a, col = rgb(0, i*.7 + 0.2 * r(1, 0.6, 1) - 0.5 * j^2, 0))
  }
}

points(0.006, 508, pch = 19, col = 7, cex = 5.6)
  p(0, 520, pch = "⭐", cex = 13, col = 7)

Light gathers and colors appear from the night.

Nerds click here

p <- points
r <- runif
l <- 500
s <- (l:1)/1000

par(bg = "black", pch = 8, mar = rep(0, 4))
plot(0, xlim = c(-1.25, 1.25), axes = F, xlab = "", ylab = "", ylim = c(-100, 550))
a <- 0
rect(-0.1, -100, 0.1, 0, col = "brown", border = "brown")

  for(i in 11:1){
    points(0.005, 500.2, pch = 19, col = rgb(1, 1, 0, 0.05), cex = 5 + (0.65 * i))
  }
for(i in rep(exp(-(1:125)* 0.016), 4) * s + s){
  a <- a + 1
  
  for(j in seq(-i, i, 0.02)){
    p(j, a, col = rgb(0, i*.7 + 0.2 * r(1, 0.6, 1) - 0.5 * j^2, 0))
  }
}

points(0.006, 508, pch = 19, col = 7, cex = 5.6)
  p(0, 520, pch = "⭐", cex = 13, col = 7)


  # Christmas bulbs
  cols <- sample(c(rgb(1, 0, 0, 0.1), rgb(0, 1, 0, 0.1), rgb(1, 1, 0, 0.1), rgb(0, 0.2, 1, 0.1)))
  cols2 <- sample(c(rgb(1, 0, 0, 0.1), rgb(0, 1, 0, 0.1), rgb(1, 1, 0, 0.1), rgb(0, 0.2, 1, 0.1)))
  cols3 <- sample(c(rgb(1, 0, 0, 0.1), rgb(0, 1, 0, 0.1), rgb(1, 1, 0, 0.1), rgb(0, 0.2, 1, 0.1)))
  cols4 <- sample(c(rgb(1, 0, 0, 0.1), rgb(0, 1, 0, 0.1), rgb(1, 1, 0, 0.1), rgb(0, 0.2, 1, 0.1)))
  
  for(i in 11:1){
    points(seq(-1, 1, 0.1), rep(0, 21), pch = 19, col = cols, cex = 0.15 + (0.12 * i))
    points(seq(-0.75, 0.75, 0.1), rep(125, 16), pch = 19, cex = 0.15 + (0.12 * i), col = cols2)
    points(seq(-0.5, 0.5, 0.1), rep(250, 11), pch = 19, cex = 0.15 + (0.12 * i), col = cols3)
    points(seq(-0.25, 0.25, 0.1), rep(375, 6), pch = 19, cex = 0.15 + (0.12 * i), col = cols4)
    
  }
  
  set.seed(60)
  points(runif(6, -0.77, 0.77), runif(6, 0, 100), pch = 21, cex = 3, bg = sample(c("gold", "red")))
  set.seed(2)
  points(runif(7, -0.5, 0.5), runif(7, 125, 300), pch = 21, cex = 3, bg = sample(c("gold", "red")))
  set.seed(5)
  points(runif(4, -0.2, 0.2), runif(4, 300, 370), pch = 21, cex = 3, bg = sample(c("gold", "red")))
  points(0, 140, pch = 21, cex = 3, bg = sample(c("gold", "red")))
  points(-0.15, 180, pch = 21, cex = 3, bg = sample(c("gold", "red")))

Snow covers the ground - silence.

Nerds click here

p <- points
r <- runif
l <- 500
s <- (l:1)/1000

par(bg = "black", pch = 8, mar = rep(0, 4))
plot(0, xlim = c(-1.25, 1.25), axes = F, xlab = "", ylab = "", ylim = c(-100, 550))
a <- 0
rect(-0.1, -100, 0.1, 0, col = "brown", border = "brown")

  for(i in 11:1){
    points(0.005, 500.2, pch = 19, col = rgb(1, 1, 0, 0.05), cex = 5 + (0.65 * i))
  }
for(i in rep(exp(-(1:125)* 0.016), 4) * s + s){
  a <- a + 1
  
  for(j in seq(-i, i, 0.02)){
    p(j, a, col = rgb(0, i*.7 + 0.2 * r(1, 0.6, 1) - 0.5 * j^2, 0))
  }
}

points(0.006, 508, pch = 19, col = 7, cex = 5.6)
  p(0, 520, pch = "⭐", cex = 13, col = 7)


  # Christmas bulbs
  cols <- sample(c(rgb(1, 0, 0, 0.1), rgb(0, 1, 0, 0.1), rgb(1, 1, 0, 0.1), rgb(0, 0.2, 1, 0.1)))
  cols2 <- sample(c(rgb(1, 0, 0, 0.1), rgb(0, 1, 0, 0.1), rgb(1, 1, 0, 0.1), rgb(0, 0.2, 1, 0.1)))
  cols3 <- sample(c(rgb(1, 0, 0, 0.1), rgb(0, 1, 0, 0.1), rgb(1, 1, 0, 0.1), rgb(0, 0.2, 1, 0.1)))
  cols4 <- sample(c(rgb(1, 0, 0, 0.1), rgb(0, 1, 0, 0.1), rgb(1, 1, 0, 0.1), rgb(0, 0.2, 1, 0.1)))
  
  for(i in 11:1){
    points(seq(-1, 1, 0.1), rep(0, 21), pch = 19, col = cols, cex = 0.15 + (0.12 * i))
    points(seq(-0.75, 0.75, 0.1), rep(125, 16), pch = 19, cex = 0.15 + (0.12 * i), col = cols2)
    points(seq(-0.5, 0.5, 0.1), rep(250, 11), pch = 19, cex = 0.15 + (0.12 * i), col = cols3)
    points(seq(-0.25, 0.25, 0.1), rep(375, 6), pch = 19, cex = 0.15 + (0.12 * i), col = cols4)
    
  }
  
  set.seed(60)
  points(runif(6, -0.77, 0.77), runif(6, 0, 100), pch = 21, cex = 3, bg = sample(c("gold", "red")))
  set.seed(2)
  points(runif(7, -0.5, 0.5), runif(7, 125, 300), pch = 21, cex = 3, bg = sample(c("gold", "red")))
  set.seed(5)
  points(runif(4, -0.2, 0.2), runif(4, 300, 370), pch = 21, cex = 3, bg = sample(c("gold", "red")))
  points(0, 140, pch = 21, cex = 3, bg = sample(c("gold", "red")))
  points(-0.15, 180, pch = 21, cex = 3, bg = sample(c("gold", "red")))
  
    # Snow
  p(r(75, -1.25, 1.25), r(75, -100, l+50), col = "white", cex = sample(seq(0.5, 1.2, length.out = 75)), pch = "❄️")
  p(r(100, -1.25, 1.25), r(100, -100, -95), col = "white", cex = sample(seq(0.5, 1.2, length.out = 75)), pch = "❄️")

Source and original code from: https://github.com/R-CoderDotCom/christmas-tree