<div dir="ltr"><div>Maybe one for the standard library?<span style="font-family:'courier new',monospace"><br></span></div><div><span style="font-family:'courier new',monospace"><br></span></div><div><span style="font-family:'courier new',monospace">(define (image->bitmap image)</span><br>

</div><div><font face="courier new, monospace">  (let* (</font><span style="font-family:'courier new',monospace">[width (image-width image)]</span></div><div><span style="font-family:'courier new',monospace">         </span><span style="font-family:'courier new',monospace">[height (image-height image)]</span></div>

<div><font face="courier new, monospace">         [bm (make-object bitmap% width height)]</font></div><div><font face="courier new, monospace">         [dc (make-object bitmap-dc% bm)])</font></div><div><font face="courier new, monospace">    (send dc clear)</font></div>

<div><font face="courier new, monospace">    (send image draw dc 0 0 0 0 width height 0 0 #f)</font></div><div><font face="courier new, monospace">    bm))</font></div><div class="gmail_extra"><br></div><div class="gmail_extra">

Dan
</div></div>