<div dir="ltr">Solved, with help from Jens Soegaard; I had to modify mrlib/write-gifs to take a disposal argument, and use it in all calls to gif-add-control.<div><br></div><div>martin</div></div><div class="gmail_extra"><br><div class="gmail_quote">On Sat, Sep 27, 2014 at 12:27 AM, Martin DeMello <span dir="ltr"><<a href="mailto:martindemello@gmail.com" target="_blank">martindemello@gmail.com</a>></span> wrote:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr"><div>Can't figure it out, but something in the interaction between pict->bitmap and write-animated-gif is causing the frames to display one on top of the other when viewing the gif. <br></div><div><br></div><div><div><font face="courier new, monospace">#lang racket</font></div><div><font face="courier new, monospace"><br></font></div></div><div><font face="courier new, monospace">(require pict </font></div><div><font face="courier new, monospace">         mrlib/gif)</font></div><div><font face="courier new, monospace"><br></font></div><div><font face="courier new, monospace">(define (draw-frame i)</font></div><div><font face="courier new, monospace">  (pict->bitmap (circle (* 50 i))))</font></div><div><font face="courier new, monospace">  </font></div><div><font face="courier new, monospace">(write-animated-gif</font></div><div><font face="courier new, monospace"> (map draw-frame (sequence->list (in-range 1 10)))</font></div><div><font face="courier new, monospace"> 10 </font></div><div><font face="courier new, monospace"> "test1.gif"</font></div><div><font face="courier new, monospace"> #:loop? true</font></div><div><font face="courier new, monospace"> #:one-at-a-time? true)</font></div><span class="HOEnZb"><font color="#888888"><div><font face="courier new, monospace"><br></font></div><div><font face="arial, helvetica, sans-serif">martin</font></div></font></span></div>
</blockquote></div><br></div>