diff --git a/draw.rkt b/draw.rkt
index ab14be7..b035dbe 100644
--- a/draw.rkt
+++ b/draw.rkt
@@ -121,12 +121,12 @@
   (define mx (mask cc cw cr ch x))
   (match-define (raart mw mh m!) mx)
   (raart* cw ch
-          (λ (okay? d r c)
+          (λ (okay? d dr dc)
             (m! (λ (w h r c)
                   (okay? w h (- r cr) (- c cc)))
                 (λ (r c ch)
-                  (d (- r cr) (- c cc) ch))
-                r c))))
+                  (d (+ dr (- r cr)) (+ dc (- c cc)) ch))
+                0 0))))
 
 (define (if-drawn f x)
   (match-define (raart w h !) x)