!7

module RecordGIFSpike > DynSingleFunctionWithPrintLog {
  void doIt ctex {
    Rect r = rect(screenWidth()/2-100, 0, 200, 100);
    GifSequenceWriter writer;
    long time = sysNow();
    int delay = 200;
    ImageOutputStream out = fileImageOutputStream(programFile("test.gif"));
    for i to 10: {
      BufferedImage img = shootScreenArea_possiblyBroken(r);
      if (writer == null)
        writer = GifSequenceWriter(out, img.getType(), delay, true);
      writer.writeToSequence(img);
      sleepUntilSys(time+delay*(i+1));
    }
    close(writer);
  }
}