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.
martin On Sat, Sep 27, 2014 at 12:27 AM, Martin DeMello <martindeme...@gmail.com> wrote: > 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. > > #lang racket > > (require pict > mrlib/gif) > > (define (draw-frame i) > (pict->bitmap (circle (* 50 i)))) > > (write-animated-gif > (map draw-frame (sequence->list (in-range 1 10))) > 10 > "test1.gif" > #:loop? true > #:one-at-a-time? true) > > martin >
____________________ Racket Users list: http://lists.racket-lang.org/users
