# Nodes for testing Linked list and main algo

n1 <- node$new(val = list(
  "label" = "", "x" = 1, "y" = 2, "rad" = 3
))

n2 <- node$new(val = list(
  "label" = "", "x" = 6, "y" = 7, "rad" = 8
))

n3 <- node$new(val = list(
  "label" = "", "x" = 50, "y" = 90, "rad" = 1
))

n4 <- node$new(val = list(
  "label" = "", "x" = -1, "y" = -3, "rad" = 3
))

n5 <- node$new(val = list(
  "label" = "", "x" = -10, "y" = -69, "rad" = 4
))

#init_boundary(list(n1,n2,n3))
init_boundary(list(n1, n2, n3, n4, n5))

#node1 <- node$new
#node1(val = list("label" = "circle_1", "x" = 1, "y" = 1, "r" = 1, "placeholder" = ""))