Maybe one for the standard library?
(define (image->bitmap image)
(let* ([width (image-width image)]
[height (image-height image)]
[bm (make-object bitmap% width height)]
[dc (make-object bitmap-dc% bm)])
(send dc clear)
(send image draw dc 0 0 0 0 width height 0 0 #f)
bm))Dan
____________________ Racket Users list: http://lists.racket-lang.org/users
