!7

sS inputDiagram1 = [[CirclesAndLines(circles=[Circle(quickvis="A pixel", text="A pixel", x=d("0.056195965417867436"), y=d("0.058027079303675046")), Circle(text="2-tuple", x=d("0.1988472622478386"), y=d("0.5241779497098646")), Circle(text="x coordinate", x=d("0.5072046109510087"), y=d("0.172147001934236")), Circle(text="y coordinate", x=d("0.5115273775216138"), y=d("0.5377176015473888")), Circle(text="an integer", x=d("0.69164265129683"), y=d("0.3481624758220503"))], imgZoom=d("1.0"), lines=[Arrow(a=t5, b=t30, text="is a"), Arrow(a=t30, b=t51, text="containing"), Arrow(a=t30, b=t72, text="containing"), Arrow(a=t51, b=t93, text="which is"), Arrow(a=t72, b=t93, text="which is")], translate=Pt(x=147, y=83))]];

sS inputDiagram2 = [[CirclesAndLines(circles=[Circle(text="collapse backwards", x=d("0.29827089337175794"), y=d("0.47775628626692457")), Circle(text="is a", x=d("0.670028818443804"), y=d("0.4700193423597679"))], imgZoom=d("1.0"), lines=[Arrow(a=t5, b=t26, text="")], translate=Pt(x=0, y=0))]];

p {
  Web web = webFromCALStructures(inputDiagram1, inputDiagram2);
  web_upper(web);
  web.labelsToUpper = true;
  Web outWeb = simpleWeb();
  for (WebNode toCollapse : web_allForwardRelated("collapse backwards", ""))
    print("Collapsing: " + toCollapse);
  showTabbedWebs("Input", web, "Output", outWeb);
}