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

up

This commit is contained in:
Jay McCarthy 2018-01-18 13:56:18 -05:00
parent 60ac3729e7
commit 20f65eb6eb
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
draw.rkt
View File

@ -181,10 +181,12 @@
(match-define (raart xw xh x!) x)
(matte-at (+ xw dc) (+ xh dr) dc dr x))
(define (matte w h
(define (matte aw ah
#:halign [ws 'center]
#:valign [hs 'center]
x)
(define w (or aw (raart-w x)))
(define h (or ah (raart-h x)))
(match-define (raart xw xh x!) x)
(unless (and (<= xw w) (<= xh h))
(error 'matte "Original (~ax~a) must fit inside matte (~ax~a)"
@ -383,7 +385,9 @@
raart? raart?)]
[halign/c contract?]
[valign/c contract?]
[matte (->* (exact-nonnegative-integer? exact-nonnegative-integer? raart?)
[matte (->* ((or/c exact-nonnegative-integer? false/c)
(or/c exact-nonnegative-integer? false/c)
raart?)
(#:halign halign/c #:valign valign/c)
raart?)]
[inset (-> exact-nonnegative-integer? exact-nonnegative-integer? raart? raart?)]