!752

static BWImage bw;
static Thread producer;
static Reproducing rp;

!include #1004556 // class Reproducing

static int luaMaxSteps = 1000*1000;

p {
  rp = new Reproducing;
  rendererMaker = func(S s) {
    if (startsWith(s, "lua "))
      ret luaRenderer(dropPrefix("lua ", s));
    null; // fallback to default (unstructure)
  };
  
  bw = rp.bw = loadBWImage("#1004576");
  rp.imageSurfaceToUpdateWithBest = showImage(bw.getBufferedImage());
  
  rp.startProduction = r { produce() };
  
  // Note: This doesn't terminate as it keeps looking for better
  // solutions. It does write the shortest100.txt file in the mean
  // time which is your real output.
  rp.findShortest100_openEnd();
}

static void produce() {
  cancelThread(producer);
  producer = new Thread(r {
    // STRATEGY!
    
    rp.push(fullGrab(bw));
    int w = 1;
    while licensed {
      rp.push(new RandomSolid().reproduce(bw));
      S best = rp.bestDesc();
      if (best != null)
        rp.push(varyFloat(best));
      if (w < bw.getWidth())
        rp.push(hrepeat(bw, w++));
    }
  }, "Producer");
  producer.start();
}

static Renderer luaRenderer(final S code) {
  ret new Renderer {
    public BWImage render(int w, int h) {
      BWImage img = new BWImage(w, h);
      Sandbox sandbox = makeSandbox(img);
      luaMaxSteps(luaMaxSteps);
      quickLua(sandbox, code);
      ret img;
    }
  };
}

static Sandbox makeSandbox(final BWImage img) {
  Sandbox s = luaSandbox();
  
  s.setOuter("w", Lua.value(img.getWidth()));
  s.setOuter("h", Lua.value(img.getHeight()));
  
  s.setInner("set", new ThreeArgFunction() {
    public LuaValue call(LuaValue x, LuaValue y, LuaValue theByte) {
      img.setByte(x.toint(), y.toint(), (byte) theByte.toint());
      ret Lua.NIL;
    }
  });

  ret s;
}

Began life as a copy of #1004557