Happy New Year – Discindo

library(ggplot2)

# Tree branches
tree_data <- data.frame(
  x = c(0, -1, 1, 0, -0.8, 0.8, 0, -0.6, 0.6), 
  y = c(0, -1, -1, 0.5, -0.45, -0.45, 1, 0.1, 0.1),
  group = rep(1:3, each = 3)
)

# Tree trunk
trunk_data <- data.frame(
  x = c(-0.2, 0.2, 0.2, -0.2),
  y = c(-1, -1, -1.4, -1.4)
)

# Star at the top
star_data <- data.frame(
  x = c(0, 0.05, 0.2, 0.08, 0.12, 0, -0.12, -0.08, -0.2, -0.05),
  y = c(1.35, 1.20, 1.20, 1.1, 0.95, 1.05, 0.95, 1.1, 1.2, 1.2)
)

# Decorations 
decorations_data <- data.frame(
  x = runif(100, -0.8, 0.8),  # Random x positions within the tree
  y = runif(100, -0.8, 1),    # Random y positions within the tree
  colors = sample(c("red", "darkblue", "purple", "gold", "deeppink"), 100, replace = TRUE)
)

# Check if a point is inside a triangle
point_in_triangle <- function(px, py, x1, y1, x2, y2, x3, y3) {
  denominator <- ((y2 - y3)*(x1 - x3) + (x3 - x2)*(y1 - y3))
  a <- ((y2 - y3)*(px - x3) + (x3 - x2)*(py - y3)) / denominator
  b <- ((y3 - y1)*(px - x3) + (x1 - x3)*(py - y3)) / denominator
  c <- 1 - a - b
  return(a >= 0 & b >= 0 & c >= 0)
}

# Filter decorations to fit in tree triangles
valid_points <- apply(decorations_data, 1, function(point) {
  x <- as.numeric(point['x'])
  y <- as.numeric(point['y'])
  inside_triangle1 <- point_in_triangle(x, y, 0, 0, -1, -1, 1, -1)
  inside_triangle2 <- point_in_triangle(x, y, 0, 0.5, -0.8, -0.45, 0.8, -0.45)
  inside_triangle3 <- point_in_triangle(x, y, 0, 1, -0.6, 0.1, 0.6, 0.1)
  return(inside_triangle1 | inside_triangle2 | inside_triangle3)
})

decorations_data <- decorations_data[valid_points, ]

# Plot the tree
ggplot() +
  geom_polygon(data = tree_data, aes(x, y, group = group), fill = "forestgreen", color = "black") +
  geom_polygon(data = trunk_data, aes(x, y), fill = "saddlebrown", color = "black") +
  geom_polygon(data = star_data, aes(x, y), fill = "gold", color = "black") +
  geom_point(data = decorations_data, aes(x, y, color = colors), size = 3) +
  scale_color_identity() +
  coord_fixed() +
  ggtitle("🎄 Happy New Year!") +
  theme_void() +
  theme(plot.title = element_text(hjust = 0.5)) +
  theme(legend.position="none")