hello<br />I finally circle the bitmap where I point by mouse<br />but there are several problem<br />1. the circle filled with white color that I can&#39;t see bitmap through the circle<br />2. the drawn circle didn&#39;t erased after I point another coordinates<br /><br />could somebody give me an little advice?<br /><br />my code looks messy and not neat but <br />I paste the code for make it easier to understand<br /><br /><br />#lang scheme<br />(require 2htdp/image<br />         racket/gui)<br />(define chipset (make-object bitmap% &quot;town.png&quot; &#39;png))<br />(define (check dc m)<br />  (define x (send m get-x))<br />  (define y (send m get-y))<br />  (send dc draw-ellipse (- x (modulo x 16)) (- y (modulo y 16)) 16 16))<br />(define f (new frame% (label &quot;map editor&quot;)))<br />(define xymsg (new message% (label &quot;nth so far&quot;) (parent f)))<br />(define select% <br />  (class canvas% <br />    (override on-event on-paint)<br />    (define on-paint ( () (send (send this get-dc) draw-bitmap chipset 0 0)))<br />    (define on-event ( (m) <br />                       (send xymsg set-label <br />                             (string-append &quot;x:&quot;<br />                             (number-&gt;string (send m get-x))<br />                             &quot; y:&quot;<br />                             (number-&gt;string (send m get-y))))<br />                       (when (send m get-left-down) (check (send this get-dc) m))))<br /><br />    (super-new )<br />    ))<br />(new select% (parent f) (min-width (image-width chipset)) (min-height (image-height chipset)) )<br />(send f show #t)