!7

static L<S> inputDiagrams = tlft([=[
  CirclesAndLines(circles=[Circle(quickvis="A JavaX Program", text="A JavaX Program", x=d("0.28674351585014407"), y=d("0.20889748549323017")), Circle(text="a translator invocation", x=d("0.6801152737752162"), y=d("0.20889748549323017")), Circle(text="a main program", x=d("0.6801152737752162"), y=d("0.6015473887814313"))], lines=[Arrow(a=t5, b=t30, text="consists of"), Arrow(a=t30, b=t51, text="and")])
  CirclesAndLines(circles=[Circle(text="a typical translator invocation", x=d("0.3746397694524496"), y=d("0.4700193423597679")), Circle(text="[[!7]]", x=d("0.7896253602305475"), y=d("0.4700193423597679"))], lines=[Arrow(a=t5, b=t26, text="is")])
  CirclesAndLines(circles=[Circle(text="an example main program", x=d("0.49135446685878964"), y=d("0.195357833655706")), Circle(text="[[p { infoBox(\"Hello world!\"); }]]", x=d("0.4899135446685879"), y=d("0.5918762088974855"))], lines=[Arrow(a=t5, b=t26, text="is")])
]=]);

sS code;

p { magellan();
  // Prepare & Reason
  
  Web web = webFromCALStructures_vis(inputDiagrams);
  web_dropSecondWord(web, "typical");
  web_dropSecondWord(web, "example");
  web_replaceFirstWord(web, "an", "a");
  web_mergeNodes(web);
  web_collapseBackwardsWithName(web, "is");
  
  // Make Program
  
  WebNode program = web_nodeWithLastWord(web, "Program");
  assertNotNull("Program Node", program);
  
  WebNode n = web_findForwardRelated(program, "consists of");
  new L<S> parts;
  if (n != null) do ping {
    parts.add(unquote(n.text()));
  } while ((n = web_findForwardRelated(n, "and")) != null);
  code = join("\n\n", parts);
  
  // Show

  CirclesAndLines.defaultBackgroundImageID = #1009675; //#1009676
  centerFrame(setFrameSize(800, 600, showTabbedWebs(0,
    "User Input 1", webFromCALStructure(get(inputDiagrams, 0)),
    "User Input 2", webFromCALStructure(get(inputDiagrams, 1)),
    "User Input 3", webFromCALStructure(get(inputDiagrams, 2)),
    "Computed Web", web,
    "Generated Program",
      centerAndNorth(
        withMargin(50, withTitle("The Code", setFontSize(20, jtypewritertextarea(code)))),
        withMargin(jcenteredline(setFontSize(20, jbutton("Compile & Run", f runProgram))))))));
  hideConsole();
}

svoid runProgram {
  thread { loading { callMain(veryQuickJava(dropTranslators(code))); } }
}