!7

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), 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)] ]];

p-pretty {
  BufferedImage bi = loadImage2(imageID);
  L<Rect> theRects = cast unstructure(rects);
  repeat with sleep 1 {
    Rect r = random(theRects);
    packInTopRightCorner(quickShowImage(clipBufferedImage(bi, r)));
  }
}