!7

static BufferedImage img;
static L<RecognizedText> texts;
static ImageSurface is;
static ReliableSingleThread rst;

p-experiment {
  repeat with sleep 1 {
    //print("Shooting");
    //img = shootScreenHidingConsole();
    img = shootScreen2();
    //print("Recognizing");
    
    time {
      MultiSet<S> multiSet = asCIMultiSet(onlyStringsLongerThan(1, words(lines(ocr_recognizeMultiLine(img)))));
      //pnl(multiSetAsMap_popularFirst(multiSet));
      Set<S> positiveWords = mechSetCI("Positive words");
      Set<S> negativeWords = mechSetCI("Negative words");
      Set<S> set = asCISet(keys(multiSet));
      Set<S> plus = setIntersection(set, positiveWords);
      Set<S> minus = setIntersection(set, negativeWords);
      int score = inflateSizeAccordingToMultiSet(plus, multiSet)
        - inflateSizeAccordingToMultiSet(minus, multiSet);
        
      infoBox("Score: " + score + "\n"
        + "+" + join("+", plus) + "\n"
        + "-" + join("-", minus));
    }
  }
}