<table cellspacing="0" cellpadding="0" border="0" ><tr><td valign="top" style="font: inherit;">Some students are trying to do a pixel by pixel operation on a 640x480 size picture and my student's code is operating very slowly.&nbsp; I've heard that Racket can process images quickly but apparently we are doing something very wrong.&nbsp; There are a few parts to this problem.&nbsp; This is the first one:&nbsp; Reading the image into a representation.&nbsp; I'm not sure how to make this more efficient. Is there something I'm missing?<br><br>We have very new computers running the latest stable version of Racket. Operating system is Fedora Core 14&nbsp; (64 bit version).<br><br><br>#lang racket<br>(require mred)<br>(define bmdc (make-object bitmap% "apple.jpg"))<br>(define-struct rect (x y w h))<br><br><br><br>(define pw (send bmdc get-width))<br>(define ph (send bmdc get-height))<br><br>;get-my-colors: num num num num -&gt; byte-string<br>(define
 (get-mycolors x y w h)<br>&nbsp; (let* (<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (pixels (make-bytes (* w h 4) 0))<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (myrectangle (send bmdc get-argb-pixels x y w h pixels false)))<br>&nbsp;&nbsp;&nbsp; pixels))<br>(get-mycolors 0 0 pw ph)<br><br><br></td></tr></table>