static CirclesAndLines calFromCoordinates(Map<S, Pt> coordinates, SS withImage, Collection<Relation> relations) {
  Rect r = mergeRects(map(f ptToRect, values(coordinates)));
  BufferedImage img = newBufferedImage(20, 20, Color.white);

  new CirclesAndLines cal;
  Map<S, Circle> circles = caseInsensitiveMap();
  for (S node : keys(coordinates)) {
    Pt p = coordinates.get(node);
    double x = ((p.x-r.x)/(double) r.w)*0.6+0.2;
    double y = ((p.y-r.y)/(double) r.h)*0.5+0.2;
    Circle c;
    S imgText = mapGet(withImage, node);
    if (nempty(imgText))
      c = cal.circle_autoVis(node, imgText, x, y);
    else
      c = cal.circle(img, x, y, node);
    circles.put(node, c);
  }
  
  for (Relation rel : relations) {
    if (rel.is("An arrow from * to *")) {
      Circle a = circles.get(rel.a()), b = circles.get(rel.b());
      if (a != null && b != null) cal.addArrow(a, b);
    } else if (rel.is("An arrow * from * to *")) {
      Circle a = circles.get(rel.b()), b = circles.get(rel.c());
      if (a != null && b != null) cal.addArrow(a, b, rel.a());
    }
  }
  
  ret cal;
}