Rcrastinate

png("goodbye.png", height = 625, width = 500)

par(col = "purple")

plot(1, 1, xlim = c(0,800), ylim = c(0,1600), type = "n", bty = "n", xaxt = "n", yaxt = "n", xlab = "", ylab = "")

symbols(x = 400, y = 1200, circles = 400, add = T, lwd = 40)

lines(x = c(400, 400), y = c(900, 100), lwd = 40, lend = 1)

lines(x = c(480, 320), y = c(500, 500), lwd = 40, lend = 1)

polygon(x = c(400, 480, 400, 320, 400), y = c(-20, 200, 100, 200, -20), col = "purple", border = "purple")

polygon(x = c(450, 500, 500, 450), y = c(500, 600, 400, 500), col = "purple", border = "purple")

polygon(x = c(350, 300, 300, 350), y = c(500, 600, 400, 500), col = "purple", border = "purple")

curve(expr = 100*log(x)+250, from = 100, to = 700, add = T, lwd = 40, lend = 1)

polygon(x = c(600, 750, 720, 750, 600), y = c(9