From a4c532fa2c1e4e01ae76911ce58451101a782c67 Mon Sep 17 00:00:00 2001 From: haskal Date: Sun, 4 Apr 2021 00:43:06 -0400 Subject: [PATCH] fix buggy combination of translation and crop --- draw.rkt | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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)