misc-deps
/
raart
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

fix buggy combination of translation and crop

This commit is contained in:
xenia 2021-04-04 00:43:06 -04:00
parent 9d82f2f8ad
commit a4c532fa2c
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
draw.rkt
View File

@ -121,12 +121,12 @@
(define mx (mask cc cw cr ch x)) (define mx (mask cc cw cr ch x))
(match-define (raart mw mh m!) mx) (match-define (raart mw mh m!) mx)
(raart* cw ch (raart* cw ch
(λ (okay? d r c) (λ (okay? d dr dc)
(m! (λ (w h r c) (m! (λ (w h r c)
(okay? w h (- r cr) (- c cc))) (okay? w h (- r cr) (- c cc)))
(λ (r c ch) (λ (r c ch)
(d (- r cr) (- c cc) ch)) (d (+ dr (- r cr)) (+ dc (- c cc)) ch))
r c)))) 0 0))))
(define (if-drawn f x) (define (if-drawn f x)
(match-define (raart w h !) x) (match-define (raart w h !) x)