!752

concepts.

concept Example {

  BWImage image;

  S imageMD5;

  S text;

  // new fields in this program:

  BWImage visualizedSplit;

  bool countMatch;

}

concept Theory {

  new Ref<Example> fromExample;

  BWImage image;

  S imageMD5;

  S text;

}

p {

  loadConceptsFrom("#1006005");

  Concepts in = mainConcepts;

  JTable table = showConceptsTable(Example);

  setFrameTitle(table, "Theories");

  for (Example e : in.list(Example)) {

    L<Rect> rects = horizontalAutoSplit2ThenAutoCrop(e.image);

    cset(e, visualizedSplit := new BWImage(mergeImagePartsHorizontally(e.image.toRGB(), rects)));

    S text = e.text.replace(" ", "");

    cset(e, countMatch := l(rects) == l(text));

    if (!e.countMatch)

      print("Bad number of characters: " + l(rects) + " vs " + l(text));

    else {

      for i over rects: {

        BWImage cImg = e.image.clip(rects.get(i));

        cnew(Theory, fromExample := e,

          image := cImg,

          imageMD5 := md5OfBWImage(cImg),

          text := substring(text, i, i+1));

      }

      print("Made " + l(rects) + " theories");

    }

  }

}