<div dir="ltr">FWIW, you should use make-bitmap, not the make-object variant (well, unless you pass different arguments, but make-bitmap is better).<div><br></div><div>You could also use the file/convertible and maybe we should add a short function there that would convert to a bitmap directly (altho I'm not sure if that introduces unwanted dependencies).<br>
<div><br></div><div>Robby</div></div></div><div class="gmail_extra"><br><br><div class="gmail_quote">On Fri, Dec 13, 2013 at 10:25 PM, Daniel Prager <span dir="ltr"><<a href="mailto:daniel.a.prager@gmail.com" target="_blank">daniel.a.prager@gmail.com</a>></span> wrote:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><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>
<br>____________________<br>
Racket Users list:<br>
<a href="http://lists.racket-lang.org/users" target="_blank">http://lists.racket-lang.org/users</a><br>
<br></blockquote></div><br></div>