!7

p-subst {
  repeat with sleep 1 {
    currentImage(newBufferedImage(200, 200, Color.gray));
    Rect r = randomRect();
    int h = r.h/2;
    fillRect(r.x, r.y, r.w, h, Color.black);
    fillRect(r.x, r.y+h, r.w, r.h-h, Color.white);
    quickShowImage();
  }
}