<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><div><font face="courier new, monospace"><br></font></div><div><font face="arial, helvetica, sans-serif">martin</font></div></div>