!7

module RecordGIFSpike > DynSingleFunctionWithPrintLog {
  double sleepBefore = 5;
  
  void doIt ctex {
    print("Sleeping for " + sleepBefore + " before recording GIF...");
    Rect r = rect(screenWidth()/2-100, 0, 200, 100);
    GifSequenceWriter writer = null;
    long time = sysNow();
    int delay = 200;
    File f = programFile("test.gif");
    temp ImageOutputStream out = fileImageOutputStream(f);
    for i to 10: {
      BufferedImage img = shootScreenArea_possiblyBroken(r);
      if (writer == null)
        writer = GifSequenceWriter(out, img.getType(), delay, true);
      writer.writeToSequence(img);
      print("Wrote image " + (i+1));
      sleepUntilSys(time+delay*(i+1));
    }
    close(writer);
    print("Done writing " + fileInfo(f));
  }
}