!7

sclass Node {
  S id, name;
  *() {} *(S *id, S *name) {}
}

sS meID = 'liahcrxesjjuwuur, functionsID = 'dudnfsbhcgoeudhs;
static new L<Node> functions;

static Canvas canvas;

p-subst {
  functions = persistentList("Functions");
  canvas = showCAL(diagram(), 650, 450);
  doFrameTitle();
  calcOnConceptChanges(1000, r { canvas = showCAL(diagram(), canvas); doFrameTitle() }, false);
  bot("Soul.");
  showCommandList();
}

svoid doFrameTitle {
  setFrameTitle("Soul Bot - Happiness Level: " + happiness(), canvas);
}  

static CirclesAndLines diagram() {
  new CirclesAndLines cal;
  
  // Static circles
  Circle me = cal.circle("Me\n(Voice Assistant)\n\n" + meID, halfSizeImage(quickVisualize("Voice assistant")), 0.2, 0.4);
  int size = l(functions)*20+4;
  Circle f = cal.circle(whiteImage(size, size), 0.7, 0.65, n(functions, "function") + "\n(collection)\n\n" + functionsID);
  cal.arrow(me, "has", f);
  
  // Dynamically changing circles
  int i = 0;
  for (Node n : functions) {
    double x = 0.5 + (i++)*0.35/max(1, l(functions)-1);
    Circle fn = cal.circle(whiteImage(20, 20), x, 0.1, quote(n.name));
    cal.arrow(f, "contains", fn);
  }
  ret cal;
}

static int happiness() { ret 1+l(functions); }

answer {
  if "add function *" { functions.add(new Node(aGlobalID(), $1)); ret "OK"; }
  if "remove function *" { removeWhereParams(functions, id := $1); removeWhereParams(functions, name := $1); ret "OK"; }
}