!7

module RecordGIFSpike > DynSingleFunctionWithPrintLog {
  double sleepBefore = 5, recordForSeconds = 10, frameRate = 10;
  Rect area;
  
  S switchableFields() { ret "sleepBefore recordForSeconds frameRate"; }
  
  void doIt {
    // TODO: delete gif on interruption
    
    runInterruptibly(voidfunc(final Runnable interrupt) ctex {
      temp AutoCloseable action = dm_currentAction("Will record GIF from screen in " + n2(sleepBefore, "second") + "...",
        r { print("INTERRUPTED"); callF(interrupt) });
      print("Sleeping for " + sleepBefore + " before recording GIF...");
      sleepSeconds(sleepBefore);
      call(action, 'setText, "Recording GIF");
      Rect r = or(area, rect(screenWidth()/2-100, 0, 200, 100));
      GifSequenceWriter writer = null;
      long start = sysNow();
      File f = javaxDataDir("Recorded GIFs", ymd_minus_hms() + ".gif");
      temp ImageOutputStream out = fileImageOutputStream(f);
      int delay = iround(1000/frameRate);
      int i = 0;
      while (elapsedMS(start) < toMS(recordForSeconds)) {
        BufferedImage img = shootScreenArea_possiblyBroken(r);
        if (writer == null)
          writer = GifSequenceWriter(out, img.getType(), delay, true);
        writer.writeToSequence(img);
        ++i;
        long slept = sleepUntilSys(start+delay*i);
        print("Wrote image " + i + " (leeway: " + slept + " of " + delay + " ms" + ")");
      }
      close(writer);
      print("Done writing " + fileInfo(f));
    });
  }
  
  // API
  
  void useAreaOfModule(O module) {
    setField(area := toRect(boundsOnScreen(dm_frame(module))));
  }
}