!7

static double zoom = 0.5;

sS imageID = #1007256;
sS rects = [[ [Rect(h=415, w=392, x=104, y=168), Rect(h=420, w=393, x=552, y=168), Rect(h=414, w=392, x=1008, y=168), Rect(h=416, w=392, x=1448, y=168), Rect(h=416, w=400, x=112, y=640), Rect(h=416, w=392, x=560, y=640), Rect(h=424, w=400, x=1000, y=632), Rect(h=421, w=393, x=1447, y=632), Rect(h=419, w=400, x=112, y=1112), Rect(h=416, w=392, x=560, y=1112), Rect(h=416, w=392, x=1000, y=1112), Rect(h=424, w=394, x=1446, y=1104), /* the gray one: Rect(h=422, w=393, x=1447, y=1576),*/ Rect(h=420, w=400, x=96, y=1584), Rect(h=420, w=400, x=552, y=1583), Rect(h=416, w=392, x=1000, y=1584)] ]];

static Map<Int, S> names = littreemap(
  1, "happy",
  2, "sad",
  3, "extremely happy",
  4, "happy with tongue",
  5, "whaaat",
  6, "crying",
  7, "shocked",
  8, "worried",
  9, "winking",
  10, "closed eyes",
  11, "uuuhm",
  12, "super-lol",
  13, "oooh",
  14, "angry",
  15, "disappointed"
);

static ImageSurface is;
static JCheckBox cbAnimate;
static int idx;

p-subst {
  BufferedImage bi = loadImage2(imageID);
  L<Rect> theRects = cast unstructure(rects);
  final Pt size = ceilScalePt(rectsMaxSize(theRects), zoom);
  repeat with sleep 4 {
    bool first = is == null;
    if (first || isChecked(cbAnimate)) {
      Rect r = random(theRects);
      idx = theRects.indexOf(r);
      is = showZoomedImage_centered(is, clipBufferedImage(bi, r), zoom);
      setFrameTitle(is, "Emotion " + (idx + 1) + "/" + l(theRects) + " - " + or2(names.get(idx+1), "?"));
      if (first) awt {
        moveToTopRightCorner(frameInnerSize(size, getFrame(is)));
        addToWindow(is, withMargin(cbAnimate = jCheckBox("Cycle", true)));
        hideConsole();
      }
    }
  }
}

Began life as a copy of #1007258