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
