fix buggy combination of translation and crop

2021-04-04 00:43:06 -04:00 · 2021-04-04 00:43:06 -04:00 · a4c532fa2c
parent 9d82f2f8ad
commit a4c532fa2c
1 changed files with 3 additions and 3 deletions
--- 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)