!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))));

  }

}